VB 把数据库导出txt,html 任何格式例子

 

VB 把数据库导出txt,html 任何格式例子

Option Explicit
Dim db As Database
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\path.mdb"                               '设置数据库路径
Set db = Workspaces(0).OpenDatabase(App.Path & "\path.mdb")               '打开数据库
End Sub
Private Sub Form_Activate()                                               '设置dbgrid控件列宽
DBGrid1.Columns(0).Width = 2200
DBGrid1.Columns(1).Width = 0
DBGrid1.Columns(2).Width = 0
DBGrid1.Columns(3).Width = 3800
End Sub
Private Sub Command1_Click()
On Error Resume Next
Command1.Enabled = False
db.Execute "SELECT * INTO [dBase III;DATABASE=C:\].[path.DBF] FROM [path]" '导出dbase文件格式
Command1.Enabled = True
End Sub

Private Sub Command2_Click()
On Error Resume Next
Command2.Enabled = False
db.Execute "SELECT * INTO [Text;DATABASE=C:\].[path.TXT] FROM [path]"      '导出txt文件格式
Command2.Enabled = True
End Sub

Private Sub Command3_Click()
On Error Resume Next
Command1.Enabled = False
db.Execute "SELECT * INTO [HTML Export;DATABASE=C:\].[path.HTM] FROM [path]" '导出html文件格式
Command1.Enabled = True
End Sub

Private Sub Command4_Click()
On Error Resume Next
Command1.Enabled = False
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\path.XLS].[path] FROM [path]" '导出Excel文件格式
Command1.Enabled = True
End Sub

Private Sub Command5_Click()
  End
End Sub