doban > 10-10-12, 04:55 PM
nhannt4 > 10-10-12, 05:46 PM
(10-10-12, 04:55 PM)doban Đã viết: Các cao thủ xin chỉ giáo hộ em vấn đề sau: Dữ liệu của em chứa trong thư mục Z:\Luutru. Gồm các file SAxxxxxx.DBF, với xxxxxx là ngày tháng năm. Cứ mỗi ngày làm việc sinh ra 1 file SA với ngày tháng năm tương ứng. Em muốn tạo kết nối vào trong access để truy vấn lấy số liệu phục vụ cho công việc. Nhờ các cao thủ chỉ dùm em cách tạo kết nối tự động sao cho:
1. Tự động kết nối với file SA theo ngày tháng năm của hệ thống
2. Tự động kết nối với file SA theo ngày tháng năm được nhập vào
Em mới tiếp xúc access, nhờ các bác chỉ cặn kẽ giùm.
Chân thành cảm ơn
doban > 11-10-12, 08:15 AM
Xuân Thanh > 11-10-12, 10:14 AM
nhannt4 > 11-10-12, 12:13 PM
doban > 11-10-12, 02:58 PM
(11-10-12, 10:14 AM)Xuân Thanh Đã viết: Tham khảo tại đây http://support.microsoft.com/kb/824264/en-us
doban > 12-10-12, 12:02 PM
nhannt4 > 12-10-12, 03:35 PM
Public Sub LinkToFoxProDB(dbPath As Variant, dbname As Variant)
On Error GoTo ErrCode
Dim sFolderPath As String
sFolderPath = dbPath & "\"
DoCmd.TransferDatabase acLink, "dBase 5.0", sFolderPath, acTable, dbname, "MyTable", False
ErrCode:
If Err.Number = 3011 Then
MsgBox "Khong tim thay tap tin: " & dbname, , "Loi"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox Err.Number & ": " & Err.Description & " " & Err.source & " " & Err.HelpContext
Else
Exit Sub
End If
End Sub
Public Sub ConnectToFoxProDB(dbPath As Variant, dbname As Variant)
On Error GoTo ErrCode
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sFolderPath, tbname, sqlCmd As String
sFolderPath = dbPath & "\"
tbname = Left(dbname, Len(dbname) - 4)
Set conn = New ADODB.Connection
conn.Open ("Provider=vfpoledb.1; Data Source=" & sFolderPath & dbname)
sqlCmd = "Select * from " & tbname & ";"
Set rs = New ADODB.Recordset
rs.Open sqlCmd, conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
'Hien thi Demo ket qua ket noi den file .DBF
MsgBox rs.Fields(0).Name & "=" & rs.Fields(0).Value & "; " & rs.Fields(1).Name & "=" & rs.Fields(1).Value & "; " & rs.Fields(2).Name & "=" & rs.Fields(2).Value & Chr(13) & Chr(10) & "Nhan Ctrl+Break de thoat ra"
rs.MoveNext
Loop
'rs.Close
'conn.Close
ErrCode:
If Err.Number = -2147217887 Then
MsgBox "Khong tim thay tap tin: " & dbname, , "Loi"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox Err.Number & ": " & Err.Description & " " & Err.source & " " & Err.HelpContext
Else
Exit Sub
End If
End Sub
doban > 15-10-12, 02:35 PM