请教数据库远程访问问题？

Question

各位VB高手：
  用VB编写考试系统的客户端应用程序时，如何实现客户端程序访问远程数据库服务器（MS SQL Server）中的数据， 通过局域网连接。能否给一个客户端访问服务器端的例子。顺便指导一下，系统应该如何设置？
                                
                                                    非常感谢！！

Answer 1

连接字符改成ip地址就可以了啊。
Set conn = Server.CreateObject("ADODB.Connection")
strConn="Provider=sqloledb;Data Source=102.211.2.9;Initial Catalog=FordDealer;User Id=sa;Password=123456;"
conn.Open strConn

Answer 2

您看看我编的连接程序应该怎么改：
Public Function ConnectString() As String
'返回 DB ConnectString
   ConnectString = "FileDSN=myConnection.dsn;UID=sa;PWD="End FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'执行 SQL 并且返回 Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function系统不需要任何的设置吗？

Answer 3

Public Function ConnectString() As String
'返回 DB ConnectString
'用非DSN
   ConnectString = "Driver={SQL Server};Database=数据库名;Server=服务器ID;uid=sa;pwd=;"End Function

Answer 4

'楼上的说的都很不错,我再补充一点。
Private Sub Form_Load()
    Dim CN As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    CN.ConnectionString = "Driver={SQL Server};Database=数据库名;Server=服务器名称或是IP地址;uid=数据表用户（在服务器端的数据表下建立);pwd=数据表用户密码;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from jbxx", CN, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = Rs
End Sub
上述代码的前题条件：
1、在VB中，通过菜单上的 工程-引用-MicroSoft ActiveX Data Objects 2.0 Library，以添加对ADODB的定义
2、服务器端安装了相应的数据库和表以及表的用户。
3、保证网络通畅，并在客户端安装SQL客户端工具。别忘记加分哟。要不然大家都没心情了。