VB中用Winsock控件实现远程数据库查询
你可能已经习惯了在自己的电脑中查询本机数据库中的信息，但当你身处异地想获得一位客户的详细资料时你该怎么办呢？这时你就要借助远程数据库查询软件才能实现了。下面本文将介绍如何利用Visual Basic来编写远程数据库查询软件。
#1 编程思路：
客户端利用Winsock的SendData方法将待查内容发送到服务器端，服务器端利用data控件对数据库进行查询，最终利用Winsock的SendData 方法将查询结果发送到客户端。
#1 绘制窗体：
一、服务器端（界面如（图1）1）
新建一个工程在窗体中加入：
Winsock控件，名称为sckServer，procotol为scktcpprocotol
DATA控件，名称为data1 connect为Access，databasename为D:\shenfen.mdb
shenfen.mdb包含姓名、性别、身份证、民族、地址5个字段其类型均为文本。
TEXTBOX控件，共加入6个TEXTBOX控件名称为TEXT1—TEXT6，其中TEXT2—TEXT6分别与DATA1控件中的各字段相关联
二、客户端（界面如（图2）2）
新建一个工程在窗体中加入：
winsocK控件，名称为sckClient，procotol为scktcpprocotol
TEXTBOX控件，共加入两个TEXTBOX控件名称为TEXT1—TEXT2
COMMANDBUTTON控件，名为cmdSendData
#1 程序源码：
1.服务器端
Option Explicit
Private retname As String
Private retsex As String
Private retold As String
Private all As String
Private Sub Command1_Click（）
Print all
End Sub
Private Sub Form_Load（）
sckServer.LocalPort = 1975 ＇设置端口号
sckServer.Listen ＇开始监听1975号端口
＇读取当前服务器信息，并显示
MsgBox “服务器的IP地址为：” & sckServer.LocalIP， vbOKOnlx，“提示”
MsgBox “服务器的名称为：” & sckServer.LocalHostName， vbOKOnly，“提示”
End Sub
Private Sub Form_Unload（Cancel As Integer）
If sckServer.State <> sckClosed Then sckServer.Close
＇退出时中断连接
End Sub
Private Sub sckServer_ConnectionRequest（ByVal requestID As Long）
＇当新的连接请求来到时，检查是否已经与其他计算机建立过连接
＇如果已经连接关闭连接
If sckServer.State <> sckClosed Then sckServer.Close
＇建立新的连接（如果使用控件数组，则可以在不关闭当前连接的情况下与多台计算机建立连接）
sckServer.Accept requestID
End Sub
Private Sub sckServer_DataArrival（ByVal bytesTotal As Long）
Dim Received As String
Dim jj As String
Dim ww As String
＇当有数据来到时将数据保存在Received中，并显示
sckServer.GetData Received， vbString
Text1.Text = Received
ww = Mid（Received， 3）
jj = Mid（Received， 1， 2）
＇判断待查字段
If jj = Chr（33） & Chr（33） Then GoTo shefen
Data1.Recordset.FindFirst “姓名 = ＇” & ww & “＇”
GoTo last
shefen:Data1.Recordset.FindFirst “身份证 = ＇” & ww & “＇”
last: retname = Text1.Text
retsex = Text3.Text
retold = Text4.Text
If Data1.Recordset.NoMatch Then
all = “”
Else
all=Text6.Text+Text2.Text+Text3.Text+Text4.Text + Text5.Text
End If
sckServer.SendData all
＇将符合条件的纪录的所有字段信息打包发回客户端，字段间可用特殊字符隔开以便客户端处理
End Sub
2.客户端
Option Explicit
Private SendTime As Integer
Private name1 As String
Private sex As String
Private old As String
Private Sub cmdSendData_Click（）
Dim jwx As String
name1 = “”
sex = “”
old = “”
If Text1.Text <> “” Then
name1 = Chr（63） & Chr（63） & Text1.Text
＇将待查姓名前加入两个Chr（63）使服务器端可判断待查字段为姓名
ElseIf Text2.Text <> “” Then
name1 = Chr（33） & Chr（33） & Text2.Text
＇将待查姓名前加入两个Chr（33）使服务器端可判断待查字段为身份证号
Else: MsgBox “输入不得为空”，，“警告”
End If
sckClient.SendData name1
＇发送name1
End Sub
Private Sub Form_Load（）
＇远程主机名可在“控制面板-网络-标识”中查到或输入服务器的IP地址
sckClient.RemoteHost = “jwx”
sckClient.RemotePort = 1975 ＇设置远程端口与服务器端一致
＇开始连接
sckClient.Connect
Do
DoEvents
Loop Until sckClient.State = sckConnected Or _
sckClient.State = sckError
＇监测连接状态
If sckClient.State = sckError Then
MsgBox “无法连接到服务器”， 48， “提示”
cmdSendData.Enabled = False
GoTo sj
End If
MsgBox “成功连接到服务器：” & sckClient.RemoteHostIP， vbOKOnly， “提示”
sj:
End Sub
Private Sub Form_Unload（Cancel As Integer）
If sckClient.State <> sckClosed Then sckClient.Close
End Sub
Private Sub sckClient_Close（）
＇关闭连接
sckClient.Close
cmdSendData.Enabled = False
End Sub
Private Sub sckClient_DataArrival（ByVal bytesTotal As Long）
Dim Received As String
＇当有数据来到时将数据保存在Received中，并显示
sckClient.GetData Received， vbString
Text1.Text = Received
cmdSendData.Enabled = False
End Sub
Private Sub Text1_Change（）
cmdSendData.Enabled = True
End Sub
Private Sub Text2_Change（）
cmdSendData.Enabled = True
End Sub
关于Winsock控件的详细使用方法请参考MSDN，本程序调试环境：Win98第二版，Access 97， Visual Basic6.0企业版。