754
社区成员
发帖
与我相关
我的任务
分享求助：把数据读入控件中？
有一个mysql数据库，用odbc连接，在编辑状态下可以看到数据，
窗体中有一个下拉列表框，如何把数据加到列表中。
我有用游标，但是运行窗体的时候并没有在下拉列表中显示数据。
窗体中有一个下拉列表框，如何把数据加到列表中。
我有用游标，但是运行窗体的时候并没有在下拉列表中显示数据。
...全文
请发表友善的回复…
发表回复
rayleign 2003-12-20
- 打赏
- 举报
ok了，
数据类型出了问题。谢谢CodeMagic(写错了吧)
数据类型出了问题。谢谢CodeMagic(写错了吧)
CodeMagic 2003-12-20
- 打赏
- 举报
你可以这样，先从数据库中取出一条记录看结果是否正确，正确的话，在写入列表框中。
rayleign 2003-12-20
- 打赏
- 举报
数据库中：
admin
dba
运行后
列表中：
0
0
admin
dba
运行后
列表中：
0
0
CodeMagic 2003-12-20
- 打赏
- 举报
怎么个变法，我不太清楚你的想法，你能描述得更清楚吗，因为光从楼顶上的几行言语，我搞不清楚你想做些什么。
rayleign 2003-12-20
- 打赏
- 举报
CodeMagic(写错了吧):
你的代码跟我的差不多，但是run之后数据变了。
你的代码跟我的差不多，但是run之后数据变了。
CodeMagic 2003-12-20
- 打赏
- 举报
你描述的不太清楚，究竟想要做什么。
rayleign 2003-12-20
- 打赏
- 举报
mysql数据库中的数据是varchar类型，4.0.17版本。
rayleign 2003-12-20
- 打赏
- 举报
我在run window的时候没有数据,在run的时候有数据但是并不是我所要的：
username:
admin
dba
列表中的是：
0
0
我用的是pb6.5
username:
admin
dba
列表中的是：
0
0
我用的是pb6.5
CodeMagic 2003-12-20
- 打赏
- 举报
Open c1;
Do While True
Fetch c1 Into :x;
If SQLCA.SqlCode<>0 Then Exit
ddlb_1.AddItem(String(x))
Loop
Close c1;
如果还没有数据的话，要么是数据库没连上，要么是一个空表。
Do While True
Fetch c1 Into :x;
If SQLCA.SqlCode<>0 Then Exit
ddlb_1.AddItem(String(x))
Loop
Close c1;
如果还没有数据的话，要么是数据库没连上，要么是一个空表。
lmby 2003-12-20
- 打赏
- 举报
你的程序一定有点问题，参考pbexample的动态游标例子。
