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

Export và Import ra tập tin text từ Access VBHiệ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

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

Set dbCompany = Nothing

Exit Sub

LocalErrorHandler:

MsgBox Error Occured : & Err.Description, , Error End Sub