在VB中如何将DataGrid中的数据保存到txt文件中？

Question

本人初学编程，恳请各位不吝赐教！
我用VB+ACCESS做的程序，其中ACCESS数据库中的数据显示在的datagrid控件中，现在要把显示在datagrid中的数据保存到*.txt的文本中去，请教各位符合实现这个过程？？？

Answer 1

导出到TXT文本，用逗号分开
exec   master..xp_cmdshell   'bcp   "库名..表名"   out   "d:\tt.txt"   -c   -t   ,-U   sa   -P   password'   
或者如下程序可以
Dim   rs   As   New   ADODB.Recordset   
  Private   Sub   Command2_Click()   
          Dim   i%,   strOut   As   String   
          Open   "c:\test.txt"   For   Output   As   #1   
                  For   i   =   0   To   rs.Fields.Count   -   1   
                          grdDataGrid.Col   =   i   
                          strOut   =   strOut   &   grdDataGrid.Text   &   "   "   
                  Next   
                  Debug.Print   strOut   
                  Write   #1,   strOut   
          Close   #1   
  End   Sub   
    
  Private   Sub   Form_Load()   
          Dim   cn   As   New   ADODB.Connection   
          cn.ConnectionString   =   "Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID=sa;Password=123;Initial   Catalog=dataBaseSubServer001;Data   Source=mySERVICE"   
          cn.Open   
          rs.CursorLocation   =   adUseClient   
          rs.Open   "select   *   from   table2     ",   cn,   adOpenKeyset,   adLockOptimistic   
          Set   grdDataGrid.DataSource   =   rs   
  End   Sub