[過去ﾛｸﾞ] Excel VBA 質問スレ Part82 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

508(1): 04/28(月)19:29 ID:5fRt9Dct(2/2)調 AAS
辛辣だなぁw CopyFromRecordSetで貼ったやつの方だけ1箇所違うんだよ
1行、1カラムずつ貼った方は正しい 元データももちろん正しい

lobjが対象テーブルのListObject dbrsがADODBで引いたRecordSet

データが違うパターン
lobj.InsertRowRange.CopyFromRecordset dbrs

正しいパターン
rc = 1
Do Until dbrs.EOF
　　For co = 1 To lobj.ListColumns.Count
　　　　lobj.ListRows(rc).Range(co).Value = dbrs.Fields(co - 1).Value
　　Next
　　rc = rc + 1
　　dbrs.MoveNext
Loop

これでどう検証したらいいのよ

---

511(1): 04/28(月)22:36 ID:opVSzI03(2/2)調 AAS
>>508
一カ所違うというのは実データがおかしな変換をされているのか？
それとも一方のデータが 多い/少ない　と言っているのかな？

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.041s