vb

vb导出excel:将查询结果导出到Excel的另一个方法vb教程

vb导出excel将查询结果导出到Excel的另一个方法vb教程
疯狂代码 httpwww.CrazyCoder.cn
?httpwww.CrazyCoder.cnVisualBasicArticle15636.html
ion Explicit
Dim dbado As New ADODB.Connection
Dim cmdado As New ADODB.Command
Dim sqlstr As String
Dim howdo As String
Dim filename As String 
Private Sub command1_click()
filename = App.Path &  & InputBox(输入新文件名：, 保存) & .xls
howdo = Text1.Text
dbado.Open (Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path&
goods.mdb;Persist Security Info=False)
sqlstr = SELECT  INTO [Excel 5.0;DATABASE= & filename & ].
[data] FROM [basic] where id in (& howdo & )dbado.Execute (sqlstr), , adCmdText + adExecuteNoRecords
dbado.close
end sub
2008-9-25 14038
疯狂代码 httpwww.CrazyCoder.cn