Jump to content


Photo

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

Started by lsedr , Nov 05 2010 11:11 AM

  • Please log in to reply
17 replies to this topic

#1 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 posts

Posted 05 November 2010 - 11:11 AM

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
  • 7419 posts
  • LocationRepública Dominicana

Posted 05 November 2010 - 11:16 AM



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
  • 4483 posts
  • LocationVenezuela

Posted 05 November 2010 - 12:00 PM

¿Asi?
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7419 posts
  • LocationRepública Dominicana

Posted 05 November 2010 - 12:07 PM

¿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 posts

Posted 06 November 2010 - 09:47 PM

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
  • 4483 posts
  • LocationVenezuela

Posted 07 November 2010 - 05:38 AM

La puedes hacer ejecutandola desde un query sin problema
  • 0

#7 lsedr

lsedr

    Advanced Member

  • Miembros
  • PipPipPip
  • 272 posts

Posted 11 November 2010 - 11:40 PM

La puedes hacer ejecutandola desde un query sin problema



cómo ?
  • 0

#8 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 12 November 2010 - 07:03 AM

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 posts

Posted 20 November 2010 - 11:16 PM

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 posts

Posted 20 November 2010 - 11:19 PM

Presenta este error

Attached Files


  • 0

#11 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14448 posts
  • LocationMéxico

Posted 20 November 2010 - 11:25 PM

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 posts

Posted 21 November 2010 - 12:32 AM

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

Attached Files


  • 0

#13 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6295 posts
  • LocationArgentina

Posted 21 November 2010 - 08:17 AM

¿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 posts

Posted 21 November 2010 - 02:57 PM

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
  • 2040 posts
  • LocationSanto Domingo

Posted 21 November 2010 - 06:24 PM

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 posts

Posted 21 November 2010 - 06:38 PM

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


  • 0

#17 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6295 posts
  • LocationArgentina

Posted 21 November 2010 - 09:13 PM

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 posts

Posted 21 November 2010 - 09:39 PM

Ahora si, gracias mil
  • 0
Back to MS SQL Server


  1. Comunidad Delphiaccess
  2. → BASES DE DATOS
  3. → MS SQL Server
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.