1,216
社区成员
发帖
与我相关
我的任务
分享大家帮我看看,这段代码用ADO连接csv,但select结果 总是少第一行,不知道怎么处理!
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=c:\;" & _
"Extensions=asc,csv,tab,txt;"& _
"Persist Security Info=False"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
rsTable.Open "Select * From input.txt ", pubConn, adOpenDynamic, adLockPessimistic
Set MSHFlexGrid1.DataSource = rsTable
Set rsTable = Nothing
Set pubConn = Nothing
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=c:\;" & _
"Extensions=asc,csv,tab,txt;"& _
"Persist Security Info=False"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
rsTable.Open "Select * From input.txt ", pubConn, adOpenDynamic, adLockPessimistic
Set MSHFlexGrid1.DataSource = rsTable
Set rsTable = Nothing
Set pubConn = Nothing
...全文
请发表友善的回复…
发表回复
bg4rhm 2004-11-20
- 打赏
- 举报
读c:\input.txt 这个文本 文本没有标题!
tztz520 2004-11-20
- 打赏
- 举报
你到底是读c:\input.txt这个文本文件还是什么呀
bg4rhm 2004-11-20
- 打赏
- 举报
是啊 schema.ini 也在同样目录下!
tztz520 2004-11-20
- 打赏
- 举报
你的是c:\input.txt文件吧.
bg4rhm 2004-11-20
- 打赏
- 举报
我的input.txt 全是数据 没有标题
tztz520 2004-11-20
- 打赏
- 举报
'不会呀.我试过没问题
bg4rhm 2004-11-20
- 打赏
- 举报
schema.ini 如下
[input.txt]
Format=TabDelimited
Col1=主叫号码 Char Width 50
Col2=被叫号码 Char Width 50
Col3=被叫地区 Char Width 20
Col4=上车网关 Char Width 16
Col5=上车网关 Char Width 16
Col6=呼叫开始时间 Date
Col7=呼叫持续时间 Char Width 7
col8=呼叫类型 Char Width 12
col9=用户话费 Char Width 12
[input.txt]
Format=TabDelimited
Col1=主叫号码 Char Width 50
Col2=被叫号码 Char Width 50
Col3=被叫地区 Char Width 20
Col4=上车网关 Char Width 16
Col5=上车网关 Char Width 16
Col6=呼叫开始时间 Date
Col7=呼叫持续时间 Char Width 7
col8=呼叫类型 Char Width 12
col9=用户话费 Char Width 12
