VPF::Не работает INSERT - Форум программистов

vood

Дата 8.7.2006, 04:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 23.2.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

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

--------------------

Вы все еще курите ? Тогда мы идем к вам

RemaGe

Дата 8.7.2006, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 14.4.2006

Репутация: нет
Всего: нет

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

Код


Query.close;
Query.open;

Poseidon

Дата 8.7.2006, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

vood

Дата 9.7.2006, 04:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 23.2.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

Код


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

без кавычек

--------------------

Vir magni ingenii

Voyager

Дата 10.7.2006, 04:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 1
Всего: 18

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

Код


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;

Это сообщение отредактировал(а) Voyager - 10.7.2006, 04:33

vood

Дата 11.7.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 23.2.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

спасибо

--------------------

Вы все еще курите ? Тогда мы идем к вам

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »