Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 30-12-2005
Moises22 Moises22 is offline
Miembro
 
Registrado: sep 2005
Posts: 53
Poder: 21
Moises22 Va por buen camino
He conseguido que por lo menos funcione, pero no de la manera que yo quiero. La cosa esta en que hay un campo que es de auto incremento, si yo la insercion la hago asi:
Código:
usuarioADOQuery1.SQL.Clear;
    try
    usuarioADOQuery1.SQL.Add('INSERT INTO usuarios VALUES(');
    usuarioADOQuery1.SQL.Add('5,');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit1.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit2.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit3.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit4.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit5.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr((usuarioComboBox2.ItemIndex)+1));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr(oficinaux));
    usuarioADOQuery1.SQL.Add(')');
    usuarioADOQuery1.ExecSQL;
    finally
    usuarioADOQuery1.Close;
    usuarioADOQuery1.SQL.Clear;
me funciona pero claro yo quiero que me en vez del valor 5 coja el valor del autoincremento, que seria asi:
Código:
usuarioADOQuery1.SQL.Clear;
    try
    usuarioADOQuery1.SQL.Add('INSERT INTO usuarios(nombre,apellido1,apellido2,login,password,rango,oficina) VALUES(');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit1.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit2.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit3.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit4.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(QuotedStr(usuarioLabeledEdit5.Text));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr((usuarioComboBox2.ItemIndex)+1));
    usuarioADOQuery1.SQL.Add(',');
    usuarioADOQuery1.SQL.Add(intToStr(oficinaux));
    usuarioADOQuery1.SQL.Add(')');
    usuarioADOQuery1.ExecSQL;
    finally
    usuarioADOQuery1.Close;
    usuarioADOQuery1.SQL.Clear;
PUES BIEN ESTA ULTIMA FORMA QUE ES LA QUE QUIERO Y NECESITO NO FUNCIONA DICE QUE HAY UN ERROR DE SINTAXIS SQL EN INSERT INTO.

Por favor necesito que alguien me heche una mano
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 07:17:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi