Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Не работает INSERT

Автор: vood 8.7.2006, 04:11

Я использую локальную БД (Paradox) через BDE.
Для доступа используеься компонент TQUERY
Так вот: когда я пишу SQL зарос (INSERT into) и затем выполняю его ничего не происходит (база не изменяется)

Автор: RemaGe 8.7.2006, 14:16

Может тебе просто Query обновить надо?
попробуй:

Код


Query.close;
Query.open;

Автор: Poseidon 8.7.2006, 15:30

Эх, ну сколько раз повторять? С семнадцатой строке у тебя ошибка! Код давай, каторый не работает

Автор: vood 9.7.2006, 04:02

Код


query1.sql.text:='insert into "users.db" (nik,password) values("'+request.queryfields.values['nik']+'","'+request.queryfields.values['password']+' ")';
query1.execsql;

Автор: Тьма 9.7.2006, 14:24

Код


query1.sql.text:='insert into users.db (nik,password) values("'+request.queryfields.values['nik']+'","'+request.queryfields.values['password']+' ")';
query1.execsql;

без кавычек

Автор: Voyager 10.7.2006, 04:30

Вот пример из моей программы, думаю поможет.

Код


function Q2 (const Str :String) : String;
begin
  Result := AnsiQuotedStr(Str,'"');
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Sql:string;
begin
    Sql := 'insert into "'+DBFilename+'" (PK,Datchik,LastData,AverageData,MaxData) values (' +
                Q2(Edit1.Text) + ',' +
                Q2(Edit2.Text) + ',' +
                ', :prm1, :prm2, :prm3)';
    Form1.Query1.Close;
    Form1.Query1.SQL.Clear;
    Form1.Query1.SQL.Text:=Sql;
    Form1.Query1.params.ParseSQL(Form1.Query1.sql.text, true);
    Form1.Query1.params.parambyname('prm1').value:=Strtofloat(Edit3.Text);
    Form1.Query1.params.parambyname('prm2').value:=Strtofloat(Edit4.Text);
    Form1.Query1.params.parambyname('prm3').value:=Strtofloat(Edit5.Text);
    Form1.Query1.ExecSQL;

Автор: vood 11.7.2006, 10:28

спасибо