pb直连access的查询及插入语句
发布网友
发布时间：2023-05-18 03:07
共1个回答
热心网友
时间：2023-09-20 16:23
而且对于查询来说，使用数据窗口是最好的方式。
否则也是可以，语句的格式就是
SELECT 字段1, 字段2 ...
INTO :变量1, :变量2 ...
FROM 表1,表2...
WHERE 条件;
这样可以把数据查询出来放到变量中，但是这样一次只能查询一行数据，因为变量是不能装一个集合的，所以就要求WHERE条件一次必须唯一确定一行记录，否则就要使用游标，然后在界面控件设置控件的内容等于变量就能显示出来了。
如果是插入，INSERT INTO TABLE (字段1,字段2...) VALUES (:变量1, :变量2 ...) ;
if sqlca.sqlcode = 0 then //此处是判断插入执行成功，但是没有提交数据库
commit; //提交，确认插入
else
rollback; //回滚事务，插入失败
end if追问谢谢您的回答 但我想要的功能就是 直接连到mdb文件 然后进行简单的查询及插入
sql语句我会一点 但怎么实现 我想要完整的源代码 能否给出我例举样子的源代码呢 十分感谢 呵呵
追答我举个例子，使用PB创建一个窗口，窗口上面放两个静态文本控件st_1, st_2.
然后我们从数据库的用户表tb_user查询用户编码是'001'的用户姓名和编号并显示在文本上。
你在窗口上做一个按钮，在按钮的点击事件中写
string ls_userid, ls_username //定义变量
select user_id, user_name
into :ls_userid, :ls_username
from tb_user
where user_id = '001';
//显示代码和名字
st_1.text = ls_userid
st_2.text = ls_username
同样，我们想把文本中显示的用户编号和姓名存到tb_user表中
在界面增加一个按钮保存，在保存的点击事件中写
string ls_userid, ls_username
ls_userid = st_1.text
ls_username = st_2.text
insert into tb_user(user_id, user_name) values (:ls_userid, :ls_username);
if sqlca.sqlcode = 0 then
commit;
else
rollback;
end if
这是使用纯代码实现一个简单的查询展示和保存的代码。
如果使用数据窗口，就简单了，实际上就是两个函数的功能而已。
在窗口上增加一个数据窗口控件dw_1，然后新建一个datawindow做为dw_1的dataobject.
设置好datawindow的保存属性。在窗口的open事件写dw_1.settransobject(sqlca)
然后查询可以通过一个查询按钮，里面写dw_1.retrieve()完成
而增加做一个增加按钮,dw_1.insertrow(0)
一个保存按钮if dw_1.update() > 0 then
commit;
else
rollback;
end if
完成你要的功能。
