Thủ Thuật Access

Thế Giới Thủ Thuật với Access

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

Posted by Noname on 04.07.2010

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

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: