0

わかりました、最初に私が何をしたかを説明してください。

まず、アクセス データベースを vb アプリにインポートしてから、データセットなどに名前を付けました。

これが私のデータセットの外観です: 1 つのテーブル 4 つの列

これまでのところ、私はこれを持っています:

Dim ds As ElementsDataSet
    Dim dt As ElementsDataSet.ElementsDataTable
    Dim conn As SqlConnection = New SqlConnection("Data Source=|DataDirectory|\Elements.accdb")
    Dim selectString As String = "Select Atomic Mass FROM Elements WHERE No =" & mol
    Dim cmd As New SqlCommand(selectString, conn)
If conn.State = ConnectionState.Closed Then conn.Open()

Dim datareader As SqlDataReader = cmd.ExecuteReader()

While datareader.Read = True

    MessageBox.Show(datareader.Item("Atomic Mass"))

End While

datareader.Close()

これを実行すると、次のエラーが発生します。

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in System.Data.dll
Additional information: A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: SQL Network Interfaces, error: 26 - Error Locating Server/Instance Specified)
4

1 に答える 1

0

問題はSQLConnection、Access データベースを開くために を使用していることです。これはうまくいきません。

SQLServer データベースが必要かOleDbConnection、Access データベースに を使用する必要があります。

Access データベースへの接続に役立つ Microsoft KB 記事は次の とおりです。ASP.NET 、ADO.NET、および Visual Basic .NET を使用して Access データベースからレコードを取得および表示する方法と、これは CodeProject にあります: http:/ /www.codeproject.com/Articles/8477/Using-ADO-NET-for-beginners

Private Sub ReadRecords()
    Dim conn As OleDbConnection = Nothing
    Dim reader As OleDbDataReader = Nothing
    Try
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Elements.accdb"))
        conn.Open()

        Dim cmd As New OleDbCommand("Select Atomic Mass FROM Elements WHERE No =" & mol, conn)
        reader = cmd.ExecuteReader()    
        While reader.Read = True
        MessageBox.Show(reader.Item("Atomic Mass"))
        End While
    Finally

        If reader <> Nothing Then
            reader.Close()
        End If
        If conn <> Nothing Then
            conn.Close()
        End If
    End Try
End Sub
于 2013-01-14T05:27:22.273 に答える