这是我在网上看到的,可怎么试都通不过
'"SELECT field1,field2 INTO [Text;DATABASE=C:\My Documents\].[" & FileTxt & "]" & "FROM mdb "是在VB中使用的,将SQL Server数据库中一个表的记录导出为文本文件请问假设数据库为test,导出文本文件为test.txt,该怎么写?谢谢
'"SELECT field1,field2 INTO [Text;DATABASE=C:\My Documents\].[" & FileTxt & "]" & "FROM mdb "是在VB中使用的,将SQL Server数据库中一个表的记录导出为文本文件请问假设数据库为test,导出文本文件为test.txt,该怎么写?谢谢
解决方案 »
- vb6串口问题
- 关于在VB中制作界面和按钮的问题?
- ? 救命啊!我急需一位高手中的高手为我解决这个问题啊!!!!事关重大!!
- 怎样生成不用安装的VB程序
- 快捷方式
- yoki(小马哥)、SoHo_Andy(冰)或其他高手请帮忙:数据库记录"筛选"还是不能实现功能,我差不多无分了,现给20分,不好意思,等有分再加
- 在VB中有类型ListView码?请问在哪能找到这个类型?
- vb打包的问题!3706的错误怎样解决!急等!!!
- 在托盘点右键,弹出菜单,然后再点其它应用程序,菜单还在(希望它不在)?
- 可恶的老外,这么好的控件(ICONMENU)竟然不支持中文,请高手解决!!!!!!!!
- 你知道亲嘴的滋味吗
- 关于VB&SQL2000
Dim db As DatabasePrivate Sub Command1_Click()
Command1.Enabled = False
db.Execute "SELECT * INTO [dBase III;DATABASE=C:\].[authors.DBF] FROM [authors]"
Command1.Enabled = True
End SubPrivate Sub Command2_Click()
Command2.Enabled = False
db.Execute "SELECT * INTO [Text;DATABASE=C:\].[authors.TXT] FROM [authors]"
Command2.Enabled = True
End SubPrivate Sub Command3_Click()
Command1.Enabled = False
db.Execute "SELECT * INTO [HTML Export;DATABASE=C:\].[authors.HTM] FROM [authors]"
Command1.Enabled = True
End SubPrivate Sub Command4_Click()
Command1.Enabled = False
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\authors.XLS].[authors] FROM [authors]"
Command1.Enabled = True
End SubPrivate Sub Form_Load()
Command1.Enabled = False
Set db = Workspaces(0).OpenDatabase(App.Path & "\biblio.mdb")
Command1.Enabled = True
End Sub
dim strFile as string
dim strSQL as string strTab="mdb"
strFile="test.txt"
strSQL="SELECT field1,field2 INTO [Text;DATABASE=C:\My Documents\].[" & strFile & "]" & " FROM [" & strTab & "]"