■14156 / ) |
Accessからtextboxへ表示させるには |
□投稿者/ マユミ (1回)-(2008/02/11(Mon) 16:55:39)
|
分類:[VB.NET/VB2005]
いつも参考にさせていただいております。
今回、データベースから読み込んだ値をtextboxなどに表示させたいのですが 行き詰まってしまったので質問させていただきました。
フォームにはTextboxのplanchangetextとdaychangetextが2つあり この2つに表示させたい情報のキーワードを入れます。
ボタンをクリック後 キーワードで検索したデータベースの中身をTextbox Combobox DateTimePicker RadioButton に表示させたいと考えています。
以下自分なりに作成してみたコードになります。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim cn As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim rs As OleDb.OleDbDataReader Dim a As Object 'Try cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=scheduler.mdb" cn.Open()
cmd = cn.CreateCommand() cmd.CommandText = "SELECT 予定,内容 FROM db WHERE 予定 = '" & planchangetext.Text & "',日時 = '" & daychangetext.Text & "'" 'Try rs = cmd.ExecuteReader() response = rs.Read() If response Then textbox1.Text = rs.Item("予定").ToString textbox2.Text = rs.Item("内容").ToString DateTimePicker.Text = rs.Item("日時").ToString Combobox1.Text = rs.Item("時間").ToString textbox3.Text = rs.Item("分").ToString
If rs.Item("優先度") = "低" Then cimportant1.Checked = True ElseIf rs.Item("優先度") = "中" Then cimportant2.Checked = True ElseIf rs.Item("優先度") = "高" Then cimportant3.Checked = True End If
If rs.Item("残り日数") = "する" Then cnews1.Checked = True ElseIf rs.Item("残り日数") = "しない" Then cnews2.Checked = True End If
cn.Close()
Else response = "該当するデータがありません" cn.Close()
End If 'Catch ex As Exception ' MessageBox.Show("エラーが発生しました") 'End Try End Sub
実行してみると rs = cmd.ExecuteReader()のところで 'System.Data.OleDb.OleDbException' のハンドルされていない例外が system.data.dll で発生しました。 と表示され処理が中断してしまいます。
使用DBはアクセス、言語はVB.NETです。
よろしくお願いします。
|
|