こんにちは、宜しくお願いいたします。
<環境>
Windows10(64bit)
Access2016
でVBAプログラムを組んでいるのですが、うまくいきません。
0000001_000
0000002_000
0000003_000
・
・
のようなテーブルが存在するのですが、"_"より前の文字列をSQLで拾ってこようと考えております。しかし、以下のようなコードを動かすと、「インデックスが有効ではありません」とエラーを吐いてデバッガーが立ち上がってしまいます。
恐れ入りますが宜しくお願い申し上げます。
'先ず、CurrentDbに接続する(読み書き可) Dim db As dao.Database Dim rs As Recordset Dim table As TableDef Dim sql As String sql = "SELECT uid from hoge;" 'SELECT文でuidカラムのみを抽出→レコードセットに入れ込む Set db = CurrentDb() Set rs = db.OpenRecordset(sql) 'レコードセットをloopし、"_"をキーにして文字列をsplitする Do Until rs.EOF Dim aryString As Variant aryString = Split("_") If IsArray(aryString) And aryString(1) = "_" Then Debug.Print aryString(0) End If Set aryString = Nothing rs.MoveNext Loop Debug.Print "Done."
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/11/15 03:06