紧急！！如何实现用vb象QQ一样的通过internet来更新服务器的数据。（不是用ASP）

Question

方法是有很多中的， 就你的只用ADO也是可以实现的

Answer 1

如楼上所说：方法是很多的
我想现在最佳的方案是SOAP与WEBSERVICE

Answer 2

server code 
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fso, filesPrivate Sub Command1_Click()
CommonDialog1.ShowSave
If CommonDialog1.FileName <> Empty Then
Set fso = CreateObject("scripting.filesystemobject")
Set files = fso.createTextFile(CommonDialog1.FileName, True)
For i = 1 To List1.ListCount
files.writeline (List1.ItemData(i - 1))
Debug.Print List1.ItemData(i - 1)
Next i
End If
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Winsock1.Listen
Form1.Show
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then
Winsock1.Close
End If
Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datacome As String
Winsock1.GetData datacome
conn.Open "provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ppqq;Data Source=LANDOG"
rs.CursorLocation = adUseClient
rs.Open "select * from ppqq", conn
Dim no As String
no = CStr(rs.RecordCount + 10000)
Debug.Print rs.RecordCount
Debug.Print datacome
insertit = "insert into ppqq(no,name,pass,province,email) values('" + no + "','" + datacome + " )"
conn.Execute (insertit)
rs.Close
conn.Close
'conn.Execute ("delete from ppqq where no>10002")
Winsock1.SendData no
Debug.Print "senddata no ok"
End SubPrivate Sub Winsock1_SendComplete()
Winsock1.Close
Winsock1.Listen
End Subclient code
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
If pass.Text <> repass.Text Or nam.Text = "" Or pass.Text = "" Or province.Text = "" Or email.Text = "" Then
MsgBox "两次输入的密码不同，请重新输入"
pass.Text = ""
repass.Text = ""
Else
Winsock1.Connect
Command1.Enabled = False
Debug.Print Winsock1.State
End If
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Winsock1.Close
End SubPrivate Sub Winsock1_Connect()
Debug.Print "accept"
Winsock1.SendData nam.Text + " ','" + pass.Text + " ' ,'" + province.Text + " ' ,'" + email.Text + " '"
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Debug.Print "acceptok"
Dim no As String
Winsock1.GetData no
Label3.Caption = "您的ppqq号码为" & no
End SubPrivate Sub Winsock1_SendComplete()
Label1.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
nam.Visible = False
pass.Visible = False
repass.Visible = False
province.Visible = False
email.Visible = False
Command2.Caption = "退出"
Label3.Caption = "等待服务器处理........."
Debug.Print Winsock1.State
End Sub你看看这个，是申请号吗的程序，用的是winsock tcp方式，希望对你有所帮助！

Answer 3

多谢各位捧场。我经过多次的查找资料，已经知道了解决方法。关键是可以通过socket来规定自己的客户机和服务器之间的通信协议。也可以通过RDS来实现远程连接。