UC知道vb6.0写模块问题
来源：百度知道 编辑：UC知道 时间：2024/07/01 07:26:19
下面是一个删除功能的程序代码，用到了数据库，后面还要用到连接数据库
想把连接数据库的代码单独放到一个模块里，让多个窗体调用，怎么做啊？
'确认后删除
'连库
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ku.mdb;Persist Security Info=False"
If MsgBox("确定删除这条记录吗？", vbYesNo + vbCritical + vbDefaultButton2, "删除确认", "帮助信息", 1000) = vbYes Then
'删除记录
conn.Execute ("delete from dangan where xuehao='" & Me.DataGrid1.Columns(0).Value & "'")
MsgBox ("删除成功！")
conn.Close
End If
想把连接数据库的代码单独放到一个模块里，让多个窗体调用，怎么做啊？
'确认后删除
'连库
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ku.mdb;Persist Security Info=False"
If MsgBox("确定删除这条记录吗？", vbYesNo + vbCritical + vbDefaultButton2, "删除确认", "帮助信息", 1000) = vbYes Then
'删除记录
conn.Execute ("delete from dangan where xuehao='" & Me.DataGrid1.Columns(0).Value & "'")
MsgBox ("删除成功！")
conn.Close
End If
把这段代码 前面加一句：public Sub aaa()
最后面加一句：end sub，然后添加一个标准模块，把这个代码放到里面。这样就可以在程序的任何地方用 call aaa或直接aaa来调用了。