求数据库原理及应用视频教程

上海交通大学数据库系统及应用

 全27讲  

链接:https://pan.baidu.com/s/155pxn4yyteJ70egCyq8zZg

?pwd=5r1g

 提取码:5r1g  

上海交通大学数据库系统及应用  全27讲百度网盘 

Dim ServerAdd As String '服务器地址 (127.0.0.1)

Dim DBname As String '服务器上数据库的名称

Dim UserName As String '登录数据库的用户名

Dim UserPwd As String '登录数据库的密码

'设置连接字符串的参数

ServerAdd = Trim(TxtServer.Text) '服务器IP(192.168.1.6)

DBname = "ChanYdata" '数据库名称

UserName = "" '登录用户名

UserPwd = "" '密码

SqlCon.ConnectionTimeout = 10

SqlCon.CursorLocation = adUseClient

SqlCon.ConnectionString = "uid=" & UserName & "pwd=" & UserPwd & "driver={Sql server}server=" & ServerAdd & "database=" & DBname & "dsn=''"

---