รบกวนดู code ให้หน่อยค่ะ
กระทู้เก่าบอร์ด อ.Yeadram

 1,306   2
URL.หัวข้อ / URL รบกวนดู code ให้หน่อยค่ะ

ทำไมมันไม่บันทึกลง table รวม1-6 ค่ะ

Private Sub Command9_Click()

Dim mysql As String

mysql = "select * form รวม1-6"

Date = Text0.Value
Det = Text3.Value
book = Text4.Value
num = Text5.Value
acccode = Text6.Value
debit = Text7.Value
credit = Text8.Value

mysql = "insert into รวม1-6(วดป,รายการ,ใบสำคัญ­,เลขที่,รหัสบัญชี,เดบิท,เครดิต)" & _
"values('date','det','book','num','acccode',debit,credit);"

End Sub

หนูเขียนอะไรตกไปหรือค่ะ recordset หรือ พวก set db ค่ะ

รบกวนด้วยค่ะ
โดย: jane เมื่อ: 23 ธ.ค. 2551 , 10:58

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01176
คุณทำแบบก้ำกึ่งน่ะครับ ตกลงจะ เพิ่มข้อมูลด้วยวิธีไหนดี (ได้ทั้งสอง แต่ที่คุณเขียนมา ไม่สมบูรณ์ซักอย่างเลยครับ)
1. โดยใช้คอมโพเน้น adodb
2. โดยใช้ append query

โดยวิธีที่ 2 จะได้ว่า
Private Sub Command9_Click()
Dim mysql As String

mysql = "insert into [รวม1-6]([วดป],[รายการ],[ใบสำคัญ­],[เลขที่],[รหัสบัญชี],[เดบิท],[เครดิต])" & _
VALUES('" & text0 & "', '" & text3 & "', '" & text4 & "', '" & text5 & _
"', '" & text6 & "', '" & text7 & "', '" & text8 & "')"

docmd.runsql mysql
End Sub


- ชื่อ object ถ้าเขียนเป็นภาษาไทยจะค่อนข้างมีปัญหากับการเขียนโค้ด เพื่อป้องกันปัญหาดังกล่าว ต้องใช้เครื่องหมาย สี่เหลี่ยมคร่อมไว้ทุกๆ ที่ครับ
- ใน vb6    properties ตัวที่เป็น default ของ textbox คือ .text แต่ใน access ตัว default ของ textbox คือ .value อยู่แล้ว ดังนั้น เราไม่ต้องเติม .value มาก็ได้ครับ
- ที่คุณเขียนมาแล้วผมบอกว่ามันไม่สมบูรณ์นั้น รายละเอียดก็คือ
mysql คือ ตัวแปร   คุณประกาศไว้
mysql มีค่ามาแล้ว   คุณใส่ค่าให้มันแล้ว และดูเหมือนจะเป็น sql statement
แต่คุณยังไม่สั่งให้ statement ตัวนี้ทำงาน
คำสั่งที่ให้มันทำงาน
docmd.runsql mysql นี่ก็ได้ หรือ
currentproject.connection.excute mysql ก็ได้ครับ
โดย: yeadram เมื่อ: 23 ธ.ค. 2551 , 11:59
2 @R01177
ขอบคุณค่ะ
โดย: jane เมื่อ: 23 ธ.ค. 2551 , 13:59
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3351s