固定長テキストファイルをデータグリッドに表示
◇-?固定長テキストファイルをデータグリッドに表示-WON(2005/2/10-17:51)No.236589 ┗?!Re:固定長テキストファイルをデ�...-昔人間(2005/2/10-18:54)No.236607
▲このページのトップに戻る
▲このページのトップに戻る
| 236589 | 固定長テキストファイルをデータグリッドに表示 | WON | 2005/2/10-17:51 |
メーカー名：富士通 ＯＳ名：Windows2000 パソコン名：C301 -- いつも、大変お世話になっています。 固定長テキストファイルをデータグリッドに表示する方法を 教えて頂きたいのですが... カンマ区切りの表示は 下記のコードでできるのですが strTBLName = Dir(strPath) strDBName = Left(strPath, InStrRev(strPath, "\")) '接続 Set Cn = New ADODB.Connection With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source").Value = strDBName .Properties("Extended Properties").Value = "Text;HDR=NO;" .Open End With strSQL = "SELECT * FROM [" & strTBLName & "]" 'レコードセットを取得 Set rsTemp = New ADODB.Recordset With rsTemp .ActiveConnection = Cn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .Sort = "[F4]" End With rsTemp.Open Source:=strSQL, Options:=adCmdText With rsTemp If .EOF And .BOF Then Set dgd.DataSource = Nothing dgd.Refresh Else Set dgd.DataSource = rsTemp End If End With 固定長の時は、レコードセットのOPENのところで 「クエリには、出力フィールドが1つ以上必要です」 のエラーになってしまいます。 どうするとよいのでしょうか？ ご教授、宜しくお願いします。 | |||
▲このページのトップに戻る
| 236607 | Re:固定長テキストファイルをデータグリッドに表示 | 昔人間 | 2005/2/10-18:54 |
| 記事番号236589へのコメント WONさんは No.236589「固定長テキストファイルをデータグリッドに表示」で書きました。 >メーカー名：富士通 >ＯＳ名：Windows2000 >パソコン名：C301 >-- >いつも、大変お世話になっています。 > >固定長テキストファイルをデータグリッドに表示する方法を >教えて頂きたいのですが... > >カンマ区切りの表示は >下記のコードでできるのですが > >strTBLName = Dir(strPath) >strDBName = Left(strPath, InStrRev(strPath, "\")) >'接続 >Set Cn = New ADODB.Connection >With Cn >.Provider = "Microsoft.Jet.OLEDB.4.0" >.Properties("Data Source").Value = strDBName >.Properties("Extended Properties").Value = "Text;HDR=NO;" >.Open >End With > >strSQL = "SELECT * FROM [" & strTBLName & "]" >'レコードセットを取得 >Set rsTemp = New ADODB.Recordset >With rsTemp >.ActiveConnection = Cn >.CursorLocation = adUseClient >.CursorType = adOpenStatic >.LockType = adLockOptimistic >.Sort = "[F4]" >End With >rsTemp.Open Source:=strSQL, Options:=adCmdText > >With rsTemp >If .EOF And .BOF Then >Set dgd.DataSource = Nothing >dgd.Refresh >Else >Set dgd.DataSource = rsTemp >End If >End With > > >固定長の時は、レコードセットのOPENのところで >「クエリには、出力フィールドが1つ以上必要です」 >のエラーになってしまいます。 > >どうするとよいのでしょうか？ >ご教授、宜しくお願いします。 > ＶＢのコードですが ＶＢサイトＱ＆Ａへ行けば即答がえられます。 私はＤｅｌｐｈｉ、Ｃ＃派ですのでＶＢは苦手！！ ここはトラブルサイト 超初心者が多い | |||
何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決 ○：参考になった ×：参考にならなかった ！：アドバイスあり
| 参考 | 回数 | 投稿日時 | 何か一言 |
|---|
