module1.bas

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

Attribute VB_Name = "Module1"
Public adoCon As ADODB.Connection
Public adoRS As ADODB.Recordset
Public strr
Public ip
Public Sub connectDB()
Set adoCon = New ADODB.Connection
adoCon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=bank;Data Source=B14"
adoCon.Open
Set adoRS = New ADODB.Recordset
Set adoRS.ActiveConnection = adoCon
adoRS.LockType = adLockOptimistic
adoRS.CursorType = adOpenDynamic
End Sub