doandinhtam > 28-08-18, 10:14 AM
'Khai bao
Public Ws As DAO.Workspace
Public db As DAO.Database
Public rst As DAO.Recordset
Public rstt As DAO.Recordset
Public Function Ketnoi1(TenTable As String, Duongdanfile As String)
Set Ws = DBEngine.Workspaces(0)
'Mo ket noi Data co Pass
Set db = Ws.OpenDatabase(Duongdanfile)
Set rst = db.OpenRecordset(TenTable, dbOpenDynaset)
Set rstt = CurrentDb.OpenRecordset(TenTable, dbOpenDynaset)
rst.MoveFirst
Do Until rst.EOF
' Cap nhap vao table tam
rstt.AddNew
' Duyet tu cot
For i = 0 To rst.Fields.Count - 1
rstt.Fields(i) = rst.Fields(i)
Next
rstt.Update
rst.MoveNext
Loop
rst.Close
Set db = Nothing
End Function
Ketnoi1(" Ten table", "Đường dẫn file Nguồn")