hola, a ver si sabes por que me tira el error...
Código Delphi
[-]adoquery1.DataSource:= form1.dtSource;
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add ('Select Apellidos, Nombre, Tinte');
AdoQuery1.SQL.Add ('FROM database.mdb');
AdoQuery1.SQL.Add ('WHERE Apellido like ' + combobox1.text);
AdoQuery1.Open;
ListView1.ViewStyle:= vsReport;
ListView1.Columns.Clear;
ListColumn:= ListView1.Columns.Add;
ListView1.Columns[0].Width:= 0;
for i:= 1 to adoquery1.FieldCount -3 do
begin
ListColumn:= ListView1.Columns.Add;
ListColumn.Width:= 160;
ListColumn.Caption:= adoquery1.Fields[i].FieldName;
end;
adoquery1.First;
while not adoquery1.Eof do
begin
with ListView1.Items.Add do
for i:= 1 to adoquery1.FieldCount -3 do
SubItems.Add(adoquery1.Fields[i].AsString);
adoquery1.Next;
end;
El error lo da en la linea del
dice que hay un error de sintaxis.
A ver si puedes ayudarme ecfisa por que creo que el from esta bien puesto. Y la base de datos se encuentra en el mismo directorio que la aplicacion.
saludos.