0

私はMS SQL Linked-Server（Mysqlから）を持っています-生成されたTable TBLを含む

*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 は送信されるメッセージです。

私が望んでいたのは、テーブル TBL の各行を MobileNo に対して自動的に選択し、SMS を送信するコードを作成することです。VB コードは実際にはバルク メッセージング用ではないため、各行をスキャンし、各 MobileNo を取得し、メッセージを送信し、次の行スキャンの前に数秒間遅延させるループを作成するというのが私の考えです。それが可能かどうかさえわかりません。しかし、私はループを思いつく方法がわからないだけでなく、データベース間の接続を作成する方法さえ知らないと思います。これを達成する方法を知っている人はいますか？

4

1 に答える 1

0

このコードを使用できるかもしれません：

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-26T06:34:18.280 に答える