Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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;



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
6-1076265604
человек в сети
2004-02-08 21:40
2004.04.11
подскажите пожалуйста книгу или доку по написанию чата для локалы


8-1071902438
CREW
2003-12-20 09:40
2004.04.11
MediaPlayer не работает в ХР


14-1079284359
YurikGl
2004-03-14 20:12
2004.04.11
Проблемы с Zip


1-1080044898
EgorT
2004-03-23 15:28
2004.04.11
Как обойти ошибки Excel я


3-1081944355
zolg
2004-04-14 16:05
2004.04.11
ADO, pack в Dbf