conexion sqlite con mi aplicación
 

amigos, estoy en un dilema es primera vez que hago esto de bd y he averiguado pero me estanque

tengo la sgte app muy sencilla y quiero usar sqllite y se almacenen datos agregados a mi listview me explico,

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 nItem: TListItem;
begin
  nItem := ListView1.Items.Add;
  nItem.Caption := DateToStr(DateTimePicker1.Date);
  nItem.SubItems.Add(ComboboxEx1.Text);
  nItem.SubItems.Add(edit1.Text);
  nItem.SubItems.Add(edit2.Text);
end;

tengo delphi 2010 embarcadero y sqlliteexpert personal y uso windows 7
cree una tabla y datos esto aparece en el apartado dll de sqllite expert y el archivo que guarda es de extension .db

Código SQL [-]
CREATE TABLE "Datos" (
  [fecha] DATETIME, 
  [area] CHAR, 
  [tipo] CHAR, 
  [detalle] CHAR);

ahora mi problema no se como hacer que esto funcione xD
he visto sobre conectar con ADO pero no se los parametros que debo colocar
y en DBexpress al parecer es mas simple pero tampoco se como hacerlo
si me pudieran dar un ejemplo de como realizar esto como agrego los datos a la BD seria de mucha ayuda


saludos y muchas gracias!!^\||/

amigos estoy usando sqlite wrapper de itwriting tengo esto

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 nItem: TListItem;
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
id1,id2,id3,id4: String;
begin
  nItem := ListView1.Items.Add;
  nItem.Caption := DateToStr(DateTimePicker1.Date);
  id1 := DateToStr(DateTimePicker1.Date);
  nItem.SubItems.Add(ComboboxEx1.Text);
  id2 := ComboboxEx1.Text;
  nItem.SubItems.Add(edit1.Text);
  id3 := edit1.Text;
  nItem.SubItems.Add(edit2.Text);
  id4 := edit2.Text;
  begin
slDBPath := ExtractFilepath(application.exename)
+ 'bd\dbdatos.db';
sldb := TSQLiteDatabase.Create(slDBPath);
//begin a transaction
sldb.BeginTransaction;
//do the insert
sSQL := 'INSERT INTO Datos VALUES ("id1",id2,"id3","id4");';
sldb.ExecSQL(sSQL);
//end the transaction
sldb.Commit;
end

end;

pero al recuperar asi los valores "id1",id2,"id3","id4" sale error como logro recuperar los datos??

Hay un begin que te sobra.

Un saludo

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

me respondo y ha funcionado por lo tanto dejo un codigo funcional si sirve a alguien

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 nItem: TListItem;
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
id1,id2,id3,id4: String;
begin
  nItem := ListView1.Items.Add;
  nItem.Caption := DateToStr(DateTimePicker1.Date);
  id1 := DateToStr(DateTimePicker1.Date);
  nItem.SubItems.Add(ComboboxEx1.Text);
  id2 := ComboboxEx1.Text;
  nItem.SubItems.Add(edit1.Text);
  id3 := edit1.Text;
  nItem.SubItems.Add(edit2.Text);
  id4 := edit2.Text;
  begin
slDBPath := ExtractFilepath(application.exename)
+ 'bd\dbdatos.db';
sldb := TSQLiteDatabase.Create(slDBPath);
//begin a transaction
sldb.BeginTransaction;
//do the insert
sSQL := 'INSERT INTO Datos VALUES (' +QuotedStr(id1)+',' +QuotedStr(id2)+',' +QuotedStr(id3)+',' +QuotedStr(id4)+');';
sldb.ExecSQL(sSQL);
//end the transaction
sldb.Commit;
end

end;