Ｐａｇｅ 625 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼大文字・小文字を区別しない 慎之介 04/5/17(月) 12:03 ─────────────────────────────────────── ■題名 ： 大文字・小文字を区別しない ■名前 ： 慎之介 ■日付 ： 04/5/17(月) 12:03 -------------------------------------------------------------------------
| はじめまして。慎之介です。 Accessのテーブルからデータを抽出する際に、大文字・小文字 を区別したくないのですが、どのようにしたらよろしいのでしょうか。 大文字で書かれたのものと小文字で書かれたのもの２つをおなじものとして抽出したいです。 Sub ADO_DATA2() MsgBox ("Caution:" + vbCrLf + "Prod UZ256 was named with strings") layer = Sheets("ADO").Cells(3, 6) startdate = Sheets("ADO").Cells(1, 6) enddate = Sheets("ADO").Cells(2, 6) Sheets("ADO").Columns("A:A").ClearContents Dim SCHEDTIME(1000) Dim WELLSELECT(1000) Dim cn As ADODB.Connection WELLSELECTNUM = Application.CountA(Sheets("WELLSELECT").Range("A:A")) - 1 For J = 1 To WELLSELECTNUM WELLSELECT(J) = Sheets("WELLSELECT").Cells(J + 1, 1) Next J Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + ActiveWorkbook.Path + "\uzprod20040411.mdb" cn.Open Set rst = New ADODB.Recordset SQL1 = "Select distinct Prd.date From Prd where Prd.layer ='" + layer + "' AND Prd.date>=#" + Format(startdate, "yyyy/mm/dd") + "# and Prd.date<=#" + Format(enddate, "yyyy/mm/dd") + "# order by Prd.date " Set rst = cn.Execute(SQL1, , asCmdText) ここのSQL1ステートメントのLayerのところに条件をつければいいと思ったのですが うまくいかず、、、どう考えたらいいでしょう？ |