Сайт с базой mysql,как соединиться?

[Кинельски]

Есть база данных сайта как к ней подключиться? Пользуюсь делфи7, какой компонет для этого использовать, и хотелось бы кусочек кода

[Кинельски]

скачал DirectMySQL нашел статью ка подключиться к базе данных

var
Form1: TForm1;
MySQLClient:TMySQLClient;
MySQLResult:TMySQLResult;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MySQLClient:=TMySQLClient.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
MySQLClient.Free;
if MySQLResult<>nil then
MySQLResult.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
MySQLClient.Host:='localhost';
MySQLClient.User:='root';
MySQLClient.Password:='';
MySQLClient.Db:='time';
if MySQLClient.connect then
begin
showmessage('Подключились');
MySQLResult:=MySQLClient.query('SEL ECT * FROM admin_users WHERE username="dummy_username" and password="dummy_pass"',true,OK);
edit1.Text:= '';


end
else
begin
showmessage('нет подключения');
end;
end;

end.

но выделенная строка высвечивается красным
и пишет

[Error] Unit1.pas(53): Undeclared identifier: 'OK'

[Korben5E]

Сообщение от Кинельски

Как исправить ошибку???

поставить курсор на место ОК, нажать Ctrl+Shift+пробел
посмотреть что функция просит в том месте

исходя из тырнета - там должно быть имя переменной типа boolean

[Кинельски]

Сообщение от Korben5E

поставить курсор на место ОК, нажать Ctrl+Shift+пробел
посмотреть что функция просит в том месте

исходя из тырнета - там должно быть имя переменной типа boolean

да OK:boolean; ошибка пропала.
Даже научился создовань таблицы, а можно как нибудь прочитать значение из таблицы в переменную?
а:= таблица user, столбец1, строка1; ?

[Korben5E]

Сообщение от Кинельски

да OK:boolean; ошибка пропала.
Даже научился создовань таблицы, а можно как нибудь прочитать значение из таблицы в переменную?
а:= таблица user, столбец1, строка1; ?

блин... а интернет для кого???

Edit1.Text := MySQLResult.FieldValueByName('usern ame');

[Кинельски]

а Можно по подробнее?

('usern ame');

что сюда надо вписывать?
вот я создаю таблицу

MySQLClient.query('CREATE TABLE tel_numb(fio text)',true,ok);

Записываю строку

MySQLClient.query('INSERT INTO tel_numb(fio) values("Вася Пушкин")',true,ok);

пробывал

('1,1')
(tel_numb,fio)
(tel_numb)
(fio)
(tel_numb(fio))

не получается

[Кинельски]

MySQLResult:=MySQLClient.query ('select * from tel_numb where fio="user"',true,OK);
  edit1.Text:=MySQLResult.FieldValueByName('user');

подскажите в чем ошибка?
вот сообщение

[onixred]

MySQLResult:=MySQLClient.query ('select * from tel_numb where fio="user"',true,OK);

не правильный запрос, просмотри значение OK !
думаю так )
у меня вот как

MySQLResult := MySQLClient.Query('SELECT * FROM Access WHERE Login="onixred" ', True, OK);
 edit7.Text:=MySQLResult.FieldValueByName('passvort');

Access - название таблицы

____Login__________passvort_
........onixred......|.....1234.... ..|
.....magvai.........|.......pas.... ..|
-------------------------------

а как создавать таблицы? и если знаешь как добавлять записи в таблицы?

[Кинельски]

Сообщение от onixred

MySQLResult:=MySQLClient.query ('select * from tel_numb where fio="user"',true,OK);

не правильный запрос, просмотри значение OK !
думаю так )
у меня вот как

MySQLResult := MySQLClient.Query('SELECT * FROM Access WHERE Login="onixred" ', True, OK);
 edit7.Text:=MySQLResult.FieldValueByName('passvort');

Access - название таблицы

____Login__________passvort_
........onixred......|.....1234.... ..|
.....magvai.........|.......pas.... ..|
-------------------------------

в моем варианте там один столбец
fio_
|vasya|
и не выдает ни чего,

[Кинельски]

Сообщение от onixred

а как создавать таблицы? и если знаешь как добавлять записи в таблицы?

я пользуясь запросами sql, их примеры беру из книг ,в этом разделе есть тема где выложены книги по работе с базами данных там есть две книги учебник sql и вторую не помню название там пригодятся примеры запросов я их беру и применяю