[ツリー表示へ] [ワード検索] [Home]
タイトル ： DataGridViewの検索表示 投稿日 ： 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 |
をクリックするとツリー全体を一括表示します） - DataGridViewの検索表示 - こまる 09/12/02-22:36No.9682