• Trang chủ click to expand contents 

  • Kết nối với Foxpro

  • Kết nối với Foxpro

    doban > 10-10-12, 04:55 PM

    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

  • RE: Kết nối với Foxpro

    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

    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).

  • RE: Kết nối với Foxpro

    doban > 11-10-12, 08:15 AM

    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)

  • RE: Kết nối với Foxpro

    Xuân Thanh > 11-10-12, 10:14 AM

  • RE: Kết nối với Foxpro

    nhannt4 > 11-10-12, 12:13 PM

    Bạn đang xài FoxPro gì vậy? (để mình biết Driver)

  • RE: Kết nối với Foxpro

    doban > 11-10-12, 02:37 PM

    (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

  • RE: Kết nối với Foxpro

    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

    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

  • RE: Kết nối với Foxpro

    doban > 12-10-12, 12:02 PM

    Các bác ơi giúp em với

  • RE: Kết nối với Foxpro

    nhannt4 > 12-10-12, 03:35 PM

    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 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 
    - Với Visual FoxPro: dùng kết nối dạng ADODB:
    Mã PHP:
    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 

    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)

  • RE: Kết nối với Foxpro

    doban > 15-10-12, 02:35 PM

    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