Hallo Zusammen,
ich bin noch blutiger Anfänger und am Rande der Verzweiflung.
Ich habe eine sql-server-Datenbank erstellt und möchte per OLEDB-Connect eine Verbindung aufbauen. Dies funktioniert aber leider nicht. Ich bekommen bei Open immer einen Fehler, den ich auch durch sehr viel Suche in Netz nicht lösen kann. Ich bin mir sicher, dass mir hier jemand weiter helfen kann.
Die Verbindung über sqlclient funktioniert offensichtlich. In meiner Lektüre (Datenbank-Programmierung mit Visual Basic 2008) sind sehr viele Beispiele mit OLEDB, deshalb möchte ich, dass diese Verbindung funktioniert.
Ich habe die Fehlermeldung erzeugt und hier eingefügt - Im Anschluß daran mein Coding.
System.Data.OleDb.OleDbException: Keine Fehlermeldung verfügbar, Fehlercode: DB_E_ERRORSOCCURRED(0x80040E21). bei System.Data.OleDb.OleDbConnectionInternal..ctor(OleDbConnectionString constr, OleDbConnection connection) bei System.Data.OleDb.OleDbConnectionFactory.CreateConnection(DbConnectionOptions options, Object poolGroupProviderInfo, DbConnectionPool pool, DbConnection owningObject) bei System.Data.ProviderBase.DbConnectionFactory.CreateNonPooledConnection(DbConnection owningConnection, DbConnectionPoolGroup poolGroup) bei System.Data.ProviderBase.DbConnectionFactory.GetConnection(DbConnection owningConnection) bei System.Data.ProviderBase.DbConnectionClosed.OpenConnection(DbConnection outerConnection, DbConnectionFactory connectionFactory) bei System.Data.OleDb.OleDbConnection.Open() bei Test_Datenbank_Betreuerabrechnung_2.ST_Beziehungen.ST_Beziehungen_Load(Object sender, EventArgs e) in I:\eigene Visual Basis Programme\Test_Datenbank_Betreuerabrechnung_2\Test_Datenbank_Betreuerabrechnung_2\ST_Beziehungen.vb:Zeile 45."
Nachstehend mein Code:
Imports
System.Data.SqlClient
Imports
System.Data.OleDbImports System.Data
Public Class ST_Beziehungen
Dim HinweisText As Long
Private Sub ST_Beziehungen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadDim connsql As New SqlConnection()
connsql.ConnectionString =
"Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Betrabrechnung.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"AddHandler connsql.StateChange, AddressOf OnSqlStateChangeAddHandler connsql.InfoMessage, AddressOf OnSqlInfoMessage
connsql.Open()
MessageBox.Show("Sql-Connect " & connsql.Database & connsql.DataSource)
connsql.Close()
'
' Ende sqlclient-Verbindung
'
' Verbindungsversuch ber SqlOleDbDim conoledb As New OleDbConnection("Provider=SQLOLEDB; Data Source=.\SQLEXPRESS;AttachDbFilename=I:\SQL_Server\SQL_SERVER_Datenbanken\Betrabrechnung.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
AddHandler conoledb.StateChange, AddressOf OnOleStateChange
AddHandler conoledb.InfoMessage, AddressOf OnOleInfoMessage
Try
conoledb.Open()
Catch ex As Exception
MessageBox.Show(
"Fehler " & ex.ToString )
End Try
Bitte helft einem Verzweifeltem
Vielen Dank im voraus