新手,问个很弱智的问题
各位大虾小弟问一下VB里如果不用控件连数据库,有没有连接数据库的连接池.因为每次连数据库都要一遍一遍写代码很麻烦...如果有怎么实现?
谢谢大家了~
如果连接太多的话,比如10次,数据库就会死...
是不是每次打开form前都要load,关闭form后unload?
2006-12-14 11:27
2006-12-14 11:34
2006-12-14 20:22
还有个问题
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
这个是我写的点登陆系统时的代码,我现在还想实现的功能是用户名不存在的提示,可是试了半天,只要循环走一次,就弹一次对话框.无奈了,高手帮忙看看吧
2006-12-14 23:37