2 в одном... ворпос по запросам MySQL

← →
Liona (2004-04-13 15:51) [0]

Delphi7 & MySQL.

Есть таблицы MySQL:
a - aID, aName;
b - aID, bName;

В Edit1 пишется aName, в Edit2 - bName. По нажатию кнопки должны заполнится все поля таблиц a и b (соответственно что aID одинаковые значения в обеих таблицах и само генерируется в таблице а). Как это написать в Delphi?
************************************
Или еще вопрос из этой же темы. - как в Delphi в переменную типа string присвоить значение запроса из MySQL - aID?

← →
Liona (2004-04-13 16:07) [1]

Видимо сложная задача даже для мастеров :(

← →
serge35 (2004-04-13 16:10) [2]

Какие компоненты используются для доступа?

← →
Liona (2004-04-14 00:30) [3]

Непоняла?! Вообще для доступа из Delphi в MySQL я пользуюсь MySQL.dl MySQL.pas
Например - для кнопки Insert в MySQL я писала такое:
procedure TForm1.Button3Click(Sender: TObject); var DB:PMySQL; Qry:String; QryASCIIZ:PChar; res:integer; begin DB:=mysql_init(nil); {init database handler} mysql_real_connect(DB,"progr.tsi.lv","test","testuser","test",0,nil,0); {connect} qry:="insert into abc (a,b,c) values("; {make query} qry:=qry+"""+Edit1.Text+"","; qry:=qry+Edit2.Text+","; qry:=qry+Edit3.Text+")"; ShowMessage("Executing query "+qry); GetMem(QryASCIIZ,length(qry)+1); {Get memory for ASCIIZ string} StrPCopy(QryASCIIZ,qry); {Copy qry to ASCIIZ string} mysql_real_query(DB,QryASCIIZ,length(qry)); {Execute query} res:=mysql_affected_rows(DB); {Number of deleted rows} ShowMessage(IntToStr(res)+" rows inserted"); FreeMem(QryASCIIZ); {Free memory of result} mysql_close(DB) {disconnect} end;

2 в одном... ворпос по запросам MySQL Найти похожие ветки