您的位置：程序门 -> vb -> 基础类

请问如何调用公共函数来完成向基本数据库添加记录，并用datagrid立即显示添加的记录。

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

请问如何调用公共函数来完成向基本数据库添加记录，并用datagrid立即显示添加的记录。[已结贴,结贴人:tbfy007]

发表于：2007-03-09 15:00:51 楼主

'在模块中的公共函数如下

option explicit

public function connstring（) as string
connstring = "provider = microsoft.jet.oledb.4.0;data source=d:\电脑应用 \visual basic课程设计\employee.mdb "
end function

public function ＥＸＥＣutesql（byval sql as string) as adodb.recordset
dim conn as adodb.connection
dim rstmember as adodb.recordset
set conn = new adodb.connection
conn.cursorlocation = aduseclient
conn.connectionstring = connstring
conn.open
set rstmember = new recordset
rstmember.open sql, conn, 2, 3
set ＥＸＥＣutesql = rstmember
end function

'在窗体中调用函数
private sub cmdadd_click（)
dim rs as adodb.recordset
dim wt as adodb.recordset
dim sqltxt as string
set rs = new recordset
sqltxt = "select * from employee order by 员工编号 "
set rs = ＥＸＥＣutesql（sqltxt)
rs.addnew
.........
set datagrid1.datasource = rs
.......
end sub

发表于：2007-03-09 18:03:091楼得分:0

没人帮我！

发表于：2007-03-09 18:15:352楼得分:20

rs.addnew
.........
rs.update
set datagrid1.datasource = ＥＸＥＣutesql（sqltxt)
.......

发表于：2007-03-12 10:24:413楼得分:0

谢谢，一会试试！

下一篇：小菜菜自学vb之三
上一篇：怎么才能给vb设计的软件加上立体点的图标呢！

其他资讯