vb6.0写模块问题

显示全部楼层 · 2008-8-20 23:06:33

下面是一个删除功能的程序代码，用到了数据库，后面还要用到连接数据库
想把连接数据库的代码单独放到一个模块里，让多个窗体调用，怎么做啊？
'确认后删除
'连库

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 ("deletefrom dangan where xuehao='" & Me.DataGrid1.Columns(0).Value & "'")

MsgBox ("删除成功！")

conn.Close

End If

千问 · 2008-8-20 23:06:33

把这段代码前面加一句：public Sub aaa()最后面加一句：end sub，然后添加一个标准模块，把这个代码放到里面。这样就可以在程序的任何地方用 call aaa或直接aaa来调用了。...