Kết nối dữ liệu từ file Access này đến file Access khác = ADO (6 người xem)
- Thread starter thdanh
- Ngày gửi
Người dùng đang xem chủ đề này
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Dùng chức năng Link Table mà Access đã trang bị sẵn đó bạn.
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Gửi bạn ví dụ về cách dùng ADO để kết nối với CSDL.
Bạn giải nén rồi chạy file ViDu nhé.
Lần chỉnh sửa cuối:
sealand
Thành viên gạo cội
- Tham gia
- 16/5/08
- Bài viết
- 4,883
- Được thích
- 7,688
- Giới tính
- Nam
- Nghề nghiệp
- Kế Toán
Bạn ấy muốn lấy dữ liệu từ Excel, mình có ví dụ thế này:
Bạn tải về giải nén ra rồi thử nha (Xin lỗi mình chưa sử lý Font chữ)
Mã:
Private Sub Form_Load()
Dim db As DAO.Database, rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM [Shnguon$]"
Set db = OpenDatabase(CurrentProject.Path & _
"\THUONGMAI.xls", 0, 1, "Excel 8.0;HDR=Yes;")
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
Do
With Me.ListView3.ListItems.Add
.Text = rs.Fields(0)
.SubItems(1) = rs.Fields(1)
.SubItems(2) = rs.Fields(2)
.SubItems(3) = rs.Fields(3)
.SubItems(4) = rs.Fields(4)
End With
rs.MoveNext
Loop Until rs.EOF
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End SubBạn tải về giải nén ra rồi thử nha (Xin lỗi mình chưa sử lý Font chữ)
Lần chỉnh sửa cuối:
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Hình như yêu cầu bạn ấy là lấy Source từ file Access khác anh Việt ơi
Mình cảm ơn bạn domfootwear cai ADOAccess của bạn đúng ý mình rồi. bây giờ bạn viết thêm có mình có thể lưu vào và xoá table file access Data từ form chính access vidu. Mình cảm ơn rất nhiều
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Bạn có thể cập nhật trực tiếp vào bảng dữ liệu, thêm xóa hay chỉnh sửa tùy ý.
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
1. Trước hết vào cửa sổ code, chọn Tools/Reference, bỏ chọn cái nào bị Missing đi.
2. Vào module Update_Data chỉnh lại như sau:
Mã:
Option Compare Database
Public cnn As New ADODB.Connection
Public Sub Moketnoi()
With cnn
.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & _
CurrentProject.Path & "\QLCB.mdb"
.Properties("Jet OLEDB:Database Password") = "123"
.CursorLocation = adUseClient
.Open
End With
End Sub3. Code trong form như bên dưới
Mã:
Option Compare Database
Private Sub Form_Load()
Moketnoi
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnn.Close
End Sub
Private Sub Load_Click()
Dim lsSQL As String
Dim lrs As New ADODB.Recordset
lsSQL = "select * from QL_DM_DTAO"
lrs.Open lsSQL, cnn, adOpenStatic, adLockBatchOptimistic
Set Me.Recordset = lrs
Set lrs = Nothing
End SubBạn thử nhé.
Lần chỉnh sửa cuối:
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Thì bạn đưa sự kiện Load_Click của nút load dữ liệu vào sự kiện Form_Load là được.
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Bạn xem lại file đính kèm, so sánh cách mình làm rồi rút ra kết luận nhé.
- Tham gia
- 18/3/08
- Bài viết
- 8,311
- Được thích
- 15,873
- Giới tính
- Nam
- Nghề nghiệp
- Làm ruộng.
Code trong form F_TenCTy bạn thêm như sau:
Mã:
Private Sub Form_Load()
Dim lsSQL, lsSQL1 As String
Moketnoi
Dim lrs As New ADODB.Recordset
lsSQL = "select * from T_CongTy"
lsSQL1 = "select * from T_nhanviencty"
lrs.Open lsSQL, cnn, adOpenStatic, adLockBatchOptimistic
Set Me.Recordset = lrs
lrs.Close
lrs.Open lsSQL1, cnn, adOpenStatic, adLockBatchOptimistic
Set Me.Child7.Form.Recordset = lrs
[B][COLOR=#ff0000] Me.Child7.Form.Text7 = lrs.RecordCount[/COLOR][/B]
lrs.Close
'Moketnoi
End SubPhần còn lại bạn tự suy luận nhé.
Bài viết mới nhất
- Question
Xin giúp đỡ in phiếu thông tin hàng loạt có điều kiện
(3 người xem)
