Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

7/4/10

Save as một table thành table khác trong Back-end từ Front-end !

Hỏi: Tôi muốn từ 1 file Access này dùng lệnh kết nối với file Access khác để copy 1 table1 thành table2 thì làm thế nào?

Đáp:

Bạn có thể dùng code sau để run bất cứ lệnh SQL gì ở 1 database nguồn:


Sub runSQLOnfile(mySql As String, myDB As String)
Dim DB As Database
Dim sqlName As QueryDef
' Mở myDB
Set DB = OpenDatabase(myDB)
' tạo 1 query tạm
Set sqlName = DB.CreateQueryDef("")
sqlName.sql = mySql

sqlName.Execute
DB.Close
End Sub



Khi đó bạn có thể gọi đoạn code trên từ một nút nhấn như sau:

Private Sub Command1_Click()
' kết nối DBLuu.mdb
'run SQL trong DBLuu
Dim mySql As String
Dim myDB As String
Dim sAppPath As String
sAppPath = Application.CurrentProject.Path
myDB = sAppPath & "\DBLUU.mdb"
mySql = "SELECT * INTO Table2 FROM Table1"
runSQLOnfile mySql, myDB
MsgBox " Đã copy table thành table 2"
End Sub


Xem Demo: Download
____________________________________________________________________________________
Thảo luận thêm: http://thuthuataccess.co.cc/forum