ado.bas

一个图书馆的VB做的mis系统

Attribute VB_Name = "ado"
Public con As New ADODB.connection
Public borrow_rs As New ADODB.Recordset
Public users_rs As New ADODB.Recordset
Public books_rs As New ADODB.Recordset
Public return_rs As New ADODB.Recordset
Public admin_rs As New ADODB.Recordset
Public del_books_rs As New ADODB.Recordset
Public del_users_rs As New ADODB.Recordset


Sub connection(i_server As String, i_database As String, i_user As String, i_pwd As String)




'数据库连接




d_con = "driver=sql server;server=" & i_server & ";uid=" & i_user & ";pwd=" & i_pwd & ";database=" & i_database & ""


con.ConnectionString = d_con



On Error GoTo ed:

con.Open






'借书数据库记录集


borrow_rs.Open "borrow", con, adOpenDynamic, adLockOptimistic, 2



'还书数据库记录集


return_rs.Open "return_b", con, adOpenDynamic, adLockOptimistic, 2



'用户数据库记录集


users_rs.Open "users", con, adOpenDynamic, adLockOptimistic, 2



'管理员数据库记录集


admin_rs.Open "admin", con, adOpenDynamic, adLockOptimistic, 2



'图书数据库记录集



books_rs.Open "books", con, adOpenDynamic, adLockOptimistic, 2



'用户删除表记录集


del_books_rs.Open "del_books", con, adOpenDynamic, adLockOptimistic, 2



'用户删除表记录集


del_users_rs.Open "del_users", con, adOpenDynamic, adLockOptimistic, 2





MsgBox "连接成功", vbInformation, "T6-G4"


ini_form.state = 1

Exit Sub





ed:



MsgBox "连接失败，请正确填写配置信息", vbCritical, "T6-G4"

ini_form.state = 0




End Sub