インデックスが配列の境界外です。: あのこらのブログ

2014年12月12日 (金)

インデックスが配列の境界外です。

まだあきらめることなく、郵便番号データを住所入力用データに置き換えようと頑張っています。

町域のデータには、町域以外のデータが括弧で括られて入っていますので、そのカッコ内のデータを地名_1と名付けたフィールドに移動する処まで終わっています。

下のスクリプトは、括弧内で”，”（カンマ）で区切られたデータを分離して新しいレコードとして作成する為に作りました。

Private Sub 町域括弧内分割() Dim strSQL As String '複数の地名_1（町域括弧内）で同一郵便番号を持つデータの分離 db = DbE.OpenDatabase(db_path() + "\anocora.mdb") 'カナテーブル strSQL = "SELECT M_住所.* " strSQL = strSQL & "FROM M_住所 " strSQL = strSQL & "WHERE (M_住所.地名_1) Like '*、*' ;" Debug.Print(strSQL) rs = db.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset) While rs.EOF = False '地名_1データの'、'での分離。R_地名_1は'､' Dim tch() As String = Split(rs.Fields!地名_1.Value, "、") Dim R_tch() As String = Split(rs.Fields!R_地名_1.Value, "､") Dim i As Integer = 0 For i = 0 To tch.Length - 1 'For i = 0 To R_tch.Length - 1 If i = 0 Then '町域の分割更新 strSQL = "UPDATE M_住所 SET M_住所.地名_1 ='" & tch(i) & "', M_住所.R_地名_1 = '" & R_tch(i) & "' " strSQL = strSQL & "WHERE (((M_住所.ID)=" & rs.Fields!ID.Value & "));" Else '町域の分割追加 strSQL = "INSERT INTO M_住所 (郵便番号,都道府県,R_県,市区町村,R_市,町域,R_町域,地名_1,R_地名_1) VALUES('" & rs.Fields!郵便番号.Value & "','" & rs.Fields!都道府県.Value & "','" & rs.Fields!R_県.Value & "','" & rs.Fields!市区町村.Value & "','" & rs.Fields!R_市.Value & "','" & rs.Fields!町域.Value & "','" & rs.Fields!R_町域.Value & "','" & tch(i) & "','" & R_tch(i) & "');" End If db.Execute(strSQL) Next rs.MoveNext() End While rs.Close() : rs = Nothing Me.Label1.Text = "カナデータの'、'での地名_1分離が終了しました。" Application.DoEvents() End Sub

現状では、

ご覧の”インデックスが配列の限界外です。”のエラーが出ます。

For i = 0 To tch.Length - 1
'For i = 0 To R_tch.Length - 1

と２行並べていますが、下の行で動かすと、エラーは表示せず終了します。

発生の原因は、データに有りました。
"､"の打ち忘れ、と思われるデータがいくつか見つかりました。
＊2014.12.13訂正　CSVデータを確認すると、明らかに、以下にデータと異なる正しい記載が有りました。
原因は、郵便番号データではなく、処理の方に有りそうです。
マージの結果を再確認し必要な修正が有れば、処理を見直します。
【原因は、CSVデータをＡＣＣＥＳＳのテーブルに取り込む際のSchema.ini設定ミスでした。
取り込みのデータ長が不足していました。
お騒がせしました。】