VPF::ADOCommand не передает текст... - Форум программистов

Fresh Meat

Дата 15.9.2005, 15:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: string;
begin
c:=edit1.Text;
a:=edit3.text;
b:=edit2.text;

ADOCommand1.CommandText:= 'Insert into myteble values('+a+','+b+','+c+')';
ADOCommand1.Execute;
end;

smile

bas

Дата 15.9.2005, 16:54 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

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

И в результате у тебя будет строка
Insert into myteble values(Вася,Пупкин,1976)
Если с последним параметром понятно то с первыми двумя проблема.
И где список полей, или это не обязательно?

Это сообщение отредактировал(а) bas - 15.9.2005, 16:55

offline

Дата 15.9.2005, 18:31 (ссылка)

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

Загрузка ...

Опытный

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

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

а может так smile

Код


 INSERT INTO Table2 (Поле1, Поле2, Поле3, ... ) 
 SELECT Поле1, Поле2, Поле3, ... FROM Table1 
 WHERE условие

только это запрос на выборку из таблицы

Это сообщение отредактировал(а) kirilllius - 15.9.2005, 18:32

Guest

Дата 16.9.2005, 07:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

[quote]Если с последним параметром понятно то с первыми двумя проблема.
[/quotе]
Вот именно... Ну а что не так-то? Вроде типы совпадают.... smile

Петрович

Дата 16.9.2005, 08:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

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

Цитата(Guest @ 16.9.2005, 08:02)

Вот именно... Ну а что не так-то? Вроде типы совпадают....

Интересно, какй это тип может принять значение Вася. Наверное это всетаки значение строкового типа, требующего заключать текст в кавычки smile

.
Надо наверное так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: string;
begin
  c:=edit1.Text;
  a:=edit3.text;
  b:=edit2.text;

  ADOCommand1.CommandText:= 'Insert into myteble values('''+a+''','''+b+''','''+c+''')';
  ADOCommand1.Execute;
end;

обрати внимание на кавычки.
Правда, тогда сломается если в строках edit?.Text встретятся кавычки. Чтобы этого не произошло, надо делать так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: string;
begin
  c:=edit1.Text;
  a:=edit3.text;
  b:=edit2.text;

  ADOCommand1.CommandText:= 'Insert into myteble values('
                                        +AnsiQuotedStr(a,'''')+','
                                        +AnsiQuotedStr(b,'''')+','
                                        +AnsiQuotedStr(c,'''')+')';
  ADOCommand1.Execute;
end;

Но, правильнее всего будет так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText:= 'Insert into myteble values(:a,:b,:c)';
  ADOCommand1.Parameters.ParamValues['a'] := edit1.Text;
  ADOCommand1.Parameters.ParamValues['b'] := edit2.Text;
  ADOCommand1.Parameters.ParamValues['c'] := edit3.Text;
  ADOCommand1.Execute;
end;

Это сообщение отредактировал(а) Петрович - 16.9.2005, 08:37

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

Все знать невозможно, но хочется

FreM

Дата 16.9.2005, 08:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Пасиба! Петровичу - респект!

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