行掃描和延遲爲自動短信在VB2012

發送我有MS SQL鏈接服務器（從MySQL） - 生成包含表TBL行掃描和延遲爲自動短信在VB2012

*Index 
*StdNo 
*MobileNo

我有用於SMS發送VB2012代碼：

Private Sub cmdsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsend.Click 
    Try 
     If SerialPort1.IsOpen Then 
      With SerialPort1 
       .Write("AT" & vbCrLf) 
       .Write("AT+CMGF=1" & vbCrLf) 
       .Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf) 
       .Write(RichTextBox1.Text & Chr(26)) 


      End With 
     Else 
      MsgBox("Error on the port selected") 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub

其中TextBox1.Text是實際手動輸入數字的文本框和RichTextBox1.Text是將要發送的消息。

我想要的是創建一個代碼，該代碼將自動選擇MobileNo的表TBL的每一行，然後發送SMS。由於VB代碼並非真正用於批量消息傳遞，我的想法是創建一個循環，它將掃描每一行，獲取每個MobileNo，發送消息，然後在下一行掃描前延遲幾秒鐘。我甚至不知道這是否可能。但我認爲這是，我只是不知道如何拿出循環，我甚至不知道如何創建數據庫之間的連接。有沒有人有任何想法如何做到這一點？

來源

2013-02-18 Sang

什麼樣的表是TBL？它是一個數據庫表或Excel或csv？ – user1937198 2013-02-18 17:36:57

這是來自鏈接服務器的數據庫表MS SQL – Sang 2013-02-18 17:55:32

開始我掌握了MySQL的ADO.Net驅動程序，然後查看SQLconnection和SQLcommand類 – user1937198 2013-02-18 18:03:17

可能是你可以使用此代碼：

Private Sub cmdsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsend.Click 
    Try 
     If SerialPort1.IsOpen Then 
      With SerialPort1 
       .Write("AT" & vbCrLf) 
       .Write("AT+CMGF=1" & vbCrLf) 
       .Write("AT+CMGS=" & Chr(13) 
.Write(TextBox1.Text) 
       .Write(Chr(26)) 
      End With 
     Else 
      MsgBox("Error on the port selected") 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub

來源

2015-05-26 06:34:18

行掃描和延遲爲自動短信在VB2012

回答

相關問題