VPF::bd мускул в dbgrid - Форум программистов

zohan

Дата 28.11.2008, 13:52 (ссылка)

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

Загрузка ...

Новичок

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

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

ребята подскажите как вывести БД мускула в делфи.
с базой соединился, теперь следующий шаг, может какие-нить примеры дадите или конкретные советы как это делается

Код


procedure TForm1.Button1Click(Sender: TObject);
var
   host, user, passwd: String;
begin
 host:=edit1.text;
 user:=Edit2.Text;
 passwd:=Edit3.Text;
 {коннект}
 mysql_connect(@mysqlrec, PChar(host), PChar(user), PChar(passwd));
  if mysqlrec._net.last_errno = 0 then
          ShowMessage ('подключение успешно')
      else
         ShowMessage ('подключиться не удалось');

end;

procedure TForm1.Button2Click(Sender: TObject);
 var
   db: String;
   retval: Integer;
begin
 db:= edit4.Text;
 retval:=mysql_select_db(@mysqlrec, PChar(db));
 if retval <> 0 then
  ShowMessage('подключиться не удалось к' + db)
   else
    ShowMessage('подключение успешно к' + db);

end;

код соединения

Это сообщение отредактировал(а) Rodman - 28.11.2008, 21:37

Rodman

Дата 30.11.2008, 16:44 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

не юзал такой метод, но вот почитай.. мож поможет

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

CRM с функцией АвтоОбзвона

Лотереи мира

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