VB WINSOCK控件问题

Question

 我刚接触VB网络编程这块，很多地方不太懂，写了这几行代码，出现“所需事物或请求的错误协议或连接状态”这个错误
源代码如下：
服务器端  （TCP的）
Private Sub Form_Load()
'将 LocalPort  属性设置为一个整数。
'然后调用 Listen  方法。
tcpServer.LocalPort = 1001
tcpServer.Listen
End Sub
 
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
'检查控件的 State  属性是否为关闭的。
'如果不是，
'在接受新的连接之前先关闭此连接。
If tcpServer.State <> sckClosed Then _
tcpServer.Close
'接受具有 requestID  参数的'连接。
tcpServer.Accept requestID
End Sub
Private Sub txtSend_Change()
'名为 txtSend  的 TextBox  控件中
'包含了要发送的数据。当用户往文本框中
'键入数据时，使用 SendData  方法
'发送输入的字符串。
tcpServer.SendData txtSend.Text
End Sub
 Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
'为进入的数据声明一个变量。
'调用 GetData  方法，并将数据赋予名为 txtOutput  的 TextBox  的 Text   属性。
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
 
客户端：
Private Sub Form_Load()
   'Winsock  控件的名字为 tcpClient。
   '注意：要指定远程主机，可以使用
   ' IP  地址（例如："121.111.1.1"），也可以使用“计算机名”如下所示。
   tcpClient.RemoteHost = "20090101-0078"
   tcpClient.RemotePort = 1001
End Sub
Private Sub cmdConnect_Click()
   '调用 Connect  方法，初始化连接。
   tcpClient.Connect
End Sub
Private Sub txtSend_Change()
   
   tcpClient.SendData txtSend.Text
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
   Dim strData As String
   tcpClient.GetData strData
   txtOutput.Text = strData
End Sub希望各位前辈给我些学习网络编程方面的建议或资料，谢谢了！ 

Answer 1

出现这个错误说明，客户端没有连接到服务器。如果你在同一台计算机上测试，请吧以下语句改一下，不用计算机名，用IP。
tcpClient.RemoteHost = "20090101-0078"
改成
tcpClient.RemoteHost = "127.0.0.1"'同一台机器测试用这个IP，不同机器测试，改成服务器IP多数时候不要连接计算机名，而要连接计算机IP，原因是网上的计算机名并不是唯一的。

Answer 2

你的代码和MSDN6的示例很像，是用MSDN的代码吧。你可以在winsock_error 这个事件中取得错误的代码，然后去网上搜索下错误的原因。看你的描述大概是连接服务器没有成功或发送数据时状态不是已连接的状态。

Answer 3

还有，我是想进行网络的数据库操作。我用的是ACCESS数据库。我现在还没有思路，能不能给我点提示，或者举个类子

Answer 4

改完IP后，你要执行tcpClient.Connect这条语句，然后才能在文本框里写字。
你要单击客户端里cmdConnect按钮，然后才可以在文本框里写字。
Private Sub cmdConnect_Click()
  '调用 Connect 方法，初始化连接。
  tcpClient.Connect
End Sub一般是发送数据前判断winsock的state属性是否为7，为7时（已经连接时），然后才可以发送数据。

Answer 5

ACCESS不适合做网络数据库，请考虑SQL SERVER、Oracle或MySQl

Answer 6

tcpServer,是用于监听的，不要关闭，当有客户端申请连接时应该重新定义一个控件进行，Accept requestID，一般SERVER端定义TCP控件数组，tcpServer（0）用于监听，用于tcpServer（N）进行Accept，如果这样进行编程才不会出错（当然一些发送或接收的状态还是要注意的）。