| タイトル | ： DataGridViewの検索表示 |
| 記事No | ： 9682 |
| 投稿日 | ： 2009/12/02(Wed) 22:36 |
| 投稿者 | ： こまる |
こんにちは。初めて投稿します。よろしくお願いします。
VB.net
Access2003 を使っています。
今回は、アクセスにあるデータをマスタから検索して読み込みたいです。
今のところでは、アクセスのデータを全部読み込むことはできています。
それを表しているのが、IFの最初の部分です。
Elseから表しているのが、検索をするときの条件になっています。
ですが、今のプログラムでは検索ができません。パラメータがありませんと表示されます。
どうすればいいですか？教えてください。お願いします。
あと、データの検索の仕方は、VBで、テキストボックスに「ア」など何かを入力し、検索ボタンを押す事により、アを含む全てが出るようにしたいです。
Imports System.Data.OleDb
Private Sub btKensaku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btKensaku.Click
If txtSei.Text = Nothing And txtNa.Text = Nothing And txtYear.Text = Nothing And txtMonth.Text = Nothing And txtDay.Text = Nothing Then
Dim cn As New OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim ConnectionString As String
Dim CommandText As String
cmd.Connection = cn
CommandText = "SELECT 顧客番号,氏名（性）,氏名（名）,フリガナ（性）,フリガナ（名）,自宅電話番号,都道府県,市町村,番地等 FROM 顧客マスタ"
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=spider.mdb"
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter(CommandText, ConnectionString)
'▼データの読み込み
Dim Table As New DataTable()
da.Fill(Table)
'▼データソースを設定してDataGridViewにデータを表示
Dim BindingSource1 As New BindingSource
BindingSource1.DataSource = Table
Grid1.DataSource = BindingSource1
Else
Dim cn As New OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim ConnectionString As String
Dim CommandText As String
cmd.Connection = cn
CommandText = "SELECT 顧客番号,氏名（性）,氏名（名）,フリガナ（性）,フリガナ（名）,自宅電話番号,都道府県,市町村,番地等 FROM 顧客マスタ WHERE フリガナ（性） LIKE '%' + ? + '%' " 'or フリガナ（名）=? or 生年月日=? or 電話番号=? "
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sanpuru.mdb"
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter(CommandText, ConnectionString)
'▼データの読み込み
Dim Table As New DataTable()
da.Fill(Table)
'▼データソースを設定してDataGridViewにデータを表示
Dim BindingSource1 As New BindingSource
BindingSource1.DataSource = Table
Grid1.DataSource = BindingSource1
End If
End Sub
|