Форум: "Базы";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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 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]

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

---

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

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

---

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

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

---

← →
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;

---

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.042 c