TAILIEUCHUNG - Mẹo Lập Trình p 1

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 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 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 .Delimited 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 chkFileExist Dir strFileToExport If chkFileExist Then 1 Kill strFileToExport End If Open strFileToExport For Random As FileHandle Len Len ExpGeneral Put FileHandle ExpGeneral Do Until With ExpGeneral .EmpNumber rsGeneral EmpNo .EmpName rsGeneral EmpName .EmpAddress rsGeneral EmpAddress .EmpCity rsGeneral EmpCity End With Put FileHandle ExpGeneral Loop Set rsGeneral Nothing Close FileHandle Exit Sub LocalErrorHandler MsgBox Error Occured 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 .

• Kỹ thuật lập trình
• Kỹ thuật lập trình
• meo lập trình
• giáo trình kỹ thuật
• ngôn ngữ lập trình
• thực hành kỹ thuật lập trình
• kỹ thuật máy tính C
• kỹ thuật lập trình C
• giáo trình kỹ thuật lập trình C
• bài tập kỹ thuật lập trình C
• tài liệu kỹ thuật lập trình C
• chuyên ngành kỹ thuật lập trình
• Bài tập kỹ thuật lập trình
• Tài liệu kỹ thuật lập trình
• Bài giảng kỹ thuật lập trình
• Ưng dụng kỹ thuật lập trình
• Ngôn ngữ C
• kỹ thuật máy tính
• môn kỹ thuật lập trình
• ôn tập kỹ thuật lập trình
• cách học kỹ thuật lập trình
• kiến thức kỹ thuật lập trình
• học môn kỹ thuật lập trình
• Đề thi Kỹ thuật lập trình cơ bản
• Câu hỏi Kỹ thuật lập trình cơ bản
• Luyện thi Kỹ thuật lập trình cơ bản
• Ôn thi Kỹ thuật lập trình cơ bản
• Bài thi Kỹ thuật lập trình cơ bản
• Tài liệu Kỹ thuật lập trình cơ bản
• giáo trình kỹ thuật lập trình
• thủ thuật lập trình
• lập trình căn bản
• kỹ thuật phần mềm
• chương trình lập trình
• giáo trình lập trình
• lập trình hướng đối tượng
• tài liệu lập trình
• chuyên ngành lập trình
• tổng quan về lập trình
• Tổng quan về kỹ thuật lập trình
• Lập trình tốt
• Nguyên tắc lập trình
• ngôn ngữ C++
• Kỹ thuật lập trình căn bản
• Kỹ thuật lập trình nâng cao
• Lập trình C căn bản
• Lập trình C nâng cao