 |
| |
ช่วยดูโค้ดให้หน่อยนะคะ ติด error ตัวนี้ค่ะ Syntax error INSERT INTO statement ติดที่ Datetime ค่ะ |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsave.Click
Try
Dim cmd As New OleDbCommand
cmd.Connection = conn
cmd.CommandText = "INSERT INTO Credit(Credit_ID, Member_ID, Crebit, Total, Date, Remark) VALUES ('" & txtCreID.Text & "','" & txtMemberID.Text & "','" & txtCredit.Text & "','" & txtTotal.Text & "','" & DateTimePicker1.Text & "','" & txtRemark.Text & "')"
With cmd
cmd.ExecuteNonQuery()
conn.Close()
End With
MsgBox("บันทึกข้อมูลเรียบร้อยแล้วค่ะ", vbOKOnly, "Save Data")
Dim cn As New System.Data.OleDb.OleDbConnection(connstring)
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim sql1 As String = "select * from Credit"
da.SelectCommand = New System.Data.OleDb.OleDbCommand(sql1, cn)
da.Fill(ds, "Credit")
DataGridView1.DataSource = ds.Tables("Credit")
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
Tag : .NET, VS 2010 (.NET 4.x)
|
|
|
 |
 |
 |
 |
| Date :
2013-05-25 22:23:43 |
By :
borobirt |
View :
995 |
Reply :
17 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
DateTimePicker1 ใช้ DateTimePicker1.value.ToString("MM/dd/yyyy") ค่ะ
|
| |
|
|
| |
| Date :
2013-05-25 23:16:32 |
By :
ninja,aster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ยังไม่ได้อยู่ดีอะค่ะ
|
| |
|
|
| |
| Date :
2013-05-26 12:25:30 |
By :
borobirt |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
ToString("yyyy/MM/dd")
|
| |
|
|
| |
| Date :
2013-05-26 21:21:25 |
By :
PlaKriM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
debug แล้วเอา error เต็มๆ มาดูครับ ไม่แน่ใจว่าเป็นที่ฟิลด์ชื่อ Date หรือเปล่า
|
| |
|
|
| |
| Date :
2013-05-26 21:57:06 |
By :
PlaKriM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 ตอบความคิดเห็นที่ : 7 เขียนโดย : PlaKriM เมื่อวันที่ 2013-05-26 21:57:06
รายละเอียดของการตอบ ::
cmd.CommandText "INSERT INTO Credit(Credit_ID, Member_ID, Crebit, Total, Date, Remark) VALUES ('8','1','333','2667','05/27/2556', 'เงินบริจาค')" String
|
| |
|
|
| |
| Date :
2013-05-27 08:17:59 |
By :
borobirt |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsave.Click
Try
Dim cmd As New OleDbCommand
cmd.Connection = conn
cmd.CommandText = "INSERT INTO Credit(Credit_ID, Member_ID, Crebit, Total, `Date`, Remark) VALUES ('" & txtCreID.Text & "','" & txtMemberID.Text & "','" & txtCredit.Text & "','" & txtTotal.Text & "','" & _ DateTimePicker1.Values.ToString("yyyy/MM/dd") & "','" & txtRemark.Text & "')"
With cmd
cmd.ExecuteNonQuery()
conn.Close()
End With
MsgBox("บันทึกข้อมูลเรียบร้อยแล้วค่ะ", vbOKOnly, "Save Data")
Dim cn As New System.Data.OleDb.OleDbConnection(connstring)
Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim sql1 As String = "select * from Credit"
da.SelectCommand = New System.Data.OleDb.OleDbCommand(sql1, cn)
da.Fill(ds, "Credit")
DataGridView1.DataSource = ds.Tables("Credit")
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
ลองดูครับ ถ้าไม่ได้ ขอดูรูป ตอนมันขึ้น Error มาดูหน่อยว่า Error แบบไหน
|
ประวัติการแก้ไข
2013-05-27 10:37:02
| |
|
|
| |
| Date :
2013-05-27 10:36:17 |
By :
CPU4Core |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
น่าจะไม่มี field ชื่อ Date ครับ
|
| |
|
|
| |
| Date :
2013-05-27 12:47:16 |
By :
fonfire |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองเปลี่ยนชื่อดูก็ได้ครับ ^_^"
|
| |
|
|
| |
| Date :
2013-05-27 13:40:25 |
By :
fonfire |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
น่าจะซ้ำกับคำสงวนของ Database นะครับ ลองไปเปลี่ยนชื่อฟิล วันที่ ในฐานข้อมูลเป็นชื่ออื่นดูนะครับ แล้วก็เปลี่ยนในคำสั่ง vb ด้วย ให้มันอ้างอิงถึงชื่อฟิลใหม่นะครับ ลองดู
|
| |
|
|
| |
| Date :
2013-05-27 13:40:57 |
By :
01000010 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
