Ir al contenido


Foto

[RESUELTO] Como reiniciar un campo contador de una tabla desde Delphi 7 ?


  • Por favor identifícate para responder
17 respuestas en este tema

#1 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 05 noviembre 2010 - 11:11

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...
  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 05 noviembre 2010 - 11:16



sql
  1. DBCC CHECKIDENT('<Tabla>', RESEED, 0)



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



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



Saludos.
  • 0

#3 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 05 noviembre 2010 - 12:00

¿Asi?
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 05 noviembre 2010 - 12:07

¿Asi?


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

#5 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 06 noviembre 2010 - 09:47

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
  • 0

#6 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 07 noviembre 2010 - 05:38

La puedes hacer ejecutandola desde un query sin problema
  • 0

#7 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 11 noviembre 2010 - 11:40

La puedes hacer ejecutandola desde un query sin problema



cómo ?
  • 0

#8 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4.483 mensajes
  • LocationVenezuela

Escrito 12 noviembre 2010 - 07:03

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



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


  • 0

#9 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 20 noviembre 2010 - 11:16

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



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




No me funciona
  • 0

#10 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 20 noviembre 2010 - 11:19

Presenta este error

Archivos adjuntos


  • 0

#11 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 20 noviembre 2010 - 11:25

Perdón pero creo que tenemos un grave problema.



sql
  1. 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
  1. DBCC CHECKIDENT(&#39;Clientes&#39;, RESEED, 0)



Incluso enecumene te ha mostrado como

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

Salud OS

  • 0

#12 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 21 noviembre 2010 - 12:32

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
  1. var c:string;
  2. begin
  3. c:='DBCC CHECKIDENT(<Clientes>, RESEED, 0)';
  4. ADOQuery1.close;
  5. ADOQuery1.SQL.Add(c);
  6. ADOQuery1.open;
  7. end;



Y aun no funciona.

El ADOQuery esta bien conectato al ADOConnection...

Archivos adjuntos


  • 0

#13 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6.295 mensajes
  • LocationArgentina

Escrito 21 noviembre 2010 - 08:17

¿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
  1. 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,

  • 0

#14 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 21 noviembre 2010 - 02:57

te entiendo delphius, gracias

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


  • 0

#15 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.040 mensajes
  • LocationSanto Domingo

Escrito 21 noviembre 2010 - 06:24

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
  • 0

#16 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 21 noviembre 2010 - 06:38

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


Archivos adjuntos


  • 0

#17 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6.295 mensajes
  • LocationArgentina

Escrito 21 noviembre 2010 - 09:13

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,
  • 0

#18 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 mensajes

Escrito 21 noviembre 2010 - 09:39

Ahora si, gracias mil
  • 0




IP.Board spam blocked by CleanTalk.