Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'giáo trình lập trình access', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | KỲ THUẬT ĩĩl LẬP TRINH Windows I4MHINI ACCOM or VA Accett 700 Copyright http vndownloads.net Export và Import ra tập tin text từ Access VB Hiện nay các bạn yêu thích lập trình sử dụng Access là nguồn chứa dữ liệu khá phổ biến vì đơn giản dễ quản trị và đáp ứng được yêu cầu công việc. Hôm nay chúng tôi xin giới thiệu một đoạn code để export và import ra tập tin text từ Access VB Export Text Flat file từ Access Ms-Access Option Explicit Public Sub Export_Table_2_TextFile On Error GoTo LocalErrorHandler Dim dbCompany As Database Dim rsGeneral As Recordset Dim ExpGeneral As PubExpGeneral Dim blnTab_Text As Boolean Dim FullName As String Dim FileHandle As Byte Dim strFileToExport As String Dim chkFileExist As String Give Path with File name FullName E General Thu muc chua du lieu ban co the thay doi theo nhu cau của minh blnTab_Text False Set dbCompany OpenDatabase FullName Ví dụ tên bang la Company Set rsGeneral dbCompany.OpenRecordset Company dbOpenTable With ExpGeneral .EmpNumber No. .EmpName Name .EmpAddress Address .EmpCity City Sử dụng TAB hoăc dấu phẩy If blnTab_Text Then .Delimiter1 Chr 9 .Delimiter2 Chr 9 .Delimiters Chr 9 Else .Delimited Chr 44 .Delimiter2 Chr 44 .Delimiters Chr 44 End If .CRLF vbCrLf End With FileHandle FreeFile Tên tập tin strFileToExport C Exported.txt chkFileExist Dir strFileToExport If chkFileExist Then 1 Copyright http vndownloads.net Kill strFileToExport End If Open strFileToExport For Random As FileHandle Len Len ExpGeneral Put FileHandle ExpGeneral Do Until rsGeneral.EOF With ExpGeneral .EmpNumber rsGeneral EmpNo .EmpName rsGeneral EmpName .EmpAddress rsGeneral EmpAddress .EmpCity rsGeneral EmpCity End With Put FileHandle ExpGeneral rsGeneral.MoveNext Loop rsGeneral.Close Set rsGeneral Nothing Close FileHandle Exit Sub LocalErrorHandler MsgBox Error Occured Err.Description Error End Sub Import Text vào Ms-Access Public Sub Import_TextFile_2_Table On Error GoTo LocalErrorHandler Dim dbCompany As Database Dim rsGeneral As Recordset Dim
