visual studioでのdb使用

VB中学校というサイトで勉強しているのですが、DBを使うところでエラーが出てしまい先に進めません。
サイトのサンプル同じコードを書いているのですが、どこか間違っている箇所はございますか？
Imports System.Data.OleDb
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database\Animals.mdb")

行動規範の内容に同意します

回答2件

ベストアンサー

http://rucio.a.la9.jp/main/VBdotNet/Database/Database3.htm
のサンプルコードをそのまま Windows フォームアプリケーションで動かす場合、以下のコードになります。（一部修正してあります）

Form1.vb

VB.NET
1Imports System.Data.OleDb
2
3Public Class Form1
4
5    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
6        Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Animals.mdb")
7        Dim SQLCm As OleDbCommand = Cn.CreateCommand
8        SQLCm.CommandText = "SELECT 説明 FROM T_目マスタ WHERE 目ID = 2"
9        Dim Value As String
10        Cn.Open()
11        Value = CStr(SQLCm.ExecuteScalar)
12        Cn.Close()
13        MsgBox(Value)
14    End Sub
15
16End Class

補足
・OleDbConnection のところで「型 'OleDbConnection' が定義されていません。」と言うエラーが出る場合は最初に「Imports System.Data.OleDb」を追加します。（追加済み）

・Value = SQLCm.ExecuteScalarのところで「Option Strict On で 'Object' から 'String' への暗黙的な変換はできません。」と言うエラーが出る場合は CStr() を使って明示的に型変換します。（追加済み）

・「Microsoft.Jet.OLEDB.4.0' プロバイダーはローカルのコンピューターに登録されていません。」と言うエラーが出る場合は http://qiita.com/yaju/items/86314412741deb806366 この辺を参考に解決してみてください。

・エラーが出たときは、エラーメッセージや使用している機能（クラス名）でGoogle検索すると解決のヒントを得られることが多いです。今回であれば「Microsoft.Jet.OLEDB.4.0' プロバイダーはローカルのコンピューターに登録されていません。」「OleDbConnection」「Microsoft.Jet.OLEDB.4.0」などで検索するとヒントが得られます。質問するときは使用環境、エラーメッセージの内容、エラーが出た場所を具体的に記入すると回答を得やすくなります。上記で解決できない場合は、質問を編集し、これらの情報を追記してください。

投稿2017/07/14 23:34