Private Sub Cmd_SAVENEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_SAVENEW.Click
Try
Dim DBConn As New MySqlConnection("Database=datatype_computerhexa;Data Source=localhost;User Id=root;Password=4301023034;Connect Timeout=30;charset=utf8")
Dim DBSConn As New MySqlCommand("", DBConn)
Dim Sid As String = lblAritcle_ID.Text ' ----- ตั้งค่าตัวแปรให้กับ label เพื่อเรียกใช้ตอน inset into
Dim Sname As String = txtName_Aritcle.Text' -----ตั้งค่าตัวแปรให้กับ textbox เพื่อเรียกใช้ตอน inset into
DBSConn.CommandText = "INSERT INTO articles_type (Articles_ID,Articles_Name)VALUES ('" & Sid & "','" & Sname & "')"
DBSConn.ExecuteNonQuery()
DBConn.Close()
MessageBox.Show("ได้ทำการบันทึก เรียบร้อยแล้ว", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Refresh()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
เอางี้ แบบง่าย ๆ การเพิ่มข้อมูลลงใน DATA BASE แบบง่าย ๆ เลย
ลองเอาไปทำดูครับ ของคุณดูแล้วมันไม่เหมือนการ Add เลยอะอย่างที่
คุณ stricken ว่าอะ มันดูแล้วอย่างงั้ยไม่รู้ จะอธิบายยาว ๆ เดียวก้อถามกลับมาอีก
ลองเอาไปปรับปรุงดู แล้วดูของแตกต่างระหว่าง ของที่ทำไว้ กับที่ผมเอาให้นะคับ
ว่ามันต่างกันที่ตรงไหนบ้างของผม DATA BASE เป็น MYSLQ นะคับได้ผลงั้ยบอกด้วย
-*-
Load balance : Server 00
