/ КОМПЬЮТЕРЫ И ПО / Языки программирования / СУБД и Delphi

Выпуск № 262
от 23.12.2006, 17:35

Вопрос № 67.504

Здравствуйте уважаемые эксперты. Использую ADO и MS SQL Server. При выполнении кода в приложении ADOQuery думает что у запроса есть параметр с именем \developer\Elektro\Project\in\";User ID=Admin;Password=;Extended properties=dBase IV Как заставить ADOQuery не выделять параметры? Приложение: AnsiString InDir="D:\developer\Elektro\Project\in\"; DM->ADOQuery1->SQL->Clear(); DM->ADOQuery1->SQL->Add("INSERT INTO "+TableName+"(DATA,Fl)"); DM->ADOQuery1->SQL->Add("SELECT a.DPS,0"); DM->ADOQuery1->SQL->Add("FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=""+InDir+"";User ID=Admin;Password=;Extended properties=dBase IV')...PK611 as a"); DM->ADOQuery1->SQL->Add("GROUP BY a.DPS"); DM->ADOQuery1->SQL->Add("ORDER BY a.DPS"); DM->ADOQuery1->ExecSQL();

Отправлен: 18.12.2006, 11:34 Вопрос задал: Mongol_ST (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Синельников Сергей Здравствуйте, Mongol_ST! Двоеточие в запросе понимается как начало параметра. У ADOQuery есть свойство ConnectionString. Попробуйте весь OpenDataSource поместить туда, а в запросе оставить только имя таблицы.

Ответ отправил: Синельников Сергей (статус: 2-ой класс) Ответ отправлен: 19.12.2006, 05:48

Вопрос № 67.530

Уважаемые эксперты по Дельфи! Может кто сталкивался с ситуацией: при выполнении программы в строке помеченной звездочкой(*) происходит ошибка. Project XXX raised exception class EAccessViolation with message 'Access violation at adress 77C4809E in module 'msvcrt.dll'. Write of ardess YYY' Если же стоку *ADOSQL.SQL.Append('where X.b=:inPR') заменить на *ADOSQL.SQL.Append('where X.b=1') - все работает без проблем. Delphi2006, MSSQL2000+SP3, msvcrt.dll(7.0.2600.2180), msado15.dll(2.81.1117.0) Приложение: procedure TForm6.Button1Click(Sender: TObject); var ADOSQL:TADOQuery; begin ADOSQL:=TADOQuery.Create(nil); try ADOSQL.Connection:=ADOConnection1; ADOSQL.SQL.Clear; ADOSQL.Parameters.Clear; ADOSQL.SQL.Append('select X.a, (select Y.a from Y where Y.c=X.c) from X'); *ADOSQL.SQL.Append('where X.b=:inPR'); ADOSQL.Parameters.ParamByName('inPR').Value:=1; ADOSQL.Open; finally ADOSQL.Destroy; end; end;

Отправлен: 18.12.2006, 14:46 Вопрос задал: Staram (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: sir henry Здравствуйте, Staram! Закомментируйте вот эту строчку: ADOSQL.Parameters.Clear; Должно заработать.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 18.12.2006, 19:18

Вопрос № 67.532

Здравствуйте, уважаемые эксперты! К сожалению, мне так и не удалось отправить сообщение - появляется та же ошибка. Посмотрите, пожалуйста код программы - может у меня где-то здесь ошибка. Заранее спасибо. С уважением Archangel Приложение: var msgText:TidMessage; begin msgText:=TIdMessage.Create(Nil); Form2.IdSMTP1.Username:=Ivan;// Form2.IdSMTP1.Password:="Пароль"; Form2.IdSMTP1.Host:="SMTP.MAil.ru"; msgText.From.Address:=Ivan@MAil.ru msgText.Recipients.Add.Address:=Darya.Yandex.ru; msgText.Subject:="Hello"; msgText.Body.Text:=Memo1.Lines.Text; Application.ProcessMessages; Form2.IdSMTP1.Connect(5000); If (Form2.IdSMTP1.Connected=false) then begin Form2.Memo1.Text:='Error'; exit; end; Form2.IdSMTP1.Send(msgText);

Отправлен: 18.12.2006, 14:51 Вопрос задал: Archangel (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, Archangel! Интересно, а как ты вообще работаешь с почтой? Ты напрямую подключен к mail.ru - сомнительно? Посмотри в своих настройках интернета (своего провайдера, который дает тебе доступ в интернет) параметры smtp-сервера и укажи его Например для Stream в поле Host нужно записать smtp.tochka.ru --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Практикант) Ответ отправлен: 18.12.2006, 15:04

Отвечает: PaVeL_Ekt Здравствуйте, Archangel! а разве адрес пишется не так: msgText.Recipients.Add.Address:='Darya@yandex.ru' ну в шелпе написано еще можно и вот та msgText.Recipients.Add.Text:='<Darya> Darya@yandex.ru' (Будет рассматриваться как <Darya> - name, а Darya@yandex.ru - address) в хелпе погляди TIdEMailAddressItem.Address --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 10-ый класс) Ответ отправлен: 18.12.2006, 15:06 Оценка за ответ: 4 Комментарий оценки:

Отвечает: sir henry Здравствуйте, Archangel! 1. Все строковые константы необходимо заключать в одинарные кавычки. Вы этого не делаете почему-то. 2. Двойные кавычки при написании строковых констант применяются в Си, а отнюдь не в Дельфи. У Вас ошибка. 3. Каким образом у Вас осуществляется соединение с интернетом?

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 18.12.2006, 19:28 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.38 от 20.12.2006