VB窗口调用数据库问题.(access库)

来源：百度知道 编辑：UC知道 时间：2024/06/14 04:36:32
VB窗口调用数据库问题.(access库)

讨吃鬼 人气 0 回答 2 提问时间 2008-06-02 01:31
在VB中,form1打开了一个access库.如果想在form2中对这个库进行写操作,需要怎么做?直接操作提示:要求对象.
我试了一下,如果在form2中再写一段打开数据库的代码,就可以了.但这样做我感觉有点重复.这东西有没有什么全局之类的东西?详细点,小弟很菜.
附--form1打开数据库代码:
声明:
Dim db As Database, rs As Recordset
Dim book As String
按钮:
Set db = OpenDatabase("1.mdb")
Set rs = db.OpenRecordset("111")
rs.Index = "no"
book = rs.Bookmark

就这样.我想在form2中想给这个库的111字段增加一条记录.

如果除了创建类的庆，还有其它办法么？我想要个实例代码。难道除了用类来做，没别的办法了么?

Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim cont As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set cont = New ADODB.Connection '创建连接
Set rs = New ADODB.Recordset
On Error GoTo transactsql_error
strConnection = "Provider = Microsoft.jet.oledb.4.0; data source=" & App.Path & "\cd1.mdb;"
strConnection = strConnection & "Persist Security Info=False;"
strArray = Split(sql) 'Split() 返回一个下标从零开始的一维数组
cont.Open strConnection '打开连接
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
Set TransactSQL = rs
iflag = 1
Else
cont.Execute sql
iflag = 1
End If
transactsql_exit: