tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 前回の質問の返事は?
投稿日: 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。