批量Recordset导出问题

Question

本帖最后由 fghostyun6 于 2009-08-21 12:30:51 编辑

Answer 1

如果你是要查询Access数据库文件，我的想法：
直接可以将Access数据文件转换为Excel文件，具体方法如下：
http://download.csdn.net/source/1483928如果你要按条件查询后再存入Excel文件：
1、使用ADO对象查询数据库，得到RecordSet记录集：http://download.csdn.net/source/1498324
2、将查询得来的RecordSet记录集的数据一条一条的存入Excel文件，写Excel文件需要Excel操作对象，我没有现成的例子。如需可以给你留言。

Answer 2

为什么单行查询不可以？
直接一个select * 不就全查询出来了？
把一个文件文件内的数据导出到另一个文本文件需要用ADO么？直接把文件拷过去不就好了，一定要用Recordset的话用它的getstring方法

Answer 3

我的单行查询代码为：Private rs As New ADODB.Recordset
Private Conn  As New ADODB.Connection
Private Sub Command1_Click()
  Dim strConn     As String
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;" & ";Persist Security Info=False;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:database password='123456'"
    Conn.CursorLocation = adUseClient
    If Conn.State <> adStateClosed Then Conn.Close
    Conn.Open strConn
    If rs.State <> adStateClosed Then rs.Close
    rs.Open "Select   *   into outfile '/result.txt' from ID where " &Combo1.Text & " ='" & Trim(Text1.Text) & "'", Conn, adOpenKeyset, adLockPessimistic
    End Sub
 

Answer 4

只需要读入Text文本，赋值给Text1.Text即可。

Answer 5

还是没看明白需求。不过如果你需要所有记录的数据，那么去掉查询中的 where 条件应该就可以了。

Answer 6

我的意思是文本文件内（ID.txt）：
As123 
As5687 
As587 
As412 
..... ID.txt的每一行都是我要搜索的关键字，每次将一行关键字输入到查询框，查询后会出现一个查询结果recordset，之后把这个查询结果保存到一个1.txt文本中。之后在文本文件ID.txt内找第二行，作为关键字，输入到查询框，查询得到的结果recordset2又添加到1.txt里。
。。
如此反复查询直到ID.txt的末尾问题只要在这些Recordset如何顺序写入同一个1.txt内。

Answer 7

是不是下面那样：dim hFile as long
dim sFile as string
dim cn as connection
dim rs as recordset
dim sql as string'读出ID.txt内容到sFile
hFile=freefile
open app.path & "\ID.txt" for binary as hFile
    sFile=space(lof(hFile))
    get #hFile,,sFile
close'用IN子句查询sFile的中所有ID数据
sFile="'" & replace(sFile,vbcrlf,"','") & "'"
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;" 
sql="select * from youTable where ID in ("& sFile &")"
set rs=cn.execute(sql)'将记录集写入1.txt文件
hFile=freefile
open app.path & "\1.txt" for output as hFile
    print #hFile,rs.getstring
closeset rs=nothing
set cn=nothing

Answer 8

需要给 ID.txt 加个列头 no，就可以用下面的方式查询了
Select ID.*  into outfile '/result.txt' 
  from ID 
  join [Text;FMT=Delimited;HDR=Yes;DATABASE=C:\;].[ID#txt] T
    on T.no = ID.no

Answer 9

谢谢大家！问题解决了，采用了combo的item选项读入，然后用combo.list做循环查询。谢谢上面几位大侠指点。

Answer 10

很对不住Veron_04，本来那10分要给你的，却给错了你楼下