Attribute VB_Name = "Module1"
Public flag As Integer  '記錄操作標(biāo)記
Public tna As String    '保存表名
Public stri As String    '保存標(biāo)題名
Public recs As Integer  '保存記錄集中記錄個(gè)數(shù)
Public temp As Integer




Sub Main()

pass.Show vbModal
End Sub

Public Function exesql(ByVal sql As String) As ADODB.Recordset
sql = Trim$(sql)
Set adoCn = New ADODB.Connection
Set adoRs = New ADODB.Recordset
adoCn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=圖書管理數(shù)據(jù)庫(kù);Data Source=(local)"
adoCn.Open
Set adoRs.ActiveConnection = adoCn
adoRs.LockType = adLockOptimistic
adoRs.CursorType = adOpenKeyset
adoRs.Open sql
Set exesql = adoRs
Set adoRs = Nothing
Set adoCn = Nothing

End Function


Public Sub deldata()
Dim sql As String
sql = "delete 登陸表 "

Set adoCn = New ADODB.Connection
adoCn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=圖書管理數(shù)據(jù)庫(kù);Data Source=(local)"
adoCn.Open
adoCn.Execute sql

adoCn.Close
   
End Sub

Public Sub insertdata()
Dim sql As String
sql = "insert 登陸表 values ('sa','a') "
Set adoCn = New ADODB.Connection
adoCn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=圖書管理數(shù)據(jù)庫(kù);Data Source=(local)"
adoCn.Open
adoCn.Execute sql
End Sub