Abend die Herren und die Damen,
leider hab ich wieder ein Problem.
Ich bekomme immer die Meldung:"installierbares isam nicht gefunden"
Hab von VS2010 bis 2015 alle Versionen durch und bekomme immer den gleichen Fehler.
Aktuell nutze ich das Office Produkt 356
Leider hat mir das Internet auch nicht geholfen.
Hab auch diese Engine von Access Installiert 2010.
Nutze Windows 8.1,
hoffe das mir jemand Helfen kann.
Code1
Code 2
leider hab ich wieder ein Problem.
Ich bekomme immer die Meldung:"installierbares isam nicht gefunden"
Hab von VS2010 bis 2015 alle Versionen durch und bekomme immer den gleichen Fehler.
Aktuell nutze ich das Office Produkt 356
Leider hat mir das Internet auch nicht geholfen.
Hab auch diese Engine von Access Installiert 2010.
Nutze Windows 8.1,
hoffe das mir jemand Helfen kann.
Code1
VB.NET-Quellcode
- Module modDB
- '##################################################
- ' Datenzugriff auf Userdate
- '##################################################
- Public Sub UDP_DB_Connect_Login()
- '##################################################
- ' Verbindung definieren
- '##################################################
- dbCon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Source=C:\Entwicklung\Anwendungen\Visual Basic\Projekt1 DB\Projekt1 DB\User.accdb;"
- '##################################################
- ' Datenauswahl festlegen
- '##################################################
- dbCommand.Connection = dbCon
- dbCommand.CommandText = "SELECT * FROM tbl_User;"
- dbAdapter.SelectCommand = dbCommand
- '##################################################
- ' Datensatz holen
- '##################################################
- Try
- ' Verbindung Öffnen
- dbCon.Open()
- ' Bearbeitung
- dbAdapter.Fill(dbDataset, "User")
- Dim strDaten As String = ""
- For Each dr As DataRow In dbDataset.Tables("User").Rows
- For Each dc As DataColumn In dbDataset.Tables("User").Columns
- strDaten = strDaten &
- dc.ColumnName.ToString() & (":") &
- dr.Item(dc.ColumnName).ToString & (";")
- Next
- strDaten = strDaten & vbNewLine
- Next
- MsgBox(strDaten)
- Catch ex As Exception
- MsgBox(ex.Message)
- dbCon.Close()
- End Try
- End Sub
- End Module
Code 2
VB.NET-Quellcode
- Imports System.Data.OleDb
- Module modDeclare
- '##################################################
- ' Anwendung
- '##################################################
- Public strApp As String = "Reference Manual 1.0"
- '##################################################
- ' Datenbank - ADO/OleDB
- '##################################################
- Public strDB As String 'Name und Pfad zur DB
- Public dbCon As New OleDbConnection
- Public dbCommand As New OleDbCommand
- Public dbAdapter As New OleDbDataAdapter
- Public dbTable As New DataTable
- Public dbDataset As New DataSet
- Public dbBinding As New BindingSource
- Public dbCB As New OleDbCommandBuilder
- Public strSQL As String
- Public strSort As String
- Public strFilter As String
- Public strSeek As String
- Public strDS As String
- '##################################################
- ' Bearbeitung
- '##################################################
- Public strModus As String
- '##################################################
- ' Temporer String
- '##################################################
- Public strTemp As String
- End Module