Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Access не воспринимает запрос   Найти похожие ветки 

 
Denis ©   (2005-08-10 10:54) [0]

Пытаюсь работать с базой Access 2000 с помощью компонентов ADO.
Попытка выполнить простейший запрос на вставку в таблицу из Delphi
вызывает ошибку "Неправильный синтаксис инструкции INSERT INTO",
но этот же запрос, выполненный в Access, нагло и молча добавляет запись в таблицу.
Думал, дело в счетчике, убрал его - та же петрушка.
Подскажите, в чем может быть дело.
Таблица из трех полей - числовое(уже не счетчик) и два текстовых.
Вот как выглядит запрос:
INSERT INTO [USER] (iduser,usname,phone)
values (1,"я","555")

Пытался еще так -
INSERT INTO [USER]
select 1 as iduser,"я" as usname, "555" as phone


 
ANB ©   (2005-08-10 12:14) [1]


> Denis ©   (10.08.05 10:54)
- в 17 строке ошибка.


 
Denis ©   (2005-08-10 12:21) [2]

Я в Memo вывожу текст запроса для проверки, потом копирую его без изменений в Access - и шуршит как миленький.
Ну вот как запрос формируется:
сразу скажу - Edit-ы гарантированно не пустые.

Tb:=TAdoQuery.Create(self);
Tb.Connection:=fmMain.Connection;
Tb.SQL.Add("SELECT USER.* FROM [USER] WHERE (((USER.USNAME)= "+#39+edUser.Text+#39+"))");
Tb.Open;
if not Tb.IsEmpty
then
MessageDlg("Пользователь с таким именем уже зарегестрирован!",mtWarning,[mbOk],0)
else
begin
Tb.Close;
Tb.SQL.Clear;
Tb.SQL.Add("select max(IDUSER) as IDUSER from [USER]");
Tb.Open;
Tb.FieldList.Update;
IDUS:=Tb.Fields[0].AsInteger+1;
Tb.Close;
Tb.SQL.Clear;
Tb.SQL.Add("INSERT INTO [USER] (iduser,usname,phone) ");
Tb.SQL.Add("values ("+IntTOStr(IDUS)+","+ #39+edUser.Text+#39+","+#39+edNew.Text+#39+")");
Memo1.Lines.assign(Tb.SQL);
Tb.ExecSQL;
MessageDlg("Новый пользователь успешно добавлен!",mtWarning,[mbOk],0);
Close;
end;
Tb.Free;


 
ANB ©   (2005-08-10 12:45) [3]

Порекомендовал бы вообще то параметры юзать, вместо строк в кавычках и чисел - констант.

А по сабжу - может провайдер не тот ? Я в них не особо разбираюсь, запости строку коннекта - ща мастера придут, разберут.

Кстати, возможна проблема в кавычках. Замени константы в запросе на параметры и поиграй с квадратными строками.


 
Paul_K ©   (2005-08-10 12:54) [4]

после
Memo1.Lines.assign(Tb.SQL);
напиши
showmessage(Tb.SQL.TEXT)
и посомотри что исполняешь



Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.04 c
1-1125412713
Андрей Молчанов
2005-08-30 18:38
2005.09.25
DrawAnimatedRects


14-1125319285
data
2005-08-29 16:41
2005.09.25
Вопрос к "кошатникам" и "собачникам"


14-1125169371
Lamer@fools.ua
2005-08-27 23:02
2005.09.25
Угадай мелодию


2-1124354316
Гость22
2005-08-18 12:38
2005.09.25
Есть ли функции, с помощью которых можна выделить целую часть..


4-1122898897
MegaVolt
2005-08-01 16:21
2005.09.25
Ручное стирание ListView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский