タイトル : 前回の質問の返事は? 投稿日 : 2009/12/02(Wed) 23:31 投稿者 : 花ちゃん
> こんにちは。初めて投稿します。よろしくお願いします。 前回と前々回の質問にレスがついておりますが、返事もしないまま、ハンドルネームを 変更して投稿されておられますが、質問して、レスがついたら 速やかに返事をするようにして下さい。 当掲示板をご利用になる場合は、必ず【掲示板ご利用に際し】をよく読んでから ご利用願います。 今回の質問も消されそうなので下記に > こんにちは。初めて投稿します。よろしくお願いします。 > 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 |