将多个数据插入单个单元格SQLyog vb.net

时间:2015-12-01 11:31:59

标签: vb.net sqlyog

我正在努力为牙医开发一个管理系统,这就是我正在开发的系统

THIS MY PROGRAM'S SCREENSHOT 当牙医在文本框中输入数据时,它将被保存在数据库中,每当牙医再次在该文本框中插入数据时,它不会用较新的数据替换旧数据,而是存储数据,使细胞存储多个数据

这是我将数据添加到表中的代码

表名:teethhistory

数据库名称:PatientManagementSystem

Private Sub txtURThirdMolar_KeyDown(sender As Object, e As KeyEventArgs) Handles txtURThirdMolar.KeyDown
        If e.KeyCode = Keys.Enter Then
           MySqlConn.Open()
           query1 = "SELECT * FROM teethhistory WHERE Patient_ID_Number ='" & lblID.Text & "'"
            cmd1 = New MySqlCommand(query1, MySqlConn)
            reader = cmd1.ExecuteReader

            If reader.HasRows Then
                Dim i As Integer
                With cmd
                    .Connection = MySqlConn
                    .CommandText = "UPDATE teethhistory SET Up_Right_3rd_Molar ='" & txtURThirdMolar.Text & "' WHERE Patient_ID_Number = " & lblID.Text
                    reader.Close()
                    i = .ExecuteNonQuery
                End With

            If i > 0 Then
                MsgBox("Updated!", MsgBoxStyle.Information, "Success")
            Else
                MsgBox("Failed", MsgBoxStyle.Information, "Failed")
            End If

        Else
           Dim cmd As MySqlCommand = MySqlConn.CreateCommand
                cmd.CommandText = String.Format("INSERT INTO teethhistory (Patient_ID_Number, Fullname, Up_Right_3rd_Molar )" &
                                            "VALUES ('{0}' ,'{1}' ,'{2}')",
                                            lblID.Text,
                                            lblFullname.Text,
                                            txtURThirdMolar.Text)
                reader.close()
                Dim affectedrows As Integer = cmd.ExecuteNonQuery()
                If affectedrows > 0 Then
                    MsgBox("Saved!", MsgBoxStyle.Information, "Success")
                Else
                    MsgBox("Saving failed.", MsgBoxStyle.Critical, "Failed")

                End If
                MySqlConn.close()
        End If
    End Sub

1 个答案:

答案 0 :(得分:0)

如果要将现有文本附加到包含文本框中新数据的字段中,请使用“更新命令”作为

 .CommandText = "UPDATE teethhistory SET Up_Right_3rd_Molar = concat('" & txtURThirdMolar.Text & "',Up_Right_3rd_Molar)   WHERE Patient_ID_Number = " & lblID.Text

用于插入用逗号分隔的值,只需在字符串ion concat函数之前插入逗号。

希望我能够很好地解决你的问题并解决它。