'数据库连结参数
Dim sqlstr As String '执行的sql语句
Dim rs As ADODB.Recordset '数据集
Dim cn As New ADODB.Connection '连接
Private Sub Form_Load()
'设置数据库连结
Set cn = New ADODB.Connection
cn.ConnectionTimeout = 60
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = gaSqlSrv
cn.Properties("Initial Catalog").Value = gaOldSqlBase
cn.Properties("Integrated Security").Value = "SSPI"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New ADODB.Recordset多谢了!!!
Dim sqlstr As String '执行的sql语句
Dim rs As ADODB.Recordset '数据集
Dim cn As New ADODB.Connection '连接
Private Sub Form_Load()
'设置数据库连结
Set cn = New ADODB.Connection
cn.ConnectionTimeout = 60
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = gaSqlSrv
cn.Properties("Initial Catalog").Value = gaOldSqlBase
cn.Properties("Integrated Security").Value = "SSPI"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New ADODB.Recordset多谢了!!!
1:在SQL数据库里加一个拥护ABC。把他的密码设置成123。确保用此用户登陆成功
2:打开VB,添加ADODC控件
3:用它的连接数据库向导,连接SQL数据库,到输入用户名称和密码的地方,输入ABC和123
4:连接成功
5:这时候你可以在连接向导里得到它的连接字符串
6:CN.connectionString=连接字符串
7:cn.open
cn.CursorLocation = adUseClient
cn.open