pb如何向数据库添加数据

有两种方法

数据窗口或者是sql语句

①数据窗口.建立一个数据窗口.与你想要插入数据的表对应.

直接在数据窗口上输入新字段数据.然后通过update()函数

更新数据窗口.具体如下：

if

dw_1.update()>

o

then

commit//提交数据

else

rollback//不进行提交

向上回滚。

end

if

②

直接在事件编辑窗口中编写sql语句实现添加数据.例：现有用户表(t_user)

字段:user_id(用户编号)

,user_name(用户名称),age（年龄）三个字段，向其中插入一条数据.

insert

into

t_user

values('001','张三','28')//别忘记分号insert

into

table_name

values()

这是插入数据的固定格式！

首先你需要建立一个ddlb控件，这个空间里面写：insert，update，delete

之后，你再建立一个ddlb控件，在FORM界面的open事件里面填写以下代码

string c1,i_temp

DECLARE c1 cursor FOR SELECT name FROM sysindexes where name like 'PK_%' and rows <>0

open c1

do while sqlca.sqlcode = 0

fetch c1 into :i_temp

ddlb_1.insertitem( mid(i_temp,4,len(i_temp)-3),0)

loop

close c1

这个程序是将你连接的数据库中的所有有数据的表的名字取出来后，添加在ddlb控件的下拉菜单中。

做完后，再在FORM上添加一个ddlb的控件，在之前弄表名的ddlb控件的itemchanged的事件中添加如下代码

string c1,i_temp,ls_sql

long i_id

ls_sql = 'PK_' + ddlb_1.text

DECLARE c1 cursor FOR SELECT Name FROM SysColumns WHERE id in

(SELECT id

FROM sysindexes where name = :ls_sql)

open c1

do while sqlca.sqlcode = 0

fetch c1 into :i_temp

ddlb_2.insertitem( i_temp,0)

loop

close c1

OK，这样你就已经取到了组成语句的几个关键部位，之后的代码怎么写，你就自己完成吧，我写的累死了，就不累述了。

2~~~~~~~~~~~~~~~~~~~~~~~

这个问题很简单，你写成ddlb_1.selectitem(0)就行了。 怕你看不懂，稍微解释下这个东西，ddlb控件应该是可以改TEXT属性的，但是你可能没有勾上allow edit的属性，所以在修改的时候报错。当然，这样的情况不是说不能修改，selectitem（0）是指选择ddlb中的空选项，当把0变成1的时候就是选择ddlb中的第一个下拉选项，PB中的F1帮助里面有详细解释，其他的么，应该都会了把。

---