mydb1.bas

运动会成绩统计系统。运动员的添加

Attribute VB_Name = "mydb1"
Public adocon As ADODB.Connection
Public adors As ADODB.Recordset
Public adocmd As ADODB.Command
Public adopara As ADODB.Parameter



Public Sub ConnectDB()
'创建新的ADO连接对象
Set adocon = New ADODB.Connection
With adocon
  '指明连接数据库所使用的驱动程序是SQL
.Provider = "SQLOLEDB"
'指定连接字符串
'Server是SQL Server服务器的名字---SQL SERVER的实例名（不一定是机器名）
'Uid是SQL SERVER的登录名
'Pwd是SQL SERVER的登录（如sa）的对应的密码
'Database指定在SQL SERVER数据库中已经建立的数据库名
.ConnectionString = "Server=(ZD-8A0846CF02F0);Uid=sa;Pwd=zd;Database=运动会管理系统4119"
'打开连接
.Open
 End With
End Sub