 |
|
ใช้เป็นdate แล้วเกิดerror
Code
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim MySQL As String
MySQL = "insert into product3Ball(วันที่,เลขใบรับเบิกสินค้า,ชื่อสินค้า,รหัสินค้า,ประเภทสินค้า,ตำแหน่งจัดเก็บ,จำนวนรับ,จำนวนเบิก,ผู้รับ,ผู้เบิก,รายละเอียด) Values (@tu1,@tu2,@tu3,@tu4,@tu5,@tu6,@tu7,@tu8,@tu9,@tu10,@tu11)"
Dim cmd As New SqlCommand(MySQL, cn)
cmd.Parameters.Add("tu1", SqlDbType.VarChar).Value = DateTimePicker1
cmd.Parameters.Add("tu2", SqlDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("tu3", SqlDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("tu4", SqlDbType.VarChar).Value = TextBox3.Text
cmd.Parameters.Add("tu5", SqlDbType.VarChar).Value = TextBox4.Text
cmd.Parameters.Add("tu6", SqlDbType.VarChar).Value = TextBox5.Text
cmd.Parameters.Add("tu7", SqlDbType.VarChar).Value = TextBox6.Text
cmd.Parameters.Add("tu8", SqlDbType.VarChar).Value = TextBox7.Text
cmd.Parameters.Add("tu9", SqlDbType.VarChar).Value = TextBox9.Text
cmd.Parameters.Add("tu10", SqlDbType.VarChar).Value = TextBox10.Text
cmd.Parameters.Add("tu11", SqlDbType.VarChar).Value = RichTextBox1.Text
Try
MsgBox("สำเร็จ")
Catch ex As Exception
MsgBox("ไม่สำเร็จ")
End Try
cmd.ExecuteNonQuery()
|
 |
 |
 |
 |
| Date :
2017-07-28 20:39:16 |
By :
chokzass2016 |
|
 |
 |
 |
 |
|
|
 |
