我们建立了一个ACCESS的数据库,使用PB希望点击窗口里的cb_1(查询)按钮时能连到先前的ACCESS数据库。
或者说怎么能够使PB与ACCESS连接起来。因为是新手入门,所以希望回答不要太过深奥。。万分感谢!w_chaxun的代码如下dw_1.settransobject(sql...
或者说怎么能够使PB与ACCESS连接起来。
因为是新手入门,所以希望回答不要太过深奥。。
万分感谢!
w_chaxun的代码如下
dw_1.settransobject(sqlca)
int i
string str
declare c1 cursor for
select number from 货号;
open c1;
fetch c1 into :str; do while sqlca.sqlcode=0
ddlb_1.additem(str)
i=i+1
fetch c1 into :str;
loop
close c1;
cb_1代码如下
string str
if ddlb_1.text="" then
messagebox("提示信息","”请选择查询条件")
return
ddlb_1.setfocus()
end if
if trim(ddlb_1.text)<>""then
str=trim(ddlb_1.text)
end if
dw_1.retrieve(str)
根据上面代码能够连到数据库,但不能根据ddlb_1的item里的选项 单项 搜索,而是全部显示了内容。
请问该如何? 展开
因为是新手入门,所以希望回答不要太过深奥。。
万分感谢!
w_chaxun的代码如下
dw_1.settransobject(sqlca)
int i
string str
declare c1 cursor for
select number from 货号;
open c1;
fetch c1 into :str; do while sqlca.sqlcode=0
ddlb_1.additem(str)
i=i+1
fetch c1 into :str;
loop
close c1;
cb_1代码如下
string str
if ddlb_1.text="" then
messagebox("提示信息","”请选择查询条件")
return
ddlb_1.setfocus()
end if
if trim(ddlb_1.text)<>""then
str=trim(ddlb_1.text)
end if
dw_1.retrieve(str)
根据上面代码能够连到数据库,但不能根据ddlb_1的item里的选项 单项 搜索,而是全部显示了内容。
请问该如何? 展开
2个回答
展开全部
定义一个变量STR;
先写一个查询
str:='select * from 表名 where '
在判断你DBEDIT有没值
如果有 就加上
STR:=STR+条件
如果没有就不写
在最后在写上
STR:=STR+' 1=1';
这样就可以进行多条件的判断
先写一个查询
str:='select * from 表名 where '
在判断你DBEDIT有没值
如果有 就加上
STR:=STR+条件
如果没有就不写
在最后在写上
STR:=STR+' 1=1';
这样就可以进行多条件的判断
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询