.txt文件格式如下:
6381,岩田塗装機工業,東京都,渋谷区恵比寿南1-9-14,03-3711-7231
1983,東芝プラント建設,東京都,港区西新橋3-7-1,03-3438-8111
3101,東洋紡,大阪府,大阪市北区堂島浜2-2-8,06-348-3111
每一行将,分开的写在dbgrid的同一行单元格里,请大家指点,我是初学,最好详细写上应该加的控件和代码,小弟跪谢!
6381,岩田塗装機工業,東京都,渋谷区恵比寿南1-9-14,03-3711-7231
1983,東芝プラント建設,東京都,港区西新橋3-7-1,03-3438-8111
3101,東洋紡,大阪府,大阪市北区堂島浜2-2-8,06-348-3111
每一行将,分开的写在dbgrid的同一行单元格里,请大家指点,我是初学,最好详细写上应该加的控件和代码,小弟跪谢!
如split 我常用
每读出一行 readline 设读出的数据装入一个变量 TheLine 中
Dim Fild() As String
Fild = Split(TheLine, ",")
fild(0)=6381,fild(1)=岩田塗装機工業,fild(2)=東京都
这样你就可以把fild中的值送入 datagrid 中相对的列中了
"DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=E:\程序\txt"
conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open "Select * From LX2004.txt", conn, adOpenDynamic, adLockPessimistic
......