tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルDataGridViewの検索表示
記事No9682
投稿日: 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

[ツリー表示へ]
タイトル前回の質問の返事は?
記事No9683
投稿日: 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

[ツリー表示へ]
タイトルRe: 前回の質問の返事は?
記事No9691
投稿日: 2009/12/03(Thu) 22:11
投稿者こまる
申し訳ございません。

[ツリー表示へ]
タイトルRe^2: 前回の質問の返事は?
記事No9692
投稿日: 2009/12/03(Thu) 23:00
投稿者花ちゃん
> 申し訳ございません。

それだけですか?

このような事しているとどこで質問してもレスがつきませんよ。

http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?mode=allread&no=9648&page=0

[ツリー表示へ]