Ver Mensaje Individual
  #1  
Antiguo 17-02-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Reputación: 18
tebre Va por buen camino
Insertar valores...Error

necesito ayuda de como insertar estos datos en un base de dato SQL Server 2005

Código Delphi [-]
 
procedure TFrmSolicitud.BtnAgregarClick(Sender: TObject);
var global : integer;
begin
   global :=0;
   boleano:=false;
        //*********Ingresar en la tabla Principal********* 
         Datos.QrySolicitud.Active:= False;
         Datos.QrySolicitud.SQL.Clear;
         Datos.QrySolicitud.SQL.Add('INSERT INTO Solicitud VALUES(');
         Datos.QrySolicitud.SQL.Add(Quotedstr(EdFolioSolicitud.Text) + ',');
         Datos.QrySolicitud.SQL.Add(Quotedstr(LblUsuarioCreador.Caption) + ',');
         Datos.QrySolicitud.SQL.Add(dateToStr(DtpFechaCreacion.Date) + ',');  //insertar dato tipo fecha
         Datos.QrySolicitud.SQL.Add(dateToStr(DtpFechaCreacion.Date) + ',');   //insertar dato tipo fecha
         Datos.QrySolicitud.SQL.Add(dateToStr(DtpFechaCreacion.Date) + ',');  //insertar dato tipo fecha
         Datos.QrySolicitud.SQL.Add(Quotedstr(Boleano) + ','); // Inserta este dato en un campo Boolan
         Datos.QrySolicitud.SQL.Add(Quotedstr(Boleano) + ','); // Inserta este dato en un campo Boolan
         Datos.QrySolicitud.SQL.Add(Quotedstr(lblUsuarioCreador.caption) + ',');
         Datos.QrySolicitud.SQL.Add(Quotedstr(lblDireccion.caption) + ')');
         Datos.QrySolicitud.ExecSQL;
end;


gracias por su ayuda
Responder Con Cita