質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.23%

【Access】レコードセットに渡すSQLに「LIKE検索」を使うと、レコードセットからExcel出力した際になぜか空

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 1,501

pecchan

score 282

Access for Office 365、Win10です。

テーブルデータをレコードセット経由でExcel出力してます。

レコードセットに渡す条件に、「LIKE検索」を使うと、何故かExcel側で空っぽ(列名行だけ)になります。
一意検索などその他は、問題なく出力されます。

空っぽになる際も、エラーは出ません。
LIKE検索自体は、Accessクエリで出力できたので文法的も問題ないようです。

分かる方教えていただけないでしょうか。

宜しくお願い致します。

Private Sub cmdExcelOut_Click()

    Dim strsql          As String

    Dim xlapp           As Object
    Dim myCn            As New ADODB.Connection
    Dim myRs            As New ADODB.Recordset
    Dim colcnt          As Integer


    On Error GoTo Err_Exit


    Dim ReturnArray As Variant
    ReturnArray = GetFileName(False, "EXCELファイル (*.xlsx,*.xls)", "Excelファイルの保存")
    If ReturnArray(0) = -302 Then
        'キャンセルボタンが押されたときの処理を記述
        Exit Sub

    End If


    'EXCELアプリケーションを起動
    Set xlapp = CreateObject("Excel.Application")

    Set myCn = CurrentProject.Connection

    'これはなぜかダメ
    strsql = "SELECT * FROM M_事業所 WHERE comp_name_kana Like 'カブ*'"

    'これはOK
    'strsql = "SELECT * FROM M_事業所 WHERE status = 0"

    'これもOK
    'strsql = "SELECT * FROM M_事業所 WHERE comp_name_kana = 'カブシキカイシャ テスト'"

    Debug.Print strsql

    'レコードセットオープン
    myRs.Open strsql, myCn, adOpenForwardOnly, adLockReadOnly


    With xlapp
        .DisplayAlerts = False
        'セットする過程が見えないよう一旦不可視
        .Visible = False

        '新しいBookを追加
        .Workbooks.Add
        .Worksheets("Sheet1").Select

        'レコードセットのフィールド名(見出し)出力処理
        For colcnt = 0 To myRs.Fields.Count - 1
            .Worksheets("Sheet1").Cells(1, colcnt + 1).Value = myRs.Fields(colcnt).Name
        Next

        '結果値出力処理(1行目はヘッダーなので、2行目1列目からセット
        .Cells(2, 1).CopyFromRecordset myRs

        '列幅自動調整
        .Cells.EntireColumn.AutoFit

        '完了したら保存
        .ActiveWorkBook.SaveAs FileName:=ReturnArray

        MsgBox "出力しました。", vbOKOnly + vbInformation

        .DisplayAlerts = True
    End With

    Set myRs = Nothing: Close
    Set myCn = Nothing: Close

    'Excelを終了します
    xlapp.Quit




    Exit Sub

Err_Exit:
    MsgBox Err.Number & ":" & Err.Description, vbOKOnly + vbCritical, "OutputExcel()"
    Set myRs = Nothing: Close
    Set myCn = Nothing: Close
    xlapp.Quit
End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

+1

ADOでのワイルドカードは'*'ではなく%です。

SELECT * FROM M_事業所 WHERE comp_name_kana Like 'カブ%'

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/01/25 10:41

    sazi様
    有難う御座います。

    入れ違いになってしまいました!
    すみません。有難う御座います!

    キャンセル

check解決した方法

0

下記を参考に自己解決しました。

http://ivystar.jp/ms-office/access/wild-card-and-ado-access-is-different/

*→%
に変えることで取得出来ました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.23%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる
  • トップ
  • VBAに関する質問
  • 【Access】レコードセットに渡すSQLに「LIKE検索」を使うと、レコードセットからExcel出力した際になぜか空