ผมกำลังพยายามเขียน code dim adodb ตามนี้ (code วางบนปุ่มในฟอร์ม frontend ตารางอยู่ backend
Private Sub Command0_Click()
On Error GoTo ErrorHandler
Dim cn As New ADODB.Connection
Dim sql As String
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ASUS\Desktop\traning\Database17.accdb;Persist Security Info=False;"
sql = "SELECT * FROM tblTeachers WHERE TeacherID=5"
Set rs = New ADODB.Recordset
rs.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
With rs
If Not .BOF And Not .EOF Then
.MoveLast
.MoveFirst
If .Supports(adUpdate) Then
![FirstName] = "x" & ![FirstName]
.Update
End If
End If
.Close
End With
ExitSub:
Set rs = Nothing
Exit Sub
ErrorHandler:
Resume ExitSub
End Sub
ประเด็นของผมคือผมอยากให้มันอัพเดท table ข้าม database คือ code อยู่บนฟอร์ม อีก database หนึ่ง (frontend) ตามรางอยู่ backend ข้อมูลไม่ update ตามครับ แต่ถ้าเป็นตารางใน database เดียวกัน หรือ ตาราง link ทำได้ครับ แต่ถ้าเป็นเอาแต่ code ล้วนๆไม่ได้ ปกติทำได้ไม่ครับ no table on database หรือ code ผิดพลาดตรงไหนช่วยชี้แนะหน่อยครับ
