在VB中如何编写串口通讯程序的问题

[jinhailv]

两台电脑通过一根R232通讯线连接,现在需要用VB编一个通讯程序将一台电脑A中SQL Server2000上数据库中的数据传到另一台电脑B中保存,我用了MSComm控件来编写可否实现,如有高手用过,请给出例子,谢谢!!

[yangbo88]

当然可以，但速度比较慢

[jinhai2003]

Private Sub Command1_Click()
If Text1.Text = "" Then
List1.AddItem "发送缓冲区无数据"
Exit Sub
End If
MSComm1.Output = Text1.Text
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

'主要进行串口的初始化
Private Sub Form_Load()
'选择com1
MSComm1.CommPort = 1
'设置波特率为9.6kpbs，没有奇偶校验，8位数据位，1位结束位
MSComm1.Settings = "9600,N,8,1"
'读取全部的输入缓冲区
MSComm1.InputLen = 0
'端口打开
MSComm1.PortOpen = True
MSComm1.RThreshold = 10
MSComm1.SThreshold = 10
'以下就可以进行数据的发送了
End Sub