2 проблемы: вставка в ADODataset и с ADOQuery

[edgy]

пишет все ту же ошибку: Could not convert variant of type(string) into type (double).

Это значит, что параметр и присваеваемое ему значение имеют разные типы данных. StrToFloat вам поможет.

[shosse]

to ШАНИ

Запрос должен выглядеть так:
ADOQuery1.SQL.Add('Insert Into Table Sources(SourceName,SourceTypeID) Values (char(39)+eSourceName.Text+char(39)+','+DBLcbSourceType.KeyValue+')');

Знак апостроф (') в Delphi воспринимается как начало текстовой строки, а по синтаксису SQL нужно в запросе применять его, а не ковычки. Если написать '+eSourceName.Text+', то в таблицу будет добавлена строка +eSourceName.Text+

[Шани]

edgy, StrToFloat-то я знаю, но дело в том, что ни одного дробного параметра у меня нет.
Заменила кавычки на char(39) - то же самое.
Т.к. после работы мозг уже не совсем адекватный, то на всякий случай: теперь это выглядит так:

ADOQuery1.SQL.Add('Insert Into Table Sources(SourceName,SourceTypeID) Values('+char(39)+eSourceName.Text+char(39)+','+DBLcbSourceType.KeyValue+')');

[shosse]

Данный параметр DBLcbSourceType.KeyValue текстовый или числовой???

Завтра посмотрю правильный синтаксис написания команды INSERT. Смущает также параметр Sources.

[Шани]

DBLcbSourceType.KeyValue типа variant. Числовым его сделать не проблема. Как тогда правильно сформировать запрос?

* спасибо большое, что помогаете

[edgy]

Кстати, тоже обратил внимание - что такое Table Sources? Это такое название у таблицы? Или все же она называется "Sources"?
Попробуйте такой код:

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'INSERT INTO Sources( SourceName, SourceTypeID ) VALUES( :SrcName, :SrcTypeId )';
  ADOQuery1.Parameters.Refresh;
  ADOQuery1.Parameters.ParamByName( 'SrcName' ).Value := eSourceName.Text;
  ADOQuery1.Parameters.ParamByName( 'SrcTypeId' ).Value := DBLcbSourceType.KeyValue;
  ADOQuery1.ExecSQL;

[Mitriy08]

ADOQuery1.SQL.Add('Insert Into Table Sources(SourceName,SourceTypeID) Values('+char(39)+eSourceName.Text+ char(39)+','+DBLcbSourceType.KeyVal ue+')');

Чтобы ты сдесь не писал, в итоге у тя должна получится строка.
Переведи вот это - DBLcbSourceType.KeyValue в текст и должно все работать.

[Шани]

Благодарю всех за помощь! Сегодня на работе разобралась, все заработало. А сделала в итоге так:

st := DBLcbSourceType.KeyValue; //st - типа integer
                ADOQuery1.SQL.Clear;
                ADOQuery1.SQL.Add('Insert Into Sources(SourceName,SourceTypeID) Values( :Name, :Type)');
                ADOQuery1.Parameters.ParamByName('Name').Value := eSourceName.Text;
                ADOQuery1.Parameters.ParamByName('Type').Value := st;
                ADOQuery1.ExecSQL;
                ADOQuery1.Close;

Все-таки слово "Table" там было лишнее %)

[shosse]

Или можно так:

var s:string;
i:integer;
begin
s:='Привет';
i:=110;
qr.sql.clear;
qr.sql.add('INSERT INTO test (str,ut) VALUES ("'+s+'",'+inttostr(i)+')');
qr.execsql;
end;