Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Kết nối với Foxpro
#1
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
Chữ ký của doban Xin chào, mình là doban, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -12.
Reply
Những người đã cảm ơn
#2
(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

Bạn thử upload 1 file .DBF mẫu lên xem (lâu rồi ko xài Fox nên ko có file nào để test).
Chữ ký của nhannt4 Xin chào, mình là nhannt4, Tham gia http://thuthuataccess.com/forum từ ngày 22-07 -12.
Reply
Những người đã cảm ơn
#3
Bạn thử upload 1 file .DBF mẫu lên xem (lâu rồi ko xài Fox nên ko có file nào để test).
[/quote]

Mình úp 2 file SA của 2 ngày 01/02/2010 và 01/02/2012 để làm ví dụ. Cảm ơn đã quan tâm giúp đỡ
http://www.mediafire.com/?620q3560pyivt5j (Mình upload lên diễn đàn không được, mọi người thông cảm)
Chữ ký của doban Xin chào, mình là doban, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -12.
Reply
Những người đã cảm ơn
#4
Tham khảo tại đây http://support.microsoft.com/kb/824264/en-us
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
Bạn đang xài FoxPro gì vậy? (để mình biết Driver)
Chữ ký của nhannt4 Xin chào, mình là nhannt4, Tham gia http://thuthuataccess.com/forum từ ngày 22-07 -12.
Reply
Những người đã cảm ơn
#6
(11-10-12, 12:13 PM)nhannt4 Đã viết: Bạn đang xài FoxPro gì vậy? (để mình biết Driver)

Microsoft Visual Foxpro 9.0 và MS office 2010
Cảm ơn vì đã quan tâm chủ đề này
Chữ ký của doban Xin chào, mình là doban, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -12.
Reply
Những người đã cảm ơn
#7
(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

Bác Xuân Thanh ơi. Ý em là làm sao tự động kết nối với từng file SA theo ngày tháng hiện tại của hệ thống hoặc là theo ngày tháng được nhập vào. Nhờ hướng dẫn cặn kẽ giùm, e mới tự tìm hiểu access nên còn nhiều điều chưa biết
Chữ ký của doban Xin chào, mình là doban, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -12.
Reply
Những người đã cảm ơn
#8
Các bác ơi giúp em với
Chữ ký của doban Xin chào, mình là doban, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -12.
Reply
Những người đã cảm ơn
#9
Chào bạn,
Gởi bạn cái Chương trình Demo và 02 Module kết nối (với Fox Pro thường và với Visual FoxPro)
- Với FoxPro thường: tạo link table, sau đó thao tác trực tiếp trên table vừa link
Mã PHP:
Public Sub LinkToFoxProDB(dbPath As Variantdbname 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 
- Với Visual FoxPro: dùng kết nối dạng ADODB:
Mã PHP:
Public Sub ConnectToFoxProDB(dbPath As Variantdbname As Variant)
 
On Error GoTo ErrCode
    Dim conn 
As ADODB.Connection
    Dim rs 
As ADODB.Recordset
    Dim sFolderPath
tbnamesqlCmd As String

    sFolderPath 
dbPath "\"
    tbname = Left(dbname, Len(dbname) - 4)
    Set conn = New ADODB.Connection
    conn.Open ("
Provider=vfpoledb.1Data 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 

Link chương trình Demo việc kết nối đến CSDL FoxPro: Chương trình Demo
*Cách sử dụng chương trình Demo:
- TextBox ngày để trống: Khi bấm nút "Connect to Visual FoxPro" chương trình căn cứ vào ngày hiện tại của hệ thống để tạo kết nối đến tập tin .DBF (Visual FoxPro) đã tạo ra ở ngày hiện tại.
- TextBox ngày có dữ liệu: Khi bấm nút "Connect to Visual FoxPro" chương trình căn cứ vào ngày của Textbox để tạo kết nối đến tập tin .DBF (Visual FoxPro) đã tạo ra ở thời điểm chỉ ra tại Textbox.
- Nút "Link to Foxpro" tạo 1 table link đến một file .DBF (không phải Visual Foxpro)


File đính kèm
.zip   LinktoFoxPro.zip (Kích cỡ: 130.84 KB / Tải về: 33)
Chữ ký của nhannt4 Xin chào, mình là nhannt4, Tham gia http://thuthuataccess.com/forum từ ngày 22-07 -12.
Reply
Những người đã cảm ơn Noname
#10
Mình sẽ tải về nghiên cứu. Có gì không biết mong bạn giúp đỡ thêm. Chân thành cảm ơn
Chữ ký của doban Xin chào, mình là doban, Tham gia http://thuthuataccess.com/forum từ ngày 24-09 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cách Link file Foxpro 9.0 phuoc_bhxhbl 0 405 18-06-15, 11:09 AM
Bài mới nhất: phuoc_bhxhbl
  Xin chỉ cách import dữ liệu từ foxpro longho 3 3,040 01-04-11, 03:01 PM
Bài mới nhất: phuong94
  Liên kết tới CSDL là Foxpro,dBase,Access... Noname 12 6,517 27-12-10, 03:29 PM
Bài mới nhất: phuong94

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ