免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

VB 把數(shù)據(jù)庫導出txt,html 任何格式例子

Option Explicit
Dim db As Database
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\path.mdb"                               '設置數(shù)據(jù)庫路徑
Set db = Workspaces(0).OpenDatabase(App.Path & "\path.mdb")               '打開數(shù)據(jù)庫
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