Работа С Mysql В Firemonkey Delphi

[Lomanu4]

Кто знает полностью от а до я как это все работает с firemonkey,от создание таблиц,до подключения к серверу и вывода информации в грид или даже в другой компонент?

 

[Sascha]

http://www.webdelphi.ru/2011/10/sqlite-i-firemonkey-uchimsya-zapolnyat-tablicy/
Может поможет

 

[Lomanu4]

http://www.webdelphi.ru/2011/10/sqlite-i-firemonkey-uchimsya-zapolnyat-tablicy/
Может поможет

Подключаю локал хост через openserver базу mudslides, потом закидую компонент от firedac connection, все делал короче говоря по примеру но нечего не выходит.
В интернете нет много информации как подключиться к серверу дб и работать с ней через Delphi

 

[Sascha]

Provider=SQLOLEDB ты использовал ?

procedure TForm4.Button2Click(Sender: TObject);
begin
form1.ADOConnection1.Close;
form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'
+'Integrated Security=SSPI;'
+'Persist Security Info=False;'
+'User ID=' + Edit2.Text+';'
+'Initial Catalog='+ Edit4.Text+';'
+'Data Source='+combobox1.Text+';'
+'Use Procedure for Prepare=1;'
+'Auto Translate=True;'
+'Packet Size=4096;'
+'Workstation ID='+ Edit1.Text+';'
+'Use Encryption for Data=False;'
+'Tag with column collation when possible=False';
form1.ADOConnection1.Open;
form1.ADOConnection1.Connected:=true;
form1.ADOQuery1.Active:=true;
if not(form1.adoconnection1.Connected)
   then
    begin
     messagedlg('Нет соединения', mtError, [mbOk], 0);
     halt;
    end;
form1.show;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Close;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
opendialog1.Execute
//edit4.Text:=opendialog1.FileName;
end;

 

[Lomanu4]

Provider=SQLOLEDB ты использовал ?

procedure TForm4.Button2Click(Sender: TObject);
begin
form1.ADOConnection1.Close;
form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'
+'Integrated Security=SSPI;'
+'Persist Security Info=False;'
+'User ID=' + Edit2.Text+';'
+'Initial Catalog='+ Edit4.Text+';'
+'Data Source='+combobox1.Text+';'
+'Use Procedure for Prepare=1;'
+'Auto Translate=True;'
+'Packet Size=4096;'
+'Workstation ID='+ Edit1.Text+';'
+'Use Encryption for Data=False;'
+'Tag with column collation when possible=False';
form1.ADOConnection1.Open;
form1.ADOConnection1.Connected:=true;
form1.ADOQuery1.Active:=true;
if not(form1.adoconnection1.Connected)
   then
    begin
     messagedlg('Нет соединения', mtError, [mbOk], 0);
     halt;
    end;
form1.show;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Close;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
opendialog1.Execute
//edit4.Text:=opendialog1.FileName;
end;

Через adoconnection я знаю как подключиться,я ломаются голову с sqlconnection

 

[Sascha]

SQLConnection- там вроде тоже всё просто

 

[Sascha]

ты должен SQLDriver установить

 

[Lomanu4]

ты должен SQLDriver установить

Там библиотека что коеируеться в папку system32,или едет установка?

 

[Sascha]

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

 

[Lomanu4]

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

спасибо,после установки ddl все решилось!

 

[Sascha]

спасибо,после установки ddl все решилось!

Рад что помогformula

 

[Lomanu4]

Рад что помогformula

А вот к-примеру как выводить в таблицу фото ,если фото лежат на сервере , там походу надо прописать путь,но как? Ну и потом выводить в делпхи по id

 

[Sascha]

А вот к-примеру как выводить в таблицу фото ,если фото лежат на сервере , там походу надо прописать путь,но как? Ну и потом выводить в делпхи по id

result = mysql_query("SELECT * FROM images WHERE id='$id'",$db);

 

[Sascha]

В роде всё работает

 

[Lomanu4]

Посмотреть вложение 70 Посмотреть вложение 71 Посмотреть вложение 72 Посмотреть вложение 73 Посмотреть вложение 74

В роде всё работает

а ты заливал сам фото или через клиент,можешь записывать?

 

[Lomanu4]

Посмотреть вложение 70 Посмотреть вложение 71 Посмотреть вложение 72 Посмотреть вложение 73 Посмотреть вложение 74

В роде всё работает

Можно посмотреть на весь код?

 

[Sascha]

procedure TForm2.Button1Click(Sender: TObject);
begin
ClientDataSet1.Append;
ClientDataSet1.FieldByName('ID').Value:=10;
ClientDataSet1.FieldByName('Name').AsString:=Edit1.Text;
ClientDataSet1.FieldByName('Data').AsString:=DateTimePicker1.Date;
ClientDataSet1.FieldByName('Foto').Assign(jpeg);
ClientDataSet1.ApplyUpdates(-1);
end;

 

[Rusland]

Только через UniDAC

 

[Sascha]

Только через UniDAC

Нет в даном случае используется SQLConnection