この記事の例では、ADODB.Connection を使用して Access データベースに接続する方法について説明します。ドライバーの種類のバージョンは Microsoft.Jet.OLEDB.4.0 です。 VB のデータベース操作では、データベースへの接続が最初のステップであり、最も基本的なものです。この記事で説明する例は、初心者が VB で Access データベースに接続する方法を学ぶのに適しています。
具体的な実装コードは以下のとおりです。
バージョン 5.00VB.Form 操作データベースの開始 Caption = "VB 操作データベース" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = "Operation Database" 属性 VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exused = FalseOption ExplicitPrivate Sub Form_Load()Dim Database As ObjectSet Database = New ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") 'データベースに接続If ((database.State) = (adStateOpen)) then MsgBox ("接続成功!")Else MsgBox ("接続失敗!")End If データベース.CloseSet データベース = NothingEnd Subこの例では、「database」という名前の新しい ADODB.Connection オブジェクトを作成します。このオブジェクトを使用してデータベースに接続します。ほとんどの場合、VB とデータベースの接続が完了する前に、メッセージ ボックスが表示されます。 Access2003の接続は基本的にこんな感じです。テスト データベースは VB と同じディレクトリに配置してください。Data.mdb は実際のデータベース パスに応じて変更できます。