Save As in Access

[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

ถูกต้องไหมครับ

[snasui]

ถ้าถูกต้อง Record ได้ครับ

[siamsrising]

รบกวนอาจารย์ช่วยดูให้หน่อยครับ

[snasui]

แบบนั้นไม่ได้แน่นอนครับ เพราะ Table มีแค่ 2 คอลัมน์แต่เอาค่าไปใส่ไว้ 3 ค่า

จะต้องปรับที่ Table ให้มีคอลัมน์ให้รองรับค่าที่จะใส่เข้าไปด้วยครับ เช่น จาก INSERT INTO tblScore(SName,Score) เป็น INSERT INTO tblScore(SName,Score,SheetName) เป็นต้น และไม่ใช่ว่าปรับตรงนี้แล้วจะบันทึกได้ ใน Database จะต้องมีคอลัมน์นี้อยู่จริงด้วยครับ

อ่อ...วงเล็บปิดจะต้องมีที่เดียวคือที่ตัวสุดท้าย ลบของเดิมทิ้งไปด้วย สังเกตว่ามีเครื่องหมาย ' ครอบแต่ละค่าที่ใส่เข้าไปแล้วหรือไม่ ถ้าไม่ครบจะเกิด Error ครับ

ดูแล้วและอธิบายไปอย่างละเอียดแล้ว กรุณาทบทวนวรรคสุดท้ายใหม่ช้า ๆ ครับ