Question

vb.net怎样实现多客户端与服务器端通信

Answer 1

'Private Sub DataGrid1_Click()
   ' If DataGrid1.Row > 0 Then
       ' dwbhTXT.Text = DataGrid1.Columns(0).Value
       ' Text1.Text = DataGrid1.Columns(1).Value
       ' Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ktcms.mdb;Jet OLEDB:Database Password=701109"
       ' Adodc2.RecordSource = "select * from consumer where 用户编号=" & dwbhTXT.Text
       ' Adodc2.Refresh
       ' If Adodc2.Recordset.RecordCount > 0 Then
       '   Combo1.Text = Adodc2.Recordset.Fields("省份").Value
       ' End If
   ' End If
'End Sub