Public db As New ADODB.Connection
Public jlj1 As New ADODB.Recordset
Sub dbo()
db.ConnectionString = "provider=sqloledb.1.0;server=local;uid=nick;pwd=;database=nick"
db.Open
End Sub总是显示SQL server 不存在或拒绝访问
Public jlj1 As New ADODB.Recordset
Sub dbo()
db.ConnectionString = "provider=sqloledb.1.0;server=local;uid=nick;pwd=;database=nick"
db.Open
End Sub总是显示SQL server 不存在或拒绝访问
'====================================OLE OB 方式连接==========
'cnnstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" _
' + DbName + ";Data Source=" _
' + DbServer
' '键入打开的数据库服务器名和数据库
'=============================================================================
'==========DSN 方式链接:需要 DSN 连接名称: DbDSN : 即为 ODBC 中的设置
'CnnStr = "Provider=MSDASQL.1;Password=" & UserPwd & ";Persist Security Info=true;User ID=" _
+ UserID + ";Data Source=" & DbDSN & ";Initial Catalog=" + DatabaseName
'============================================================================================
'===================第二种方法,不需DSN 连接,提供Server name ,UID,Pwd ,databaseName 即可,
CnnStr = "PROVIDER=MSDASQL;Driver=SQL Server;Server=" & DbServer & ";UID=" & UserID & ";PWD=" & UserPwd & ";Database=" & DatabaseName & ";"
AdoCnn.Open CnnStr
'=====动态设置recordset对象与Datasource例子============
' Dim Rs As ADODB.Recordset
' Set Rs = New ADODB.Recordset
' Rs.Open "select * from landdev", adoCnn, adOpenDynamic, adLockOptimistic
' Set Label1.DataSource = Rs
' Label1.DataField = "KF_ID"
这样试试