Đá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.com/forum
Không có nhận xét nào:
Đăng nhận xét
» Hãy để lại tên, email của bạn khi bạn post comment, để mình có thể dễ dàng trả lời comment của bạn khi cần.
» Có thể sử dụng các thẻ < b>,< i>,< a>. Và các icon thông dụng trên YM