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

Вниз

Как вывести SQL запрос в DBComboBox?   Найти похожие ветки 

 
Liona   (2004-04-12 15:37) [0]

Как вывести SQL запрос в DBComboBox? Вот сам запрос, а как вывести данные?

var DB:PMySQL;
   Qry:String;
   QryASCIIZ:PChar;
   result:PMYSQL_RES;
   row:PMySQL_Row;
begin
   DB:=mysql_init(nil);                    {init database handler}
   mysql_real_connect(DB,"progr.tsi.com","test","testuser","temp",0,nil,0); {connect}
   qry:="select a,b,c from abc where b>10 order by a"; {make query}
   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}
   result:=mysql_use_result(DB);           {Get result}
   row:=mysql_fetch_row(result);           {Get current row of result}
   while mysql_eof(result)=0 do
       begin
          ShowMessage(row[0]+":"+row[1]);  {Result output}
          row:=mysql_fetch_row(result);    {Get current row of result}
       end;
   FreeMem(QryASCIIZ);                     {Free memory of result}
   mysql_close(DB)                         {disconnect}
end;


 
Liona   (2004-04-12 16:04) [1]

Ну неужели никто незнает?


 
Курдль ©   (2004-04-12 16:06) [2]


> Вот сам запрос...

Вы считаете, что это запрос? Это целый транспорт какой-то...


 
Liona   (2004-04-12 16:16) [3]


> Вы считаете, что это запрос? Это целый транспорт какой-то...

Это конечно не сам запрос, это Event по нажатию на кнопку в Delphi. Но все коннектится. А как это выложить в DBComboBox?
Ну так покажите и научите, а за одно ответьте на опррос.


 
Курдль ©   (2004-04-12 16:22) [4]


> Ну так покажите и научите, а за одно ответьте на опррос.

Трудновато, т.к. многие классы "за кадром". Например, не могу себе представить, что такое PMySQL...
Корректно вывести результат запроса в DBComboBox можно только одним способом - передав набор данных через DataSource. А как грузануть его прямо из памяти я не знаю...
Думаю, что Вам лучше всего спросить у того, кто это писал :)


 
clickmaker ©   (2004-04-12 16:26) [5]

А зачем именно DBComboBox?

while mysql_eof(result)=0 do
      begin
         ComboBox.Items.Add(row[0]+":"+row[1]);
         row:=mysql_fetch_row(result);    {Get current row of result}
      end;


 
Liona   (2004-04-12 16:29) [6]

А как через DataSource? Учитывая что соудинение уже есть.


 
clickmaker ©   (2004-04-12 16:37) [7]


> Liona   (12.04.04 16:29) [6]

Для DataSource нужен DataSet. А в данном примере, наскоко я понял, результат получен напрямую из объекта DB. Поэтому зачем наворачивать с DataSourcами?


 
Liona   (2004-04-12 16:45) [8]

clickmaker - ну и ладно, спасибо большое. :)



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

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

Наверх




Память: 0.48 MB
Время: 0.027 c
1-1082437367
Tornado
2004-04-20 09:02
2004.04.11
Какой использовать компонент?


6-1079458114
mbgmz
2004-03-16 20:28
2004.04.11
Есть ди способы подключиться к MySQL базе напрямую.


1-1082468987
NeyroSpace
2004-04-20 17:49
2004.04.11
TJvxRichEdit/TRxRichEdit как в них вставить анимированный GIF?


14-1079155092
Nurali
2004-03-13 08:18
2004.04.11
На TWebBrowser свой PopupMenyu


6-1075983418
Aleksandr
2004-02-05 15:16
2004.04.11
Непонятно с параметрами TSocketConnection