.txt文件格式如下:
6381,岩田塗装機工業,東京都,渋谷区恵比寿南1-9-14,03-3711-7231
1983,東芝プラント建設,東京都,港区西新橋3-7-1,03-3438-8111
3101,東洋紡,大阪府,大阪市北区堂島浜2-2-8,06-348-3111
每一行将,分开的写在dbgrid的同一行单元格里,请大家指点,我是初学,最好详细写上应该加的控件和代码,小弟跪谢!

解决方案 »

  1.   

    用split( 每行的数据,",")得到每个单元格要放的数据即可
      

  2.   

    用odbc连接这个text当数据库使就行了,文本文件第一行会被当做字段名
      

  3.   

    楼上的都可行
    如split 我常用
    每读出一行 readline 设读出的数据装入一个变量  TheLine 中
     Dim Fild() As String
     Fild = Split(TheLine, ",")
    fild(0)=6381,fild(1)=岩田塗装機工業,fild(2)=東京都
    这样你就可以把fild中的值送入 datagrid 中相对的列中了
      

  4.   

    Dim ConnStr As String ConnStr = "Provider=MSDASQL.1;" & _ 
    "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _ 
    "DBQ=E:\程序\txt" 
    conn.Open ConnStr 
    rs.CursorLocation = adUseClient 
    rs.Open "Select * From LX2004.txt", conn, adOpenDynamic, adLockPessimistic 
    ......