| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

2 в одном... ворпос по запросам MySQL [D7, MySQL]

Liona ©   (2004-04-13 15:51:00) 

Delphi7 & MySQL.

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

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

---

Liona   (2004-04-14 00:30:00) [1]

Непоняла?! Вообще для доступа из 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;

---

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

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

---

Liona   (2004-04-13 16:07:00) [3]

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

---

Наверх