いつもお世話になっております
SQLでリストビューに読み込む方法
★の部分をなにをすればよいか
わかる方教えてくれませんでしょぅか
With .ListItems.Add
.Text =★
.SubItems(1) =★
.SubItems(2) =★
Dim objCn As New ADODB.Connection
Dim objRS As ADODB.Recordset
Dim GYO As Long, COL As Long
Dim strSQL As String
With objCn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties") = "Excel 8.0"
.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name
End With
strSQL = ""
strSQL = strSQL & " SELECT "
strSQL = strSQL & " 顧客番号, 顧客名, 住所 "
strSQL = strSQL & " FROM"
strSQL = strSQL & " [顧客マスタ$]"
Set objRS = New ADODB.Recordset
Set objRS = objCn.Execute(strSQL)
With ListView1
.View = lvwReport
.Gridlines = True
.ForeColor = vbBlack
.FullRowSelect = True
.ColumnHeaders.Add , , "顧客番号", 70
.ColumnHeaders.Add , , "顧客名", 70
.ColumnHeaders.Add , , "住所", 70
Dim dataB
Dim val
With .ListItems.Add
.Text =
.SubItems(1) =
.SubItems(2) =
End With
Next
End With
objCn.Close
Set objCn = Nothing
No.2ベストアンサー
- 回答日時:
どうして "Microsoft.Jet.OLEDB.4.0"(Excel~2003)を使用されているのかはわかりませんが。
Set objRS = objCn.Execute(strSQL)
With ListView1
.View = lvwReport
.Gridlines = True
.ForeColor = vbBlack
.FullRowSelect = True
.ColumnHeaders.Add , , "顧客番号", 70
.ColumnHeaders.Add , , "顧客名", 70
.ColumnHeaders.Add , , "住所", 70
Dim dataB
Dim val
'---------------------------
objRS.MoveFirst
Do Until dbres.EOF
With .ListItems.Add
.Text = objRS!顧客番号
.SubItems(1) = objRS!顧客名
.SubItems(2) = objRS!住所
objRS.MoveNext
End With
Loop
Next ' ★これは残骸?もっと前にFor~があるの?
'--------------------------
End With
検証してないのでダメでしたらごめんなさい。
No.1
- 回答日時:
コードを見る感じ、objRSでデータを読み取ってるので、そちらを設定するのではないかと。
ADODB.RecordSetについての知識が必要です。Web検索すれば、やり方が見つかります。
あと、Excel VBAのデバッグ機能でobjRSとListView1をウォッチしてみることを、学習法としてお勧めします。
https://www.bing.com/search?q=Excel+VBA+How+to+w …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
顧客CDのCDって?
-
エクセルで「3次元配列」表の...
-
<新設税理士事務所です>ミロ...
-
エクセルマクロ ブックをアクテ...
-
Excelを使った顧客データと受注...
-
データの受け取り先について ホ...
-
エクセルで並び替えするとハイ...
-
Filemaker6、チェックボックス...
-
VBA リストボックス反映できない
-
メーリング・同報に便利なメー...
-
アルゴリズム:効率の良い探索方法
-
エクセルの表から特定のデータ...
-
読み取ったQRコード/バーコード...
-
EXCELでバーコードを作成すると...
-
バーコードってダブらない?
-
バーコードコントロールが印刷...
-
国内線航空券をJALのアプリにて...
-
エクセル バーコード作成で他の...
-
レシートにバーコード
-
差し込み印刷のバーコードを小さく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
<新設税理士事務所です>ミロ...
-
エクセルで「3次元配列」表の...
-
顧客CDのCDって?
-
VBA リストボックス反映できない
-
VBA。リストボックスの値を別の...
-
エクセルで顧客の継続率
-
エクセルの数式で教えてください。
-
アクセスでのデータ抽出方法
-
EXCELシート内の数字での並び替...
-
【ExcelVBA】顧客別に抽出デー...
-
データ型が一致しない?
-
抽出してコピペ 検索すべき文...
-
EXCELで注文書作成
-
スプレッドシートの関数につい...
-
対象月の2桁表示について
-
VBA beforeprintについて
-
エクセルで、毎月顧客管理して...
-
顧客管理システム(ASP、パッケ...
-
エクセルで並び替えするとハイ...
-
販売管理、顧客管理、会計まで...
おすすめ情報