数据库连接问题

Question

我是用vb连接sql2000，请问怎么写呀，急。。

Answer 1

dim SqlStr As String 
   SqlStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password="";Initial Catalog=pubs;Data Source=mrp"
   SqlCon.Open SqlStr

Answer 2

（采用ADO，在程序中首先引用ADO）
Option Explicit
Public conn As ADODB.ConnectionSet conn = New ADODB.Connection
connStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=数据库密码;Initial Catalog=数据库名称;Data Source=服务器（IP地址）"conn.Open connStr

Answer 3

去找个adodc控件，去copy生成的连接字符就对了

Answer 4

建立一个模块
Public g_CNObj As New ADODB.Connection
Public Function ConnectServer(StrServerName As String, _
            StrUserID As String, StrPassword As String, StrDBSName) As Boolean
'******************************************************
'函数:ConnectServer
'描述:根据调用者提供的参数,打开指定的数据库
'参数:
'    StrServerName:服务器名
'    StrUserID:数据库用户名
'    StrPassword:数据库密码
'    StrDBSName:数据库名
'返回:打开成功返回 TRUE,否则返回 FALSE
'******************************************************    On Error GoTo connecterrhand
    g_CNObj.ConnectionString = "SERVER=" & StrServerName & ";PROVIDER=SQLOLEDB" & _
        ";DATABASE=" & StrDBSName & ";UID=" & StrUserID & ";PWD=" & StrPassword
    '
    g_CNObj.Open
    ConnectServer = True '成功
    Exit Function
connecterrhand:
    ConnectServer = False '失败
End FunctionPublic Function DeConnectServer()
'******************************************************
'函数:DeConnectServer
'描述:关闭数据库连接
'******************************************************
    On Error Resume Next
    g_CNObj.Close
    Set g_CNObj = Nothing
End Function
主窗体调用   If Not ConnectServer("IP", "sa", "密码", "数据库名") Then
         MsgBox "数据库连接失败，无法启动程序！", vbCritical, "错误"
        End
    End If