Записать значение переменной в БД

[Agusha3]

Всем доброе утро, хочу записать значение переменной в базу данных:

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.add('INSERT INTO test (NEdr) VALUES (''Q'')');
ADOQuery2.ExecSQL;

В итоге, либо в БД записывается переменная Q, а не ее значение, либо, если убрать кавычки выводится ошибка: "Ошибка синтаксиса конструкции INSERT INTO", либо ошибка, что переменная не имеет значения пол умолчанию. Q имеет тип String, в а бд fstring. Очень надеюсь на вашу помощь.

[Stilet]

with ADOQuery2 do begin
 SQL.Text:='INSERT INTO test (NEdr) VALUES (:Q)';
 Parameters.ParamByName('Q').Value:=Чего-то там;
 if ExecSQL<>0 then Записано успешно;
end;

[Agusha3]

Сообщение от Stilet

with ADOQuery2 do begin
 SQL.Text:='INSERT INTO test (NEdr) VALUES (:Q)';
 Parameters.ParamByName('Q').Value:=Чего-то там;
 if ExecSQL<>0 then Записано успешно;
end;

Спасибо за ответ, у меня вот такая конструкция получилась:

ah:= 1;
i:=0;
Rows := Exel.ActiveSheet.UsedRange.Rows.Count;
For i:= 0 to Rows do begin
ah:=ah+1;
s1 := Exel.Cells[ah, 1].Text;


ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:=('INSERT INTO test (NEdr) VALUES (:s1)');
ADOQuery2.Parameters.ParamByName('s1').Value := s1;
ADOQuery2.ExecSQL;

У меня происходит поячеечное считывание из эксель файла, передавание значение ячейки в переменную и запись переменной в бд. Но почему то записывается только половина получившихся переменных.

[Stilet]

Во-первых:

ah:= 1;
i:=0;
Rows := Exel.ActiveSheet.UsedRange.Rows.Count;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:=('INSERT INTO test (NEdr) VALUES (:s1)');
For i:= 0 to Rows do begin 
 ah:=ah+1;
 s1 := Exel.Cells[ah, 1].Text;
 ADOQuery2.Parameters.ParamByName('s1').Value := s1;
 ADOQuery2.ExecSQL;
end;

Во-вторых: А зачем тебе понадобилось переносить данные в базу из экзеля?
И что за СУБД у тебя?

[Agusha3]

Сообщение от Stilet

Во-первых:

ah:= 1;
i:=0;
Rows := Exel.ActiveSheet.UsedRange.Rows.Count;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:=('INSERT INTO test (NEdr) VALUES (:s1)');
For i:= 0 to Rows do begin 
 ah:=ah+1;
 s1 := Exel.Cells[ah, 1].Text;
 ADOQuery2.Parameters.ParamByName('s1').Value := s1;
 ADOQuery2.ExecSQL;
end;

Во-вторых: А зачем тебе понадобилось переносить данные в базу из экзеля?
И что за СУБД у тебя?

Это не мне, это задание такое. Нужно перенести все значения из экселя в DBF(с помощью делфи). А я не придумал способ лучше, чем тот, который представлен выше.

Если исправить код, как написали Вы, то все равно в бд записывается только 12 значений. А цикл состоит из 400 повторений. П.С. Спасибо)

[Stilet]

Нужно перенести все значения из экселя в DBF

Сохрани документ как DBF. То что ты делаешь контрпродуктивно.
Я не знаю почему у тебя не заносятся значения, отлаживать надо, но я бы так не делал.

[Agusha3]

Сообщение от Stilet

Сохрани документ как DBF. То что ты делаешь контрпродуктивно.
Я не знаю почему у тебя не заносятся значения, отлаживать надо, но я бы так не делал.

А через делфи разве можно сохранить xls как DBF? Я такого не встречал

[Stilet]

А че нет? Вызвать метод сохранения с параметрами нужными.

[Agusha3]

Сообщение от Stilet

А че нет? Вызвать метод сохранения с параметрами нужными.

Спасибо, буду пробовать, интересно что если брать метод считывания из ячейки, то в мемо проходят все значения переменной, а вот до бд мало что доходит.

[Stilet]

Может быть ошибки всплывают? Так то код правильный, значит СУБД может отвергать по разным причинам. Мало ли, тип не соответствует, или пусто в ячейке.