combobox1.Clear;
query1.first;
while not query1.eof do
begin
ComboBox1.Items.Add(Query1.fieldByname('Shop_name').AsString;
query1.Next;
end;
query1.close;
query1.first;
while not query1.eof do
begin
ComboBox1.Items.Add(Query1.fieldByname('Shop_name').AsString;
query1.Next;
end;
query1.close;
解决方案 »
- delphi record pchar类型 乱码问题。。。。。。。
- GDI++ 问题,先开100分,如有人能解决再加200分送他!顶者有分!
- .les文件用什么打开呀?
- 初学delphi应该看什么书
- 用delphi做GUI而用C++来实现行不行?
- 利用dbgrid直接更新数据库后,再删除发生错误。急,在线等待!!!
- 谈谈网吧管理软件的几个问题
- ?请问各位高手,谁知道怎么制作安装文件,就是一个exe,然后这个exe包含多个文件在里面,也就是说,用stream把他们放在setup.exe的后面,然后读出来的时候找好文件流的位置.最好有源码!不胜感激!给分!!!
- 我用installshield做完安装程序,乐滋滋地准备交差,才发现犯了一个致命的错误,谁能帮我?谢谢!
- 我把一给html文件读给了!string对象.然后如何让Twebbrowser读string?
- 哪里有DELPHI关于调用OFFICE的详细资料,好像和VC中调用稍有不同
- 我在编译1stclass3000例子地时候。。总说fcpanel.dcu找不着。。。。?
我认为此句 //Query1.ExecSQL;//不妥当。应改为Query1.open;
前者不返回数据,所以无法提取。只有用后者才能返回数据,这才能提取的可能。//shop_name 是alpha型
combobox1.Clear;
query1.first;
while not query1.eof do
begin
ComboBox1.Items.Add(Query1.fieldByname('Shop_name').AsString;
query1.Next;
end;
query1.close;
fieldByname(field_name).Asfloat
fieldByname(field_name).Asdatetime
.
.
.
query1.Fields[1].Value
query1.Fields[2].Value
.
.
.
query1.Fields[n].Value
特别谢谢madyak(学习) ,他说的果然是对的我的问题,迟到的也有分我加分给
如果用Fields[1]或>=1运行时就会出错:List indos out of bounds(1)(我里面的记录有4条)这是为什么啊??