Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.01.2013, 01:36
Аватар для Paskal
Paskal Paskal вне форума
Новичок
 
Регистрация: 28.09.2010
Сообщения: 93
Репутация: 12
Вопрос Коннект к mysql

Ребята пишу клиент к удаленной бд. (на локалке работает )
ввел в нее данные но не конектится эти же данные через другой клиент =(сторонний работает),
Есть в настройках MySQLClient.UnixSocket но не могу понять что туда писать, и логические данные вводил и пустым оставлял и пути разные прописывал типа /var/run/mysqld/mysqld.sock
параметры сервака тут http://91.200.40.77/

Код не мой только использую
Код:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sHintManager, sSkinManager, StdCtrls, sEdit, DBXpress, DB,
  DBClient, SimpleDS, SqlExpr, sButton, ExtCtrls, sPanel, sLabel, Grids,
  DBGrids, sSkinProvider, ComCtrls, sStatusBar, sGauge, sGroupBox, ImgList,
  acAlphaImageList, Buttons, sSpeedButton, Printers, sMemo, URLMon, ShellApi, WinInet,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Jpeg,
  uMySqlVio, uMysqlCT, uMysqlClient, uMysqlHelpers;
...
 private
    { Private declarations }
  MySQLClient: TMySQLClient;
  MySQLResult: TMysqlResult;
...
procedure TForm1.sButton1Click(Sender: TObject);
var
Com1, Com2, str:string;
OK:boolean;
begin
//----------------------начало-проверки
MySQLClient.Host := '91.200.40.77';
MySQLClient.port := 3306;
MySQLClient.user := 'user';
MySQLClient.password := 'user';
MySQLClient.UnixSocket :=''; <--ЧТО СЮДА ПИСАТЬ???
MySQLClient.Db := 'namedb';


MySQLClient.UseNamedPipe := false;
MySQLClient.UseSSL := false;
MySQLClient.Compress := false;
MySQLClient.TrySockets :=true;


if MySQLClient.Connect then
begin
Showmessage('да');
//MySQLResult := MySQLClient.Query('SELECT products_name FROM os_orders_products where products_model = "'+ sEdit1.Text +'"', True, OK);
//str:=MySQLResult.FieldValueByName('products_name');
end
else
begin
Showmessage('Не удалось подключится к серверу!');
end;
end;

Помогите разобраться ?
Ответить с цитированием
  #2  
Старый 22.01.2013, 01:55
Аватар для Paskal
Paskal Paskal вне форума
Новичок
 
Регистрация: 28.09.2010
Сообщения: 93
Репутация: 12
По умолчанию да вот нашел ответы сервера

error <- MySQLClient.LastError
в переводе пишет ->
клиент не поддерживает протокол аутентификации с просьбой сервера
рассмотреть вопрос о повышении Msql клиента


как я понял он просит другой протокол в оф клиенте он работает через tcp\ip а как здесь мне бороться с этим?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:39.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025