怎樣把傳感器得到的資料由串口保存到mysql，資料庫已經搭建好，串口除錯器可以顯示傳感器的資料，因為前面接觸過VB，所以想用VB 實作這一功能，求大神指點，最好由代碼例程提供學習！感謝！
uj5u.com熱心網友回復：
vb串口:上位機如何讀取下位機上傳的資料,高分求救!!!uj5u.com熱心網友回復：
vb6用ado連接mysqluj5u.com熱心網友回復：
Option Explicit ' 強制顯式宣告Dim ComSwitch As Boolean ' 串口開關狀態判斷
Dim FileData As String ' 要發送的檔案暫存
Dim SendCount As Long ' 發送資料位元組計數器
Dim ReceiveCount As Long ' 接收資料位元組計數器
Dim InputSignal As String ' 接識訓沖暫存
Dim OutputSignal As String ' 發送資料暫存
Dim DisplaySwitch As Boolean ' 顯示開關
Dim ModeSend As Boolean ' 發送方式判斷
Dim Savetime As Single ' 時間資料暫存 延時用
Dim SaveTextPath As String
Private Sub cmbCOM_Change()
If cmbCOM.ListIndex + 1 = MSComm1.CommPort Then Exit Sub
Timer1.Enabled = False
TimeDelay 100
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
End If
cmdOpenCOM.Enabled = True
End Sub
Private Sub cmdOpenCOM_Click()
LED1.FillColor = QBColor(10)
If cmbCOM.ListIndex >= 0 And cmbCOM.ListIndex <= 20 Then
MsgBox cmbCOM.ListIndex + 1
MSComm1.CommPort = cmbCOM.ListIndex + 1
Else
MsgBox "指定通信埠時發生錯誤！", vbCritical + vbOKOnly, "系統資訊"
Exit Sub
End If
'激活錯誤檢測機制
'On Error GoTo comErr
MSComm1.Settings = "9600,n,8,1" '設定通信引數
MSComm1.PortOpen = True '打開通信埠
MSComm1.RThreshold = 10
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText '以文本方度接收
'cmdOpenCOM.Enabled = False
'cmdStart.Enabled = True
If MSComm1.PortOpen = True Then
MsgBox "kaiqi！"
End If
Exit Sub
'comErr:
'MsgBox "打開通信埠時發生錯誤！請確定通信埠存在且正常。", vbCritical + vbOKOnly, "系統資訊"
End Sub
uj5u.com熱心網友回復：
現在串口都連接不上，大牛幫忙看看！uj5u.com熱心網友回復：
這東西只能現場調，你哪里的？近的話，有費用，可以考慮。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/89609.html