Платные хостинги     Раскрутка сайта     Книги по программированию

Ошибки при попытке подключения к MySQL.

- Уже два часа юзаю поиск тут и на mysql.ru но ниче найьт не могу..Трабла такая...Используя dbExpress создаю соединение с mysql SQLConnection1. Вот код из DFM'a.Код  object SQLConnection1: TSQLConnection    ConnectionName = 'MySQLConnection'    DriverName = 'MySQL'    GetDriverFunc = 'getSQLDriverMYSQL'    LibraryName = 'dbexmysql.dll'    Params.Strings = (      'DriverName=MySQL'      'HostName=127.0.0.1'      'Database=lesson'      'User_Name=root'      'Password='      'BlobSize=-1'      'ErrorResourceFile='      'LocaleCode=0000')    VendorLib = 'libmysql.dll'highlightSyntax('delphi0N2M1M','delphi');Дык вот, когда пытаюсь Active сделать = TRUE через инспектор объектов - получаю....1. libmysql.dll not found. (Понапихал куда только можно... ив /bin и в папку с проектом и в c:/windows и /system32)...2. Очищаю Vendorlib, получаю DLL/Shared Library name not set.Пробовал и полные пути написать - та же фигня..Как от всего этого избавиться понять никак нет могу...С самим MySQL через PHP работаю уже года два.С базами из Delphi работал только с 7 Paradox'ом...Еще один такой момент...В результате каких-то монипуляций иногда выскакивает еще одна вещь что-то типа "Невозможно загруить драйвер" (или функцию драйвера)...

- Используй компоненты ZeosAccess

- TMySQL это оно?

- Mal Hack насколько я понял - нет... поищи ZeosDBOhttp://www.zeoslib.net/

- Если в этом покопаться, то можно рпзобраться.. Но повторюсь, надо сделатьна стандартном dbExpress'e...Приложение - просто практика, никуда дальше не пойдет, поэтому надо сделать проще...Все-таки инитересует вариант работы именно с dbExpress..

- Уф, ну и многих же людей я запряг со своей проблемой...Итак, вопрос решился...Рассказываю.1. В папочку с проектом кладем libmySQL.dll от 3 версии MySQL, от 4 будет писать unable to load....2. Предположим, что на форме есть 3 Edit'a для хоста, логина, пароля и базы.3. Объявляем Connection: TSQLConnection.4. При нажатии на кнопку соединения делаем..Код // Create Connection Connection := TSQLConnection.Create(Application);  with Connection do    begin      ConnectionName := 'Connection';      DriverName := 'MySQL';    LibraryName := 'dbexpmysql.dll';    VendorLib := 'libmySQL.dll';    GetDriverFunc := 'getSQLDriverMYSQL';    Params.Add( 'HostName=' + ConnectEditHost.Text );    Params.Add( 'User_Name=' + ConnectEditUser.Text );    Params.Add( 'Password=' + ConnectEditPass.Text );    Params.Add( 'Database='  + ConnectEditBase.Text );    LoginPrompt := TRUE;    try     Open;    Except On Exception Do     begin      Application.MessageBox( 'К сожалению, соединиться с MySQL-сервером не удалось. Проверьте правильность ввода всех параметров.' , 'Ошибка соединения' , 0 );      exit;     end;    end;  end;highlightSyntax('delphiN2U2OW','delphi');Все. К БД коннектиться... Дальше уже можно работать...Есть еще два маленьких вопроса...1. Соединение с базой лучше закрывать только при закрытии программы и открывать при открытии или проделывать эти операции перед выполнением каждого запроса?Если все-таки лучше держать соединение открытым, то как во время работы программы проверить доступность сервера? Грубо говоря как mysql_ping() в PHP.2. Как (оптимальнее и без возникновения ошибок) закрыть соединение...Connection.Free;DataSet.Free;Этого будет достаточно?

- 1. Лучше кон6ечно держать соединение открытым во время работы программы... Т.к. выполнение подключения перед каждым запросом - трата времени и ресурсов...Доступность сервера можно проверить по Connection.Connected...2. Соединение закрывается по Connection.close... Делать Free перед закрытием программы не нужно, т.к. программа при закрытии его все равно выполнит...

- Спасибо (+1)

- Появляется вот такая ошибка на Open из предыдущего кода..Раньше она появлялась на Закрытии приложения...Что за ошибка?

- Я конечно дико извиняюсь, но...От вышеупомянутого "счастья" избавился путем подмены libmySQL.dllНо теперь вопрос в другом..Как в: Код SQLDataSet := TSQLDataSet.Create( Application );  with SQLDataSet do   begin    SQLConnection := Connection;    CommandType := ctQuery;    CommandText := 'INSERT INTO service_categories VALUES( "" , "text" ) ';    DataSource := SQLDataSource;    try      Open;    Except  On Exception do     begin      showmessage( '12' );      exit;     end;    end;   end;highlightSyntax('delphi2ZTZkM','delphi');Отловить именно момент, когда запрос не выполнился...Поскольку при такой констркции: On Exception do (или EDataBaseError) shwmessage показывается в любом случае, даже если запрос выполняется.

- А там разве ExecSQL нету?.. Добавлено @ 19:19 Оно вместо Open - Close используется для разовых инструкций...

-

- Kesh есть-то он есть, н с ним в любом случае showmessage показывается...

- Путем проб и ошибок, осталось только одно...При выполнении хоть Open, хоть ExecSQL, вылетает AccessViolation in address ... in module...На сколько я понимаю это может быть из-за того, что я неправильно связал DataSet, DataSource и Grid..Вот как делаю:Код SQLDataSet := TSQLDataSet.Create( Application );  with SQLDataSet do   begin    Parent := MainForm;    SQLConnection := Connection;    CommandType := ctQuery;   end; SQLDataSource := TDataSource.Create( Application );  with SQLDataSource do   begin    Parent := MainForm;   end; Grid := TDBGrid.Create( Application );  with Grid do   begin    Parent := MainPanel;     .............   end; SQLDataSet.DataSource := SQLDataSource; SQLDataSet.CommandText := 'SELECT * FROM `service_categories`  LIMIT 0 , 30'; SQLDataSet.Open;// Access Violation SQLDataSource.DataSet := SQLQuery; Grid.DataSource := SQLDataSource;highlightSyntax('delphiYmM4MD','delphi');Если в SQLDataSet.CommandText записать Inert ..., то запрос выполняется... Подрузомеваю, что выполняется и SELECT.Но, на SQLDataSet.Open; выскакиват AccessViolation и дальше я так понимаю процедура не продолжается..Посему вопросы:1. Какие мои действия приводят к AccessViolation, или наоборот, чего не хватает.2. Достаточно ли этих строк для отображения результата выполнения SELECT запроса в таблице..

- В кмком модуле у тебя находятся компоненты доступа к БД? В каком участке кода пояляется AccessVioletion? Не в OnCreate главного модуля?А как это могло скомпилиться :Код 'SELECT * FROM `service_categories`  LIMIT 0 , 30';highlightSyntax('delphiNWMyMT','delphi');Тебе нужно тут продублировать одинарные ковычки:Код 'SELECT * FROM ''service_categories''  LIMIT 0 , 30';highlightSyntax('delphiwYzEzM','delphi'); Это сообщение отредактировал <Spawn> - 15.11.2004, 05:32

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD