module2.bas

数据库银行管理系统数据库银行管理系统数据库银行管理系统

Attribute VB_Name = "Module2"
Public adoCon1 As ADODB.Connection
Public adoRS1 As ADODB.Recordset
Public strr1
Public ip1
Public Sub connectDB1()
Set adoCon1 = New ADODB.Connection
adoCon1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bank;Data Source=B14"
adoCon1.Open
Set adoRS1 = New ADODB.Recordset
Set adoRS1.ActiveConnection = adoCon1
adoRS1.LockType = adLockOptimistic
adoRS1.CursorType = adOpenDynamic
End Sub