各位大虾小弟问一下VB里如果不用控件连数据库,有没有连接数据库的连接池.因为每次连数据库都要一遍一遍写代码很麻烦...
如果有怎么实现?
谢谢大家了~

你写个类,调用就可以!

如果连接太多的话,比如10次,数据库就会死...
是不是每次打开form前都要load,关闭form后unload?

写个共用的Connection就可以.

写个过程放到模块中，每次链接调用就行了。
例如:
Sub conn2()
str = "driver={sql server};server=192.168.188.8;uid=sa;pwd=******;database=结算流程"
conn1.CursorLocation = adUseClient
conn1.ConnectionTimeout = 30
conn1.Open str
End Sub

调用：
if conn1.state=adstateclosed then
call conn2
end if

大概明白了,谢谢各位

还有个问题
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
Set db = OpenDatabase(App.Path + "\" + "Data.mdb")
Set rs = db.OpenRecordset("user")
rs.MoveFirst
While (rs.EOF = False)
If Text1.Text = rs("username") And Text2.Text = rs("password") Then
系统界面.Show
登陆界面.Hide
Else
rs.MoveNext
End If
Wend
End If
sql = "select username from user"
Set rs = db.OpenRecordset(sql)
If Not rs!UserName = Text1.Text Then
MsgBox "用户名不存在", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
这个是我写的点登陆系统时的代码,我现在还想实现的功能是用户名不存在的提示,可是试了半天,只要循环走一次,就弹一次对话框.无奈了,高手帮忙看看吧