VB で ADO メソッドを使用してデータテーブルをクエリする-コンピュータ知識-php.cn

VB で ADO メソッドを使用してデータテーブルをクエリする

VB は ADO メソッドを使用してデータテーブル内のデータをクエリする方法を教えてください

使いやすいコントロール。

前提条件は、adodc コントロールをデータベースに通常どおり接続することです。

datagrid コントロールは adodc コントロールにバインドされています

プライベートサブコマンド1_Click()

'データベースに接続します

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;データソース=" & App.Path & "\database.mdb"

'問い合わせ

Adodc1.RecordSource = '＂ & Text1.Text & ＂' のような名前と '＂ & Text2.Text & ＂' のような主要なテーブルから * を選択します＂

Adodc1.Refresh

エンドサブ

VB は ADO コントロールを使用してデータベースに接続し、コードに接続する方法

最初の ADO の引用: プロジェクト -- 参照 -- MS ActiveX データオブジェクトの選択

コード:

Access_Con を接続として暗くする

Access_Con = 新しい接続を設定します

Access_Con.ConnectionString = ＂Provider=Microsoft.jet.oledb.4.0;データソース=＂ & App_Path & ＂\FHLdata.mdb;＂

Access_Con.Open

レコードセットとして rs をディムする

Set rs = 新しいレコードセット

rs.Open "ユーザー管理から * を選択"、Access_Con

''''クエリ結果は rs に表示されます。rs をデータグリッドにバインドして、データなどを表示できます。

ADO コントロールを使用して VB で Access データベースに接続する

新しいプロジェクトを作成するときに、データプロジェクトを選択します。この時点で、データベースプログラミングに必要なコントロールが VB6 統合デバッグ環境の左側のツールボックスに読み込まれています。

次に、FORM1 フォームに ADODC コントロールと DATAGRID コントロールを追加し、DATAGRID1 のプロパティ DATASOURCE として ADODC1 を選択し、ADODC1 コントロールのプロパティページを開いて接続文字列を使用し、[生成] を選択して、プロバイダーで MICROSOFT Jet 4.0 OLE DB Provider を選択します。オプションを選択し、を押してデータベースなどに接続します。 ADODC1 コントロールのプロパティページの接続文字列を使用して、空白のテキストウィンドウに長い文字列があります。この文字列は、プログラミング用のプログラムコードにコピーできることに注意してください。 ADODC1 コントロールプロパティページのデータソースには、SQL クエリ言語を記述するためのコマンドテキスト (SQL) 書き込みウィンドウがあります。このウィンドウのSQL文をプログラムコードにコピーしてプログラミングすることができます。

SQL クエリ言語の主な構造は次のとおりです:

テーブル名からクエリフィールドを選択 Where クエリ条件ステートメント [ソートステートメントまたはグループ化ステートメント]

クエリフィールドは、(スペイン語) カンマで区切るか、* 記号で置き換える必要があります。上記のクエリの並べ替えステートメントを最適に使用することをお勧めします。

SQL クエリ言語は、プログラムの実行中にエラーが発生した場合に通知し、対応する変更を加えるだけです。通常、最初に上記の接続を押して、SQL デバッグに "SELECT * FROM TabelName" を使用します。問題ありません。ボタンの CLICK イベントでコピーする必要がある接続文字列と SQL クエリ言語をボタンホールを使用してコピーします。コントロール。後で使用できるように保存します。次に、ADODC1 ホールピースを削除し、ADODC1 コントロールを追加し、他のコンテンツを追加します。

以下はコード例です:

プライベートサブフォーム_Load()

テキスト1 = ＂＂

Adodc1を使用する場合

Adodc1.ConnectionString = "プロバイダ=Microsoft.Jet.OLEDB.4.0;データソース=E:\db1.mdb;永続的なセキュリティ情報=False"

Adodc1.RecordSource = "b1 の名前順から名前を選択"

Adodc1.Refresh

DataGrid1.Refresh

で終わる

エンドサブ

プライベートサブテキスト1_Change()

Adodc1.ConnectionString = "プロバイダ=Microsoft.Jet.OLEDB.4.0;データソース=E:\db1.mdb;永続的なセキュリティ情報=False"