Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41651 / 76732

←次へ　｜　前へ→


	【40160】ストアドプロシジャの実行

boku - 06/7/7(金) 17:28 -


	引用なし

	パスワード

いつも参考にさせていただいてます。
環境はWinXP Pro Excel2000 MSDE2000です

現在下記コードでExcelからMSDE2000のデータを取得しています。
別に不都合はないのですが、MSDE2000に作成したストアドプロシジャ
に検索値を送った方が早いと思うのですが、ストアドプロシジャ
を実行させるコードが解らず質問させていただきました。
ご存知の方おられましたら、教えていただけますでしょうか？
よろしくお願いします。

Sub code()
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
　　
cnn.Open "Provider=MSDASQL;DRIVER=SQLServer};SERVER=**;UID=**;PWD=**;DATABASE=??SQL"

xxx = "12345"

strSQL = "SELECT 商品マスタ.定価, 商品マスタ.商品名, 商品マスタ.規格, "
strSQL = strSQL & "商品マスタ.JANコード "
strSQL = strSQL & "FROM 商品マスタ "
strSQL = strSQL & "WHERE (商品コード = '" & xxx & "' ) "
strSQL = strSQL & "ORDER BY 商品ﾏｽﾀ.商品ｺｰﾄﾞ"
　　
rs.Open strSQL, cnn
　
If rs.EOF = True Then
　MsgBox "その商品コードは登録されていません!", 16, "コードに誤り"
Else
　Sheets("sheet1").Cells(2, 2).CopyFromRecordset rs
End If　
rs.Close
End Sub

0 hits

▼

【40160】ストアドプロシジャの実行 boku 06/7/7(金) 17:28

≪