VB6 連接 SQL SERVER 2000問題

Question

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=密码;Initial Catalog=数据库名称;Data Source=服务器名称

Answer 1

dim str as string
dim ds As New ADODB.Connection
dim rs As New ADODB.Recordset
str"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATABASEname;Data Source=SERVER_Name;password="
         ds.open
         rs.ActiveConnection = ds
         rs.CursorLocation = adUseClient
         rs.CursorType = adOpenDynamic
         rs.LockType = adLockOptimistic
         rs.open  "select * from  tablename"

Answer 2

你应引用菜单“工程”--“引用”ado2.6

Answer 3

我用VB6中的ADO控件,按他的提示一步一步做也不能連接。其實我用以一語句在SQL SERVER7中很正常。還望各位多指教 !!

Answer 4

dim str as string
dim ds As New ADODB.Connection
dim rs As New ADODB.Recordset
str="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATABASEname;Data Source=SERVER_Name;password="
         ds.open  str
         rs.ActiveConnection = ds
         rs.CursorLocation = adUseClient
         rs.CursorType = adOpenDynamic
         rs.LockType = adLockOptimistic
         rs.open  "select * from  tablename"

Answer 5

数据库登陆 需要 text1  button1
引用 ado2.6 
Dim conn As New ADODB.Connection
Private Sub Command1_Click()
On Error Resume Next
pass = Text1.Text
conn.Open ("driver={SQL Server};server=(local);uid=sa;database=Master;pwd=" & pass)
If Err.Number <> 0 Then
    MsgBox Err.Description & Chr(13) & "检查一下数据库是否启动，和密码是否正确", vbDefaultButton1, "错误"
     conn.Close
     Err.Clear
     Exit Sub
        Else
                '可用
                msgbox "可用"
    End If
    conn.Close
End Sub

Answer 6

我用的就是sql2000,刚试过可以。
在VB中必须安装mdac2.6及以上。引用ADO2.5以上才行。

Answer 7

dim str as string
dim ds As New ADODB.Connection
dim rs As New ADODB.Recordsetstr="Driver=SQL SERVER;SERVER=你的实例名;UID=sa;PWD=xx;DATABASE=ds"
ds.CursorLocation = adUseClient
ds.open str