0

我有一个 MS SQL 链接服务器（来自 Mysql） - 生成的表 TBL 包含

*Index
*StdNo
*MobileNo

我有一个用于短信发送的 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，发送消息，然后在下一行扫描之前延迟几秒钟。我什至不知道这是否可能。但我认为是这样，我只是不知道如何提出循环，甚至不知道如何创建数据库之间的连接。有谁知道如何做到这一点？

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 回答