'最简单可以用OLEDB的方法 Public Function C_LianJie() As Boolean On Error GoTo ine If conn Is Nothing Then '如果conn没有初始化 Set conn = New ADODB.Connection With conn .Provider = "SQLOLEDB" '设置成OLEDB连接 .CommandTimeout = 10 .ConnectionTimeout = 10 .IsolationLevel = adXactReadCommitted End With End If If conn.State = adStateClosed Then '如果连接关闭。重新建立连接 conn.Open "server=服务器名称;database=数据库名称;", "sa", "" 'MsgBox "连接成功", , "提示信息" End If GoTo inerr ine: MsgBox Err.Description, , "错误信息" inerr: End Function
connect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=student;Data Source=服务器名" 还可以用ado控件生成上面的字符串dim con as adodb.connection set con = new adodb.connection con.open connect
我的连接如下: Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String
另一种ADO连接方法:'********************************************************************** ' 过程名称:OpenADODatabase ' 功能描述:打开全局的数据库连接 ' 参数说明:(无) ' 返 回 值:(无) '********************************************************************** Public Sub OpenADODatabase() Dim strConnStr As String
Set gDBConnection = New ADODB.Connection gDBConnection.Open strConnStr
Exit Sub
ErrHandle: ' Call msgbox("请检查输入是否正确,再重新启动该程序") End Sub 附:Global gdbServer As String Global gdbDBName As String Global gdbUserID As String Global gdbPassWD As String gdbServer = "127.0.0.1" gdbDBName = "name" gdbUserID = "sa" gdbPassWD = ""
Public Function C_LianJie() As Boolean
On Error GoTo ine
If conn Is Nothing Then '如果conn没有初始化
Set conn = New ADODB.Connection
With conn
.Provider = "SQLOLEDB" '设置成OLEDB连接
.CommandTimeout = 10
.ConnectionTimeout = 10
.IsolationLevel = adXactReadCommitted
End With
End If
If conn.State = adStateClosed Then '如果连接关闭。重新建立连接
conn.Open "server=服务器名称;database=数据库名称;", "sa", ""
'MsgBox "连接成功", , "提示信息"
End If
GoTo inerr
ine:
MsgBox Err.Description, , "错误信息"
inerr:
End Function
还可以用ado控件生成上面的字符串dim con as adodb.connection
set con = new adodb.connection
con.open connect
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=dbname"
Set rs = New ADODB.Recordset
sql = "select * from yourtable"
rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
MsgBox rs.Fields(0).Value
在引用中加ADO2.6
' 过程名称:OpenADODatabase
' 功能描述:打开全局的数据库连接
' 参数说明:(无)
' 返 回 值:(无)
'**********************************************************************
Public Sub OpenADODatabase()
Dim strConnStr As String
On Error GoTo ErrHandle
strConnStr = "Provider=SQLOLEDB.1;Password=" _
& gdbPassWD & ";Persist Security Info=True;User ID=" _
& gdbUserID & ";Initial Catalog=" _
& gdbDBName & ";Data Source=" _
& gdbServer
Set gDBConnection = New ADODB.Connection
gDBConnection.Open strConnStr
Exit Sub
ErrHandle:
' Call msgbox("请检查输入是否正确,再重新启动该程序")
End Sub
附:Global gdbServer As String
Global gdbDBName As String
Global gdbUserID As String
Global gdbPassWD As String
gdbServer = "127.0.0.1"
gdbDBName = "name"
gdbUserID = "sa"
gdbPassWD = ""
cnnConnection.CursorLocation = adUseClient
cnnConnection.Mode = adModeReadWrite + adModeShareDenyNone
cnnConnection.Open