| 投稿日 | ： 2003/01/16(Thu) 19:27 |
| 投稿者 | ： HotSpring |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: こんボックスで指定したものを別フォームへ表示 |
> もしよければ、そのコンボボックスから読み出した「県名」で
> MDBにデータを取りに行くところのコード記述を載せてください。
プログラムは以下のとおりです。
＊Ｂ１はコンボボックスです。あと、コンボボックスの中身は「県名」ではなく「区名」でした。すみません。
Private rs As ADODB.Recordset
Private Cn As New ADODB.Connection
Option Explicit
Dim ZZZ As String
Dim mySQL As String
Private Sub basyoj_Click()
'Label12.Caption = B1.Text
B1.AddItem "0 板橋区"
ZZZ = "板橋"
MsgBox "板橋区実行〜"
mySQL = "SELECT * FROM 関東 " _
& "WHERE 区域 LIKE '%板橋%'"
B1.AddItem "1 江戸川区"
ZZZ = "江戸川"
MsgBox "江戸川区実行〜"
mySQL = "SELECT * FROM 関東 " _
& "WHERE 区域 LIKE '%江戸川%'"
' レコードセットを取得
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open mySQL, Cn, adOpenStatic
Form2.Show
' データグリッドにレコードセットの内容を表示
Set Form2.DataGrid1.DataSource = rs
Form2.abc.Caption = ZZZ
End Sub