database.bas

完整的数据库课程设计

Attribute VB_Name = "database"
Option Explicit
Public constr As String           '数据库连接信息
Public rst As ADODB.Recordset     '数据库内的记录
Public con As ADODB.Connection

Public Sub connect_db()
 constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BookSystem;Data Source=" '数据库引擎+路径
 Set con = New ADODB.Connection     '新建一个数据库连接
 con.CursorLocation = adUseClient   '用于客户端（ADOR）Recordset对象，游标库属性必须为adUseClient
 con.ConnectionString = constr      '连接信息
 con.Open
End Sub

Public Sub sel_table(table_name As String, where_str As String)
 Dim sql As String
 Set rst = New ADODB.Recordset
 sql = "select * from " & table_name & " " & where_str & ""
 rst.Open sql, con, adOpenDynamic, adLockOptimistic
 rst.Requery
End Sub

Public Sub upd_table(table_name As String, set_str As String, where_str As String)
 Dim sql As String
 sql = "update " & table_name & " set " & set_str & "where " & where_str & ""
 con.BeginTrans
 con.Execute sql
 con.CommitTrans
End Sub

Public Sub del_table(table_name As String, where As String)
 Dim sql As String
 sql = "delete from " & table_name & " " & where & ""
 con.Execute sql
End Sub

Public Sub ins_table(table_name As String, into As String, values As String)
 Dim sql As String
 sql = "insert into " & table_name & into & " " & values & ""
 con.Execute sql
End Sub