Форум: "Базы";
Текущий архив: 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.036 c
