 |
| |
ช่วยผมด้วยครับกำลังทำโปรเจค ส่งเดือนนี้ด้วยครับ ก่อนวันที่ 31/3/2554 |
| |
 |
|
|
 |
 |
|
Code (VB.NET)
Dim Comhis As New OleDbCommand
Dim sqlAdd As String
sqlAdd = "INSERT INTO history (orderno,police,his_id,no,notfird,dayevent,timeevent,locale,address,moo,"
sqlAdd &= "road,tambol,amphur,province,title,fname,lname,idcard,allegation,sufferer,"
sqlAdd &= "unit,exhibit,his_number,count,confiscate,inquiry,idinquiry,event)"
sqlAdd &= " VALUES ('" & txtOrderno.Text & "','" & cboPolice.Text & "','" & mtbhis_id.Text & "',"
sqlAdd &= "'" & txtNo.Text & "','" & dtpNotified.Value & "','" & dtpDayevent.Value & "',"
sqlAdd &= "'" & dtptimeevent.Text & "','" & txtLocale.Text & "','" & txtAddress.Text & "',"
sqlAdd &= "'" & txtMoo.Text & "','" & txtRoad.Text & "','" & txtTambol.Text & "',"
sqlAdd &= "'" & cboAmphur.Text & "','" & cboProvince.Text & "', '" & cboTitle.Text & "',"
sqlAdd &= "'" & txtFname.Text & "','" & txtLname.Text & "','" & mtbIdcard.Text & "',"
sqlAdd &= "'" & txtAllegation.Text & "','" & txtSufferer.Text & "','" & txtUnit.Text & "',"
sqlAdd &= "'" & txtExhibit.Text & "','" & txtHis_number.Text & "','" & txtCount.Text & "',"
sqlAdd &= "'" & txtConfiscate.Text & "','" & txtInquiry.Text & "','" & txtIdinquiry.Text & "',"
sqlAdd &= "'" & txtEvent.Text & "')"
With Comhis
.CommandText = sqlAdd
.CommandType = CommandType.Text
.Connection = conn
.ExecuteNonQuery()
End With
Error = Syntax error in INSERT INTO
มันบอกว่าแบบนี้นะครับ
วิธีแก้ของผมคือ นำ SQL ที่ได้ ไป Run ใน Access แล้วมันเพิ่มลงฐานข้อมูลได้นะครับ
ไม่เข้าใจเหมือนกันว่าทำไม เพิ่มใน VB ไม่ได้
ผมแก้มาให้หลายคนแล้วผมก็แก้ไม่ได้
ผู้รู้ช่วยบอกที
SQL ถูก แต่ว่า รันใน VB แล้วผิดพลาด Syntax error in INSERT INTO
Tag : .NET, Ms Access, MySQL, Win (Windows App), VB.NET
|
ประวัติการแก้ไข
2011-03-06 22:11:13
2011-03-06 22:13:15
2011-03-06 23:39:06
2011-03-06 23:39:47
|
 |
 |
 |
 |
| Date :
2011-03-06 22:09:12 |
By :
ApBank |
View :
1210 |
Reply :
6 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Code (VB.NET)
da = New OleDbDataAdapter(sqlAdd, conn)
da.Fill(ds, "history")
^ ถ้าเขียนงี้มันคือการดึงข้อมูลมาใส่ใน dataset ที่ชื่อ history นะ
มันไม่ได้เอาไว้ add ข้อมูลนะครับ
ให้ใช้ OleDbCommand + ExecuteNonQuery
https://www.thaicreate.com/asp.net/asp.net-executenonquery.html
|
| |
|
|
| |
| Date :
2011-03-06 22:57:57 |
By :
stricken |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อาการเดิมครับท่าน Error ที่เดิม
|
| |
|
|
| |
| Date :
2011-03-06 23:39:24 |
By :
ApBank |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
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 นะคับได้ผลงั้ยบอกด้วย
-*-
|
| |
|
|
| |
| Date :
2011-03-07 08:02:06 |
By :
angelrings0 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณ สำหรับทุกคำตอบนะครับ
ผมจะลองปรับดูก็แล้วกัน
|
| |
|
|
| |
| Date :
2011-03-07 09:13:03 |
By :
ApBank |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมว่าชื่อ Table มันดูจะกำกึ่งๆ นะ คือเกือบๆจะเป็นคำต้องห้ามของ Labanoon อ่ะ
|
| |
|
|
| |
| Date :
2011-03-07 11:38:11 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
