以下は単純な VB アプレットの例ですが、次のキーワードが含まれています: VB6.0、ADO、Access
環境: Visual Basic 6.0 Enterprise Edition (合理化されたバージョンではありません。そうしないと、必要なコントロールが不足します)
データベース: Access データベース、データベースは xs.mbd、組み込みテーブルは xj
結果: VB は ADO を使用して Access データベースに接続し、xj テーブル内のすべてのデータをクエリし、ループでクエリ結果をウィンドウに出力します。
コード：
Private Sub Form_Click()Dim db As New ADODB.Connection、RS As New ADODB.Recordset 'ADO 接続オブジェクトとレコード セット Dim strSQL As String 'SQL 文字列 db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;データ ソース=" & App.Path & "/xs.mdb" 'データベース接続 db.Open 'データベースを開きます strSQL = "select * from xj" 'SQL string RS.Open strSQL, db, 3, 1 'データテーブルをクエリします。 RS.EOF 'クエリ結果を出力します。 RS! 性別 RS!出力結果をウィンドウに表示 RS.MoveNext 'レコードを下に移動 LoopRS.Close 'レコードセットを閉じる Set RS = NothingEnd Sub
以上がこの記事の全内容です。皆さんに気に入っていただければ幸いです。