Page 2 of 2
Re: Save As in Access
Posted: Sat Oct 26, 2019 5:42 pm
by siamsrising
Code: Select all
Dim strSQL As String
strSQL = "INSERT INTO tblScore(SName,Score, Folder ) VALUES("
strSQL = strSQL & "'" & SName & "',"
strSQL = strSQL & "" & Score & ","
strSQL = strSQL & "" & Folder & ")"
Dim comm As New ADODB.Command
With comm
.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "\Score Qc.accdb" & ";Persist Security Info=False;"
.CommandText = strSQL
.CommandType = adCmdText
.Execute
End With
ถูกต้องไหมครับ
Re: Save As in Access
Posted: Sat Oct 26, 2019 5:47 pm
by snasui
ถ้าถูกต้อง Record ได้ครับ
Re: Save As in Access
Posted: Sat Oct 26, 2019 5:51 pm
by siamsrising
รบกวนอาจารย์ช่วยดูให้หน่อยครับ
Re: Save As in Access
Posted: Sat Oct 26, 2019 5:54 pm
by snasui
snasui wrote: Sat Oct 26, 2019 5:38 pm
แบบนั้นไม่ได้แน่นอนครับ เพราะ Table มีแค่ 2 คอลัมน์แต่เอาค่าไปใส่ไว้ 3 ค่า
จะต้องปรับที่ Table ให้มีคอลัมน์ให้รองรับค่าที่จะใส่เข้าไปด้วยครับ เช่น จาก
INSERT INTO tblScore(SName,Score) เป็น
INSERT INTO tblScore(SName,Score,SheetName) เป็นต้น และไม่ใช่ว่าปรับตรงนี้แล้วจะบันทึกได้ ใน Database จะต้องมีคอลัมน์นี้อยู่จริงด้วยครับ
อ่อ...วงเล็บปิดจะต้องมีที่เดียวคือที่ตัวสุดท้าย ลบของเดิมทิ้งไปด้วย สังเกตว่ามีเครื่องหมาย
' ครอบแต่ละค่าที่ใส่เข้าไปแล้วหรือไม่ ถ้าไม่ครบจะเกิด Error ครับ
ดูแล้วและอธิบายไปอย่างละเอียดแล้ว กรุณาทบทวนวรรคสุดท้ายใหม่ช้า ๆ ครับ