请问VB连接SQL Server的方法

Question

连接SQL
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称

Answer 1

Public adoCN As New ADODB.Connection       '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command     '定义 SQL 命令
Dim adoDateTime As New ADODB.Recordset     '获取 NT-SERVER 时间
'***********************************************************************
'*  功能：与 SQL SERVER 数据库建立连接并取出服务器时间
'***********************************************************************Public Function OpenConnection() As String '打开数据库
    On Error GoTo SQLConErr
    With adoCN
        .CursorLocation = adUseClient
        .Provider = "sqloledb"
        .Properties("Data Source").Value = cNtServerName
        .Properties("Initial Catalog").Value = cDatabaseName
        .Properties("User ID") = cSQLUserName
        .Properties("Password") = cSQLPassword
        .Properties("prompt") = adPromptNever
        .ConnectionTimeout = 15
        .Open
        
        If .State = adStateOpen Then
            adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
            cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
            cServertime = Mid(adoDateTime(0), 10)
        Else
            MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
            End
        End If
    End With
    
    SqlCommand.ActiveConnection = adoCN
    SqlCommand.CommandType = adCmdText
    Exit Function
SQLConErr:
    Select Case Err.Number
        Case -2147467259
            MsgBox "找不到指定的SQL Server服务器或者数据库不存在，请重新设置！", vbExclamation
            F_SetSystem.Show 1
        Case -2147217843
            MsgBox "指定的SQL Server数据库用户不存在或口令错误，请重新设置！", vbExclamation
            F_SetSystem.Show 1
        Case Else
            MsgBox "数据环境连接失败，请找系统管理员进行检查 ！", 16, cProgramName
    End Select
    OpenConnection
End Function

Answer 2

出现error提示匡:Run-time error '424'
Object required
怎么办？

Answer 3

出现error提示匡:Run-time error '424'
Object required
怎么办？

Answer 4

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.Open "Provider=sqloledb;data source=机器名;user ID=sa;password=密码"
    Set rs = New ADODB.Recordset
End Sub

Answer 5

to cdwps(萧宇) :Dim conn
Set conn = server.CreateObject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATASOURCE=192.168.0.253;UID=sa;PWD=yes;DATABASE=edan"

Answer 6

you did not create a object.dim cnData as New ADO.Connection
or
dim objData as Ojbect
set objData=CreateObject("ADO.Connection")
.............

Answer 7

如果你这样声明变量
Public g_objDBC             As ADODB.Connection
那么在连接时须
Set g_objDBC = New ADODB.Connection
g_objDBC.ConnectionString = strValue
g_objDBC.Open
strValue是连接字串

Answer 8

wangsitao(飞猪) :
我Open可以，但是我要看结果怎么看？