请问如何将TXT格式的文件，读入到DATAGRID里?

tercel001 2004-06-11 01:45:25

在TXT文件里有如下的格式

字段1 字段2 字段2 字段3
A I XXX DDD
B DDD DDD FFF
C DDD FFF FFF
D SSS SSS SSS

请问如何将其读入到DATAGRID里，谢谢了
最好还可以在DATAGRRID里修改

...全文

174 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

tercel001 2004-06-13

打赏
举报

谢谢各位大哥

stefli 2004-06-12

打赏
举报

正如楼上所说，其实一定格式化的txt文件也可以认为是数据库类型的。
它同样有属于自己的驱动程序，和Access相似。
如楼上所写那样。
Access：
Driver={Microsoft Access Driver (*.mdb)};DBQ=d:\a.mdb"

同样，Foxpro也有。

所以，你就将其认为是数据库，按照一般数据库和Datagrid的操作方式去操作就可以了

northwolves 2004-06-12

打赏
举报

想要修改：
Private Sub Form_Load()
Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Cnn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & "Dbq=d:\;" & "Extensions=asc,csv,tab,txt;"
rst.CursorLocation = adUseClient
rst.Open "Select * From 1.txt", Cnn, adOpenKeyset, adLockOptimistic, adcmdUnkown
Set DataGrid1.DataSource = rst
Set rst = Nothing
End Sub

artoksxb 2004-06-12

打赏
举报

差不多。好像格式比较难把握!

davidtccn 2004-06-12

打赏
举报

需要用某种符号隔开的才可以
比如逗号 Tab 空格等等

northwolves 2004-06-11

打赏
举报

' suppose your txt file is "d:\1.txt":

Private Sub Form_Load()
Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Cnn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & "Dbq=d:\;" & "Extensions=asc,csv,tab,txt;"
rst.Open "Select * From 1.txt", Cnn, adOpenStatic, adLockPessimistic
Set DataGrid1.DataSource = rst
End Sub