您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

添加,数据,更新,显示,

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

添加,数据,更新,显示,

发表于：2007-05-12 23:54:48 楼主

private sub command1_click（)
dim cn as new adodb.connection, rs as new adodb.recordset
dim sql as string
dim a, b, c, d, e as string
a = trim（text1.text)
b = trim（combo1.text)
c = trim（text2.text)
d = trim（combo2.text)
e = trim（text3.text)
cn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=e:\program files\vb98\gongcheng\db8.mdb;persist security info=false "
cn.open
sql = "insert into 爆破员信息录入（姓名,性别,联系方式,所属部门,家庭住址) values （ ' " & a & " ', ' " & b & " ', ' " & c & " ', ' " & d & " ', ' " & e & " ') "
cn.ＥＸＥＣute sql
set datagrid1.datasource = rs
end sub

我想让添加的行在datagrid1中显示出来~~~以上的代码只能添加,但显示不出~~~能不能教教我~~~~

在添加之后重连数据原以便更新~~~~~该怎么做嫩> ??

发表于：2007-05-13 00:03:321楼得分:0

rs在哪打开的？
refresh一下

发表于：2007-05-13 07:55:502楼得分:0

该回复于2007-12-28 18:05:01被管理员或版主删除

发表于：2007-05-13 13:13:553楼得分:0

该回复于2007-12-28 18:05:01被管理员或版主删除

其他资讯