กระทู้เก่าบอร์ด อ.Yeadram
2,442 5
URL.หัวข้อ /
URL
การใช้ insert into
เนื่องจากผมสร้างฟอร์มไว้เพื่อกรอกข้อมูลใหม่ แล้วเก็บลง tblA มีข้อมูลดังนี้
id name surname qty ad1 ad2 total
1 a sa 1 1 2 3
2 b sb 1 2 2 4
3 c sc 2 5 1 6
พอกรอกข้อมูลแล้วก้อจะเพิ่มเปนระเบียนใหม่ต่อลงมาเรื่อยๆใน tblA
ความต้องการคือ
อยากให้เพิ่มเข้าไปในอีกเทเบิล คือ tblB ที่มีฟิลด์ไว้รองรับ คือให้เอาค่า name,surname,qty,total
ที่เรากรอกจากฟอร์มไปเก็บไว้ใน tblB คือไม่เอาทั้งหมดคับ
ต้องเขียนโค๊ดอย่างไรคับ รบกวนด้วยคับ มือใหม่พึ่งเคยใช้ access คับ
id name surname qty ad1 ad2 total
1 a sa 1 1 2 3
2 b sb 1 2 2 4
3 c sc 2 5 1 6
พอกรอกข้อมูลแล้วก้อจะเพิ่มเปนระเบียนใหม่ต่อลงมาเรื่อยๆใน tblA
ความต้องการคือ
อยากให้เพิ่มเข้าไปในอีกเทเบิล คือ tblB ที่มีฟิลด์ไว้รองรับ คือให้เอาค่า name,surname,qty,total
ที่เรากรอกจากฟอร์มไปเก็บไว้ใน tblB คือไม่เอาทั้งหมดคับ
ต้องเขียนโค๊ดอย่างไรคับ รบกวนด้วยคับ มือใหม่พึ่งเคยใช้ access คับ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03653
ขอขอบคุณอาจารย์ yeadram มากๆเลยคับ จะลองทำตามดูคับ
3 @R04031
ขอถามเพิ่มเติมค่ะ ลองคีย์ตามคุณ yeadram แล้ว Run แต่ขึ้น msg box ว่า Run-time error '3134' Syntax error in INSERT INTO statement. แล้วต้องทำอย่างไร
4 @R04035
คุณ บุษกร ลองปล่อย คอมเมนต์ บรรทัด debug.print sql ออกนะครับ
แล้วรันดู
ทีนี้กด clt+G ก็อปปี้สายอักขระตัวนั้นมาดูครับ
แล้วก็เพิ่มเติมอีกอย่างคือ โครงสร้างตาราง (tblB) ของคุณบุษกรเป็นอย่างไร ขอมาให้ดูด้วยครับ
มีกี่ฟิลด์ แต่ละฟิลด์จัดเก็บข้อมูลเป็นประเภทใดบ้าง
แล้วรันดู
ทีนี้กด clt+G ก็อปปี้สายอักขระตัวนั้นมาดูครับ
แล้วก็เพิ่มเติมอีกอย่างคือ โครงสร้างตาราง (tblB) ของคุณบุษกรเป็นอย่างไร ขอมาให้ดูด้วยครับ
มีกี่ฟิลด์ แต่ละฟิลด์จัดเก็บข้อมูลเป็นประเภทใดบ้าง
5 @R23718
ขอสอบทราบครับ
Private Sub Command31_Click()
Dim sql As String
sql = " INSERT INTO bill ([part number],part name)values('" & Text12 & "','" & Text14 & "');"
DoCmd.RunSQL sql
ผมต้องการใช้โค้ด INSERT INTO ในการนำข้อมูลเข้าไปเก็บใน table
ปัญหาคือมันขึ้น Debug ตรงDoCmd.RunSQL sql ครับ พอรันแล้วก็ขึ้นแบบRun-time error '3134' Syntax error in INSERT INTO statement ผมต้องแก้ไขตรงไหนครับ ขอบคุณมากครับ
Private Sub Command31_Click()
Dim sql As String
sql = " INSERT INTO bill ([part number],part name)values('" & Text12 & "','" & Text14 & "');"
DoCmd.RunSQL sql
ผมต้องการใช้โค้ด INSERT INTO ในการนำข้อมูลเข้าไปเก็บใน table
ปัญหาคือมันขึ้น Debug ตรงDoCmd.RunSQL sql ครับ พอรันแล้วก็ขึ้นแบบRun-time error '3134' Syntax error in INSERT INTO statement ผมต้องแก้ไขตรงไหนครับ ขอบคุณมากครับ
Time: 0.3571s
dim sql as string
sql = "insert into tblB ([name], surname, qty, total) values('" & txtname & "', '" & txtsurname & "', " & qty & ", " & total & ");"
' msgbox sql
' debug.print sql
' docmd.setwarnings false
docmd.runsql sql
end sub