如何获取列和单元格数据的值？

Question

我有一个按钮“ btnSetAppointment”，创建了一个计划系统，当我保存约会时，它将自动向患者的phone_number发送消息。 但是，我不知道如何从表中获取phone_number的值。

如下所示，我将number声明为字符串，我想将患者的phone_number存储在数据库中。

Private Sub btnSetAppointment_Click(sender As Object, e As EventArgs) Handles btnSetAppointment.Click
                'SMS

 query = "SELECT * FROM schedule WHERE Phone_Number =" & frmViewSchedule.dgvSchedule.SelectedRows(3).Cells(0).Value
                cmd = New MySqlCommand(query, MySqlConn)
                reader = cmd.ExecuteReader
                Dim number1 As String

                If reader.HasRows Then
                    number1 = frmViewSchedule.dgvSchedule.SelectedRows(3).Cells(0).Value


                    With SerialPort1
                        .Write("at" & vbCrLf)
                        Threading.Thread.Sleep(1000)
                        .Write("at+cmgf=1" & vbCrLf)
                        Threading.Thread.Sleep(1000)
                        .Write("at+cmgs=" & Chr(34) & number1 & Chr(34) & vbCrLf)
                        .Write(sys_msg & Chr(26))
                        Threading.Thread.Sleep(1000)
                        MsgBox(rcvdata.ToString)

                    End With
                End If
end sub

Answer 1

这就是我将使用MySQL（在建立数据库连接之后）执行此操作的方式。

         Try
            Dim MyDb As New Database_Connection
            Dim query As String
            query = "select phone_number from schedule where Phone_Number = '" & frmViewSchedule.dgvSchedule.SelectedRows(3).Cells(0).Value & "'"
                Dim myReader As OdbcDataReader = MyDb.ExecuteQuery(query)

            myReader.Read()

             If reader.HasRows Then
               dim ph_number as string = myReader.Item(0)
              .
              .
              .
             End if             
                myReader.Close()
                MyDb.Dispose()
            Catch ex As System.Data.Odbc.OdbcException
                'MessageBox.Show(ex.ToString)
            End Try