怎样才能在局域网查询我的数据库？

XML应该是能满足这个功能了

http://ys-h.ys168.com/ys168up/D3/?SQLServer2000的XML集成.txty72z74fd4fd2b0b2z95b7b2fd2bi1fq9f9b1b5b2f9b7f6e16e20e16e24b1b2f2b1b0b0b2fc7fd3za

你好，问题已经解决，用VB 6.0 实现的，要看到程序的执行结果，你首先需要：

1、添加Adodc控件和CommonDialog控件，并分别将其添加到窗体中，name属性分别为Adodc1、CD1，只需将Adodc1的Visible属性设置为False，其他的不用设置，我已经在程序中帮你实现。

2、添加两个单选按钮，caption属性分别为“Start_IP”、“End_IP”，其他属性不用设置。

3、添加一个文本框，用于显示你连接的数据库位置，不用设置属性。

4、添加两个按钮，可以不用修改任何属性，其中Command1用于连接数据库，Command2用于执行查询，不用设置属性。

5、添加两个Lebel控件，其中Label1的name属性为Info，用于显示查询结果，label2用于提示（此控件你也可以不添加）。

程序代码如下：

'进行了以上设置后，直接将代码拷过去即可

Dim path As String

Dim isConnected As Boolean

Dim selectStyle As String

Public Sub Connect() '用于连接数据库

CD1.Filter = "microsoft access data base(*.mdb)|*.mdb"

CD1.FilterIndex = 1

CD1.ShowOpen

If CD1.FileName <>"" Then

path = CD1.FileName

Text1.Text = path

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &path &"Persist Security Info=False"

Adodc1.Enabled = True

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "IP"

isConnected = True

Set Info.DataSource = Adodc1 '数据绑定

Info.DataField = "Address"

Else

Exit Sub

End If

End Sub

Public Sub Query() '数据查询

If isConnected Then '如果已经连接

Select Case selectStyle

Dim sqlstr As String

Case "Start_IP"

sqlstr = "select Address from IP where Start_IP = '" &CStr(Trim(InputBox("Please enter the IP that you wanted:", "Tips", "202.103.74.100"))) &"'"

Case "End_IP"

sqlstr = "select Address from IP where End_IP = '" &CStr(Trim(InputBox("Please enter the IP that you wanted:", "Tips", "202.103.74.100"))) &"'"

Case Else

Exit Sub

End Select

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = sqlstr

Adodc1.Refresh

If Not Adodc1.Recordset.EOF Then '如果查到数据

MsgBox "The information that you wanted is " &Info.Caption

Else '如果没有查询到数据

MsgBox "Sorry,we do not find the data that you wanted!"

End If

Else

MsgBox "Please connect the database first!"

End If

End Sub

Private Sub Command1_Click() '指定源数据库

Call Connect

End Sub

Private Sub Command2_Click() '进行查询

Call Query

End Sub

Private Sub Form_Load()

Option1.Value = True

selectStyle = Option1.Caption '查询Start_IP

End Sub

Private Sub Option1_Click()

selectStyle = Option1.Caption '查询Start_IP

End Sub

Private Sub Option2_Click()

selectStyle = Option2.Caption '查询End_IP

End Sub

---