VPF::Добавление новых пользователей в MySQL

mr_tg

Дата 15.2.2014, 10:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте! Только-только начал работать  с MYSQL
Помогите правильно Подключится к удаленному mysql серверу через DELPHI 7
Добавление новых пользователей в MySQL (По моему я не правильно создал или настроил пользователя в MYSQL.)
1)    Установлена  xampp-win32-1-7-4-vc6-installer
2)    Apache 2.2.17
3)     MySQL 5.5.8 (Community Server)
4)    Выполнил запрос UPDATE mysql.USER SET Password = OLD_PASSWORD('password')  WHERE Host = '%' AND USER = 'myuser';
список таблицы mysql/user  (не смог поставить снимок экрана, ...)

Код


USER  /  HOST   /  PASSWORD
root / localhost / *1667((30 simvolov))bad0f0
root / 127.0.0.1 /
       / localhost  /
pma / localhost  / *247(30 simvolov)C9D1E19

user  /  %   /*247(30 simvolov)C9D1E19
myuser / % / 5d2e19393cc5ef67  (пароль по старому)

Код


//************************** 1-метод
procedure TForm1.SpeedButton4Click(Sender: TObject);
VAR
ip,DBName,psw,usr:String;
begin
ip:=Edit3.Text;     
psw:=Edit4.Text; 
usr:=Edit5.Text; 
DBName:='usr_activation';
IF SQLConnection1.Connected=False  then
  begin
   SQLConnection1.Params.Text:='';
   SQLConnection1.ConnectionName:='MySQLConnection';
   with SQLConnection1.Params do
     begin
      Strings[1]:='HostName='+ip;
      Strings[2]:='Database='+DBName;
      Strings[3]:='User_Name='+usr;
      Strings[4]:='Password='+psw;
     end;
   ShowMessage(SQLConnection1.Params.GetText);
   SQLConnection1.Connected:=True;
   SQLQuery1.Close;
   SQLQuery1.SQL.Text:='SELECT * FROM  `accccccct` LIMIT 0 , 30';
   SQLQuery1.Open;
  end;
end;

Код


//************************** 2-метод
procedure TForm1.SpeedButton5Click(Sender: TObject);
VAR
ip,DBName,psw,usr:String;
begin

ip:=Edit3.Text
psw:=Edit4.Text;
usr:=Edit5.Text;
DBName:='usr_activation';
IF ADOC_activation.Connected=False
 then
  begin
   ADOC_activation.ConnectionString:='';
   ADOC_activation.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER='+ip+';UID='+usr+';PASSWORD='+psw+';DATABASE='+DBName+';PORT=3306"';
   ShowMessage(ADOC_activation.ConnectionString);
   ADOC_activation.Connected:=true;   
   ADOQ_a.Close;
   ADOQ_a.SQL.Text:='SELECT * FROM  ` accccccct ` LIMIT 0 , 30';
   ADOQ_a.Open;
  end;
end;

на 2 типи подключения получается подключится только через Root и только на локальном компе (на удалённом никак немогу)

Это сообщение отредактировал(а) mr_tg - 15.2.2014, 16:54

DYUMON

Дата 18.3.2014, 13:55 (ссылка)

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

Загрузка ...

Опытный

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

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

может у другого пользователя нет прав на базу ? открой через редактор базы типа dbforge mysql и посмотри чего с правами у пользователя

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

Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.

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