C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 30 を表示中)
■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です。

よろしくお願いします。
返信 編集キー/


管理者用

- Child Tree -