-
helluvaname (07.01.10 02:35) [0]Всем привет!
Никак не могу справиться с ошибкой при выполненииADOQuery1.SQL.Add(' INSERT INTO Table1 (Field1) ');
ADOQuery1.SQL.Add(' VALUES ('+Edit1.Text+')');
если в поле Edit1 ввожу число то выдает:
Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции
если ввожу string то выдает:
Параметр xxx не имеет значения по умолчанию
вот полный код:procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(' INSERT INTO Table1 (Field1) ');
ADOQuery1.SQL.Add(' VALUES ('+Edit1.Text+')');
ADOQuery1.Open;
BookName.Refresh;
DBGrid1.Repaint;
//MsgBox(Edit1.Text);
end; -
Германн © (07.01.10 02:57) [1]Блин, модераторы!
:)
Уже написал ответ!
Еще раз писать что-ли? :)
> helluvaname (07.01.10 02:35)
> Текущий проводник не поддерживает возврат нескольких наборов
> записей в результате одной операции
Приведи оригинальный ответ на аглицком. (Просто интересно).
И какой учебник учил тебя применять метод Open при модификации данных БД? -
12 © (07.01.10 09:22) [2]use parametrs
ex:
{
qQ.sql.text =
Select
a
From d
Where
d.UreDate = :PD
}
qQ.Parameters.ParamByName('PD').Value:=s;
qQ.Active:=true; -
helluvaname (07.01.10 10:19) [3]2 Герман, интернет - вот мой учебник)
Спасибо всем, вот рабочий код:procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Table1 (Field1) VALUES (:pfield1)');
ADOQuery1.Parameters.ParamByName('pfield1').Value := Edit1.Text;
ADOQuery1.ExecSQL;
end;
Извините, что не в той ветке создал. -
12 © (07.01.10 10:49) [4]>> Германн ©
поставь Punto Switcher & разреши вести в нем дневник
(я так к нему привык - что при переходе на новую машину обязательно ставлю первым делом)
>> helluvaname
ADOCommand еще лучше использовать -
Anatoly Podgoretsky © (07.01.10 13:06) [5]> helluvaname (07.01.2010 02:35:00) [0]
У тебя есть вопрос по Дельфи?