| 投稿日 | ： 2003/01/17(Fri) 11:19 |
| 投稿者 | ： HotSpring |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^7: こんボックスで指定したものを別フォームへ表示 |
アドバイス本当にありがとうございます。
> ところで、これ、全部のデータが選ばれるのですか？
> いまのプログラムでは、
>
> > mySQL = "SELECT * FROM 関東 " _
> > & "WHERE 区域 LIKE '%江戸川%'"
>
> が実行されているはずです。
mySQL = "SELECT * FROM 関東 " _
& "WHERE 区域 LIKE '%江戸川%'"
を実行させることができました。
教えていただいたプログラムを参考にさせていただきましたが、
以下のようなエラーがでてしましました。
①すべてを訂正して実行した場合
>B1.AddItem Format$(i, "000 ") & .Fields(0)
実行時エラー'5':
プロシージャの呼び出し、または引数が不正です。
②
>With Rs
> .Open "SELECT 区域 FROM 関東",Cn,adOpenStatic
> i=0
> Do Until .EOF
> B1.AddItem Format$(i,"000 ") & .Fields(0)
> i=i+1
> Loop
> .Close
>End With
上記の部分をコメントにして実行した場合
>SelText = Mid$(B1.Text,5,(B1.Text)-4)
実行エラー'13':
型が一致しません。
たびたび申し訳ございませんが、アドバイスいただければ幸いです。
よろしくお願いいたします。