问一个菜菜的问题,请大虾们帮偶一把

Question

我现在想实现这样一个效果,就是点按钮以后,让我选择磁盘上的一个DBF文件,然后把这个DBF文件的第一条记录读出来写入c:\AA.TXT中,请问我要如何写呢,谢谢

Answer 1

如何取DBF文件的第一条记录并存放Text1中还没想出来,我也是刚刚接触VB,见量~!
//讲Text1中的内容写入c:\AA.TXT中
Open"c:\AA.TXT" For Output As #1
Print #1,Text1.Text
Close #1

Answer 2

首先确定DBF是什么数据库，建议用ADO连接数据库，然后用记录集读取表中的数据，再取数据存到文件中就可以了。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 3

参考SQL导出记事本(改为DBF文件的话，你只需要改一下连接字符串和查询字符串就行了)：'引用ADO(Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"    cn.Open
    rs.CursorLocation = adUseClient '设置客户端游标    rs.Open "select * from 表1", cn, 3, 2
    If rs.EOF Then Exit Sub
    
    Dim i%, strTemp As String
    For i = 0 To rs.Fields.Count - 1
        strTemp = strTemp & rs(i) & ","
    Next
    Open "c:\AA.TXT" For Output As #1
        Write #1, strTemp
    Close #1
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

Answer 4

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.Open "Driver={Microsoft dBASE Driver (*.dbf)}; DriverID=277;Dbq=D:\DatabasePath"
    
    rs.CursorLocation = adUseClient '设置客户端游标    rs.Open "select top 1 * from XXX.dbf", cn, adOpenDynamic, adLockReadOnly
    If rs.EOF Then Exit Sub
    
    Dim i%, strTemp As String
    
    For i = 0 To rs.Fields.Count - 1
        strTemp = strTemp & rs(i) & ","
    Next
    
    Open "c:\AA.TXT" For Output As #1
        Write #1, strTemp
    Close #1
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub