エラーDim tmpymd As Stringtmpymd1日加算
Rem ひ出力こうもくを非しゅつりょくにする For i = 1 To 29 If .Cells(1, i).Text = "AAA" And Frm設定.ChkAAA.Value = 1 Then .Columns(i).Delete If .Cells(1, i).Text = "BBB" And Frmせってい.ChkBBB.Value = 1 Then .Columns(i).Delete If .Cells(1, i).Text = "CCC" And Frm設定.ChkCCC.Value = 1 Then .Columns(i).Delete If .Cells(1, i).Text = "DDD" And Frmせってい.ChkDDD.Value = 1 Then .Columns(i).Delete If .Cells(1, i).Text = "EEE" And Frm設定.ChkEEE.Value = 1 Then .Columns(i).Delete ちゅうしょうりゃく（ぜんぶで１２こうもくあります） Next iフォルダの中身をれっきょする方法こんにちわ。VB6で指定したエクセルの列をさくじょしたい。までは出来ました。つづきのフォルダのなかみの参照ぶぶんがDir関数とforを使うのかな？と思い、ＭＳＤＮライブラリをみたのですが、いまいちフォルダの中身を列挙する方法がわからないのでおしえてください。よろしくおねがいします。ＶＢ６．０でプログラムをつくるれんしゅうをしているのですが、行き詰ったので質問させてください。）なにかほうほうはないでしょうか。１はフォルダさんしょうダイアログで、フォルダめいをしゅとく。２．それらテキストファイルのなかみをしょうじゅんでれんけつして、あたらしいファイルを作る。29れつあるひょうなんですが、そのうちみだしとたいおうするチェックボックスにチェックがはいっていたばあいそのれつをさくじょしてひょうを詰めたいのですが、うまくいきません。やりたいことは・・・１．指定したフォルダのなかみのファイルめいをテキストファイルだけリストＢＯＸに表示。（きれいにさくじょになりません。
;手順
いかの感じのSELECTぶんになると思うのですが、これをいきなり記述してもエラーになりますよね？前後のぐたいてきな記述はどうなりますでしょうか？ホントすいません・・・SQLしょしんしゃで。SELECT Syainnm FROM MASTER_SYAIN WHERE Syaincd = '123'------------------------------Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dbname As String Dim cnuser As String On Error GoTo errorHandler StatusBar1.Panels(0).Text = "データベースに接続中・・・" dbname = "oracle" cnuser = "user/pass" OraSession = CreateObject("OracleInProcServer.XOraSession") OraDatabase = OraSession.OpenDatabase(dbname, cnuser, ORADB_DEFAULT) StatusBar1.Panels(0).Text = "データベースせつぞく完了。ORACLEへのoo4oせつぞくまでは調べてできた（----以下）のですが、その先のデータちゅうしゅつほうほうが良くわかりません。" On Error GoTo 0 Exit SuberrorHandler: If Err.Number = ORACLE_DB_CONNECTING_FAILURE Then StatusBar1.Panels(0).Text = "データベースにせつぞくできません。"MASTER_SYAIN"テーブルから、社員コード（れい：Syaincd=123）でしゃいんめい（Syainnm）をとってきたいのですが。" & Chr(10) & "エラーコード：" & Err.Number Resume Next End If Error Err.NumberEnd Sub。VB.NETでORACLEにoo4o接続したあと、SELECTぶんをつかう手順は？mdbのADOせつぞくによる方法は例文がおおくあったので、それをさんこうにつくりこむことができて完成してたのですが、mdb＆ADOせつぞく自体がきゃっかされて、ORACLE＆oo4oで一からつくりなおしとなりました。