Export và Import ra tập tin text từ Access

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) .Delimiter3 = Chr(9) Else .Delimiter1 = Chr(44) .Delimiter2 = Chr(44) .Delimiter3 = 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 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 FullName As String Dim FileHandle As Byte Dim ImportRecord As String Dim flnName As String Dim RowPosition As Double Dim EmpNumber As String Dim EmpName As String Dim EmpAddress As String Dim EmpCity As String Dim Delimiter As String flnName = C:\Exported.txt Delimiter = , FileHandle = FreeFile Open flnName For Input As FileHandle Line Input #FileHandle, ImportRecord FullName = C:\General Set dbCompany = OpenDatabase(FullName) Set rsGeneral = dbCompany.OpenRecordset(Company, dbOpenDynaset) Do Until EOF(FileHandle) Line Input #FileHandle, ImportRecord RowPosition = RowPosition + 1 EmpNumber = Trim(Mid(ImportRecord, 1, InStr(1, ImportRecord, Delimiter, 1) - 1)) EmpName = Trim(Mid(ImportRecord, 7, 10)) EmpAddress = Trim(Mid(ImportRecord, 18, 30)) EmpCity = Trim(Mid(ImportRecord, 49)) rsGeneral.AddNew rsGeneral(EmpNo) = EmpNumber rsGeneral(EmpName) = EmpName rsGeneral(EmpAddress) = EmpAddress rsGeneral(EmpCity) = EmpCity rsGeneral.Update Loop Close FileHandle rsGeneral.Close Set rsGeneral = Nothing dbCompany.Close Set dbCompany = Nothing Exit Sub LocalErrorHandler: MsgBox Error Occured : & Err.Description, , Error End Sub . 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. 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