VB将ACCESS数据库中记录保存到文本

来源：百度知道编辑：UC知道时间：2024/06/23 04:27:03

Private cnMyDB As New ADODB.Connection
Private rsMe As New ADODB.Recordset
Private strSQL As String

Private Sub Command1_Click()

Me.CommonDialog1.InitDir = App.Path
Me.CommonDialog1.ShowOpen

strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CommonDialog1.FileName & ";Persist Security Info=False"

cnMyDB.Open strSQL

strSQL = "Select * From picture"

rsMe.CursorLocation = adUseClient

rsMe.Open strSQL, cnMyDB, adOpenDynamic, adLockOptimistic

Set Me.DataGrid1.DataSource = rsMe

Me.DataGrid1.Refresh
End Sub
这段代码将ACCESS数据库在网格中显示了，如果要将指定行保存到文本，该如何操作啊？
能详细给出代码的朋友我会再加分

rsMe.Open strSQL, cnMyDB, adOpenDynamic, adLockOptimistic
open "d:/1.txt" for Output as #1
do while not rsme.eof
For j = 0 To rsme.Fields.Count - 1
Print rsme(j); "|";
Next j
Print
rsme.movenext
loop
close #1

SELECT 要导出的字段列表 into
[Text;HDR=YES;DATABASE=C:\].a.txt
from 表

--导出EXCEL文件:
SELECT 要导出的字段列表 INTO [Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\test.xls].sheet1
FROM 表

VB操作Access数据库，获得Recordset记录集后，如果将其直接更新到数据库 vb修改数据库access的记录 VB.NET 中如何从ACCESS数据库中提取一个记录变量中? 如何从access数据库的表中读取记录及字段到combo中（vb）用vb如何在Access数据库中查找满足若干个条件的记录在vb中如何统计access数据库的总记录数? access数据库中记录不能删除如何向ACCESS数据库中添加记录 VB中如何使用ACCESS数据库如何在VB中连接access数据库