こんにちは、うまく動かないです、ずっと悩んでいます、教えて下さい。SqlServer2000からAccessのADPファイルで接続しています。SqlServerの得意先のテーブルから必要なデータで送り状印刷する。AccessForm上にTxtYOMIに取引先ヨミを書いてコマンドボタンShowをクリックするとストアドプロシージャ実行して結果がlstCustomerに表示出来るようにしてです。宜しくお願い致します。
***ストアドプロシージャ***
Alter Procedure FindLikeNew
@TOKU varchar(80)
AS
declare @TOKUISAKI varchar
select 取引先ヨミ ,取引先名,住所1,TEL,POST from M取引先 where 取引先ヨミ LIKE + @TOKU + '%'
***AccessForm***
Option Compare Database
Option Explicit
Private Sub Show_Enter()
Dim sql As String
TxtYOMI = "exec findlikenew '" & Me.TxtYOMI.Value
DoCmd.OpenStoredProcedure.lstCustomer
DoCmd.RunSQL sql
End Sub
> TxtYOMI = "exec findlikenew '" & Me.TxtYOMI.Value
ココの最後のシングルコーテーションが抜けてるとか
(TxtYOMIはどこで使ってるのか?)
> DoCmd.OpenStoredProcedure.lstCustomer
> DoCmd.RunSQL sql
ここのsqlという文字列には何が入っているのか?
(というか、結果を返すストアドをそのまま実行してどうすんの?)
とか気になりますが、
ADPでのやり方とVBではかなり違いますが、
貴殿のコードは、作者の理解が欠けていそうです。
http://www.microsoft.com/japan/msdn/officedev/access2000/apg01.asp
ADPに詳しいAccess系の掲示板で聞いたほうが話が早いと思いますよ。
http://www.accessclub.jp/
どこの掲示板でも同じですが、
>うまく動かないです
を推理の世界で論じても無意味なので、
どのように「うまく動かない」のか説明してあげてください
(○○行目で××××というエラーが出る とかね)
ちなみに、やりたいこと推理してみる
[ACC2000]ADPでフォームを使ってクエリの条件を指定する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;235359
ツイート | ![]() |