Ver Mensaje Individual
  #4  
Antiguo 03-04-2013
jonydread jonydread is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 157
Reputación: 13
jonydread Va por buen camino
ahora me dice No such column n1
Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 nItem: TListItem;
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
n1,n2,n3,n4: String;
begin
slDBPath := ExtractFilepath(application.exename)
+ 'bd\dbdatos.db';
sldb := TSQLiteDatabase.Create(slDBPath);
  nItem := ListView1.Items.Add;
  nItem.Caption := DateToStr(DateTimePicker1.Date);
  n1 := DateToStr(DateTimePicker1.Date);
  nItem.SubItems.Add(ComboboxEx1.Text);
  n2 := ComboboxEx1.Text;
  nItem.SubItems.Add(edit1.Text);
  n3 := edit1.Text;
  nItem.SubItems.Add(edit2.Text);
  n4 := edit2.Text;
//begin a transaction
sldb.BeginTransaction;
//do the insert
sSQL := 'INSERT INTO Datos VALUES (n1,n2,n3,n4);';
sldb.ExecSQL(sSQL);
//end the transaction
sldb.Commit;
end;

saludos

Última edición por jonydread fecha: 03-04-2013 a las 03:34:39.
Responder Con Cita