没问题啊,可就是一直不能更新数 据库,数据库没反应。数据库连接应该没问题,如果从数据库插入东西,在 pb 中能看见更新的结果。是不 是什么 update 的属性需要更改啊... bi=trim(sle_1.text) bn=trim(sle_2.text) bc=trim(sle_3.text) at=trim(sle_4.text) pb=trim(sle_5.text) pc=trim(sle_6.text) ct=trim(sle_7.text) ln=trim(sle_8.text) rt=trim(sle_9.text) cn=trim(sle_10.text)
insert into book(bookid,bookname,bookclassid,autuor,publish,price,content,leavenumber,regtime) values (:bi,:bn,:bc,:at,:pb,:pc,:ct,:ln,:rt);
if SQLCA.sqlcode=0 then commit using SQLCA; messagebox("成功","保存成功") else rollback using SQLCA; messagebox("错误","保存失败") return end if
应用二、 中调用一个动态的查询条件插入数据到一个新表里 应用二、在 PB 中调用一个动态的查询条件插入数据到一个新表里 string ls_query ls_query //根据用户输入的内容组合这个
查询条件。 在数据库中插入查询内容 insert 新表 select * from view1 where +"'ls_query'"
应用三、引申,一对多的录入( 应用三、引申,一对多的录入(以上只是个人的启发,只是一个思路) ) 思路: 就是用上面的知识,用文本框, 思路 一 就是用上面的知识,用文本框,下拉
列表框 等相关控件 多 即用非关联的数据窗口 (即 DataWindow),把数据窗口当作 String grid (
Delphi) 即 把数据窗口当作 即将数据窗口当作一个临时区 或叫临时表。 当作一个临时区, 即将数据窗口当作一个临时区,或叫临时表。
将多条记录 写入数据表的方法 :用循环逐条写入、修改时,先删除原先的,然后再将最 新的逐条写入,删除也是如此
,这实际就是在
VB/DELPHI 中的一对多的录入方式,但用数据窗口要 少编很多代码,当然,这样放弃了 PB 数据窗口的先天优势.
PB 中保存 数据的方案一 (Insert into …单条保存) 单条保存) 单条保存