17 replies to this topic

[lsedr]

Como ejecuto una sentencia desde delphi 7 con un boton, con la cual pueda reiniciar el valor del Campo (Cliente_No) de una tabla de una BD SQL server 2005 express ?
Como ejecuto la sentencia y cual componente se usa para esto ?

Escribir Pasos por favor.
Gracias...

[enecumene]

sql

DBCC CHECKIDENT('<Tabla>', RESEED, 0)

Donde <Tabla> es el nombre de la tabla a reiniciar, por ejemplo:

sql

DBCC CHECKIDENT('Empleados', RESEED, 0) /* reiniciamos la tabla empleados */
DBCC CHECKIDENT('Productos', RESEED, 0) /* reiniciamos la tabla productos */

Saludos.

[eduarcol]

¿Asi?

[enecumene]

¿Asi?

Ah vaya, no había visto ese hilo, y qué extraño que vuelva a preguntar por ello.

[lsedr]

Las tablasson de una BD sql server 2005 y las estoy entrandoles datos desde el delphi 7 y la sentencia que decis se ejecutaria en sql, pero la quiero ejecutar desde delphi 7

[eduarcol]

La puedes hacer ejecutandola desde un query sin problema

[lsedr]

La puedes hacer ejecutandola desde un query sin problema

cómo ?

[eduarcol]

Esto deberia funcionar, no conozco ADO ni mssqlserver pero por regla general funciona, prueba y me dices:

delphi

MiQuery.Active := False;
MiQuery.Sql.Text :=  'DBCC CHECKIDENT(<Tabla>, RESEED, 0)';
MiQuery.ExecSql;

[lsedr]

Esto deberia funcionar, no conozco ADO ni mssqlserver pero por regla general funciona, prueba y me dices:

delphi

MiQuery.Active := False;
MiQuery.Sql.Text :=  'DBCC CHECKIDENT(<Tabla>, RESEED, 0)';
MiQuery.ExecSql;

No me funciona

[lsedr]

Presenta este error

Attached Files

•  2037_ce81081d6cafafd6c07f6ce566cc225ebe1abb05.png   23.66KB   11 downloads

[egostar]

Perdón pero creo que tenemos un grave problema.

sql

DBCC CHECKIDENT(<Tabla>, RESEED, 0)

tu problema es que quieres copiar y pegar todo, analiza las cosas, no puedes colocar <Tabla>, por lógica, necesitas el nombre de la tabla.

sql

DBCC CHECKIDENT('Clientes', RESEED, 0)

Incluso enecumene te ha mostrado como

http://www.delphiacc...g43427#msg43427

Salud OS

[lsedr]

da este error de todas formas, pues el codigo solo me funciona cuando lo ejecuto en el mismo SQL SERVER desde el entorno SSMS.


además lo ejecute asi

delphi

var c:string;
begin
c:='DBCC CHECKIDENT(<Clientes>, RESEED, 0)';
ADOQuery1.close;
ADOQuery1.SQL.Add(c);
ADOQuery1.open;
end;

Y aun no funciona.

El ADOQuery esta bien conectato al ADOConnection...

Attached Files

•  2039_23aa4916d1162fe5c6effbf9fb187cb48936f1dc.png   14.3KB   10 downloads

[Delphius]

¿lsedr cuantas horas te pasas frente a la computadora? Te lo pregunto porque el error es verdaderamente pasado de tonto...
1. Te han dado un ejemplo y te han dicho que debes reemplazar <tabla> por el nombre de tu tabla.
2. El mensaje de error te está cantando a los gritos que el carácter < no lo reconoce y que está demás.

De 1 y 2 se desprende que la manera de hacerlo es así:

delphi

c:='DBCC CHECKIDENT(Clientes, RESEED, 0)';

Tal vez si durmieras mejor y prestaras más atención a lo que se dice te evitarías estar lanzando preguntas innecesarias que lo único que demuestran es tu total falta de paciencia y lectura. Sin ofender...

Saludos,

[lsedr]

te entiendo delphius, gracias

pero lo que digo que ya le indique la tabla, pero me da el mismo error

[luk2009]

Lo que te quieren decir es que le quites los simbolos <  y > que estan antes y despues de la palabra clientes y muestra luego que error te da

[lsedr]

Lo que te quieren decir es que le quites los simbolos <  y > que estan antes y despues de la palabra clientes y muestra luego que error te da

Attached Files

•  2041_b26b7c8da6d4228df4200aa347ce0736e85568ad.png   25.31KB   9 downloads

[Delphius]

Cambia el .Open por un .ExecSql.
También estoy pensando si el TADOQuery es el componente más adecuado... No estoy cerca de mi máquina como para comprobar si acierto... creo que entre los componentes ADO hay uno que permite ejecutar comandos... un TADOCommand creo recordar.

Saludos,

[lsedr]

Ahora si, gracias mil