大侠如何写访问服务器数据呢(SQL)?

Question

假如本公司有一台服务器,地址是192.168.3.1那么我该如何去写代码吗,我不想通过DSN来访问,想用控件或代码写.希望高手告之于我,急啊!!!在此谢谢!

Answer 1

通过连接字符串访问吧，
str="driver={SQL Server};server=(192.168.3.1);uid=;pwd=;"

Answer 2

我还是把原码给大家吧,希望大家能帮我:
Dim servername, datename, uername, pasword As String
Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Cmdtest_Click()
On Error GoTo errhandle:Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
servername = Text1.Text '服务器名
datename = Text2.Text '数据库名
uername = Text3.Text '用户名
pasword = Text4.Text '口令
connectstring = "driver={SQL Server}" & ";server = " & servername & ";uid=" & uername & ";pwd=" & pasword & ";database=" & datename
'cn.ConnectionString = connectstring
cn.Open connectstring
rs.Open "select * from active_user_info", cn
MSFlexGrid1.Rows = 1
    loop1 = 0
    '写入数据
'    rs.MoveFirst
    Do Until rs.EOF
             loop1 = loop1 + 1
             MSFlexGrid1.AddItem ""
           For loop2 = 0 To 12
           Select Case loop2
                Case 0:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("login_id")
                Case 1:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("user_id")
                Case 2:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("login_id2")
                Case 3:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("host_name")
                Case 4:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("login_time")
                Case 5:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("last_time")
                Case 6:
                      MSFlexGrid1.TextMatrix(loop1, loop2) = rs.Fields("internet_user_status")
                End Select
        Next loop2
        rs.MoveNext
    Loop
cn.Close
errhandle:
          MsgBox Err.Description
End SubPrivate Sub Form_Load()Call intflex
End Sub
Sub intflex()
MSFlexGrid1.TextMatrix(0, 0) = "login_id"
MSFlexGrid1.TextMatrix(0, 1) = "user_id"
MSFlexGrid1.TextMatrix(0, 2) = "login_id2"
MSFlexGrid1.TextMatrix(0, 3) = "host_name"
MSFlexGrid1.TextMatrix(0, 4) = "login_time"
MSFlexGrid1.TextMatrix(0, 5) = "last_time"
MSFlexGrid1.TextMatrix(0, 6) = "internet_user_status"
End Sub

Answer 3

其实如上所写connectstring = "driver={SQL Server}" & ";server = " & servername & ";uid=" & uername & ";pwd=" & pasword & ";database=" & datename
用driver={SQL Server}他会提示没有提供任何DSN或SERVER关键字.
如我用Provider=SQLOLEDB.1本地的SQL可以读取数据的!!

Answer 4

用Adodc控件生成连接字符，可以测试连接是否正确
！

Answer 5

ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
或者
ConnectionString = "driver={SQL Server};server=yang;uid=sa;pwd=;ConnectionTimeout=0;database=northwind"