Поторопился я конечно ... У мне составной sql запрос что типо этого
| Код |
DataModule1.dlya_baz.Active:=False;
DataModule1.dlya_baz.TableName:=DBLookupComboBox1.Text;
DataModule1.dlya_baz.Active:=True;
ListBox1.Clear;
for i := 0 to DataModule1.dlya_baz.FieldCount - 1 do
ListBox1.Items.Add(DataModule1.dlya_baz.Fields[i].DisplayName);
DataModule1.ADOQuery1.Active:=False;
DataModule1.ADOQuery1.Close;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add('INSERT INTO '+DBLookupComboBox1.Text);
DataModule1.ADOQuery1.SQL.Add('(data, ');
for j := 1 to ListBox1.Items.Count - 1 do
if j=ListBox1.Items.Count-1 then
DataModule1.ADOQuery1.SQL.Add(ListBox1.Items[j]+')')
else
DataModule1.ADOQuery1.SQL.Add(ListBox1.Items[j]+' ,');
DataModule1.ADOQuery1.SQL.Add('VALUES("'+DateTimeToStr(DateTimePicker1.Date)+'",'+DBEdit3.Text+')');
Memo2.Lines.Text:=DataModule1.ADOQuery1.SQL.Text;
|
и получается запрос
| Код |
INSERT INTO 231
(data,
1 ,
2,
3)
VALUES("22.11.2010",312)
|
т.е столбиков у 4 а заполняются только два, нужно циклом пройтись по столбикам...
а ваш пример после | Код |
DataModule1.dlya_baz[DataModule1.dlya_baz.Fields[i].FieldName.]
|
|
