用VB把数据库文件转换成Htm1格式

周勇生 · 2001年第13期

我们在使用DAO对象存取DBF库时，应在“工程/引用”中选取“Microsoft Dao 2.5/3.51 Compatibility Library”而不使用“Microsoft Dao 3.51 Library”，这样才能够顺利存取DBF库。本程序可剪切在表单中的From_load（）中.
　　 Dim db As DAO.Database
　　 Dim rs As DAO.Recordset
　　 Dim i As Integer
　　 Dim fso As New FileSystemObject
　　 Private Sub Form_Load（）
　　 Set db = OpenDatabase（“d:\vb98\gz9910”，False，False，“FoxPro 2.5;”）
　　 Set rs = db.OpenRecordset（“rsda”）
　　 Set fso = CreateObject（“scripting.filesystemobject”）
　　 If fso.FileExists（App.Path & “\test.htm”） Then
　　 fso.DeleteFile （App.Path & “\test.htm”）
　　 End If
　　 fd = FreeFile
　　 Open “test.htm” For Append Access Write As #fd
　　 rs.MoveFirst
　　 Print #fd， “”
　　 Print #fd， “”
　　 Print #fd， “”
　　 Print #fd， “

XX公司1999年10月工资发放表”
　　 Print #fd， “