Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

programmgesteuerter DSN Eintrag
Autor: MG71
Datum: 12.09.06 10:08
Hallo Wissende, ich verzweifle mittlerweile bei diesem Fehler... Ich möchte Programmgesteuert einen Benutzer DSN Eintrag vornehmen, bei der ich immer die Fehlermeldung erhalte: Eine nicht behandelte Ausnahme des Typs 'System.NullReferenceException' ist aufgetreten. Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt. Hier der Quellcode: Imports System.Runtime.InteropServices Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Integer, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Boolean ' Aufruf in einer Funktion AddDSN("Microsoft Access-Datenbank", "C:\test.MDB") Public Function AddDSN(ByVal sDSNName As String, _ ByVal sPath As String, _ Optional ByVal sDescription As String = "", _ Optional ByVal sDriverName As String = "Microsoft Access Driver (*.mdb)", _ Optional ByVal sUser As String = "", _ Optional ByVal sPwd As String = "", _ Optional ByVal bSystemDSN As Boolean = False) Dim nResult As Integer Dim nRequest As Long Dim sAttr As String ' Benutzer-DSN oder System-DSN? nRequest = IIf(bSystemDSN, ODBC_ADD_SYS_DSN, ODBC_ADD_DSN) If InStr(1, sDriverName, "SQL Server", vbTextCompare) > 0 Then ' SQL-Server Dim sServer As String ' Prüfen, ob Serverpfad angegeben... If InStr(sPath, "\") > 0 Then sServer = Microsoft.VisualBasic.Left(sPath, InStr(sPath, "\") - 1) sPath = Mid$(sPath, InStr(sPath, "\") + 1) Else ' Falls nicht, lokalen SQL-Server verwenden sServer = "(local)" End If sAttr = "DSN=" + sDSNName & "" & _ "SERVER=" & sServer & "" & _ "DATABASE=" & sPath & "" & _ "TRUSTED_CONNECTION=True" & "" & _ "DESCRIPTION=" + sDescription & "" Else ' Verbindungs-Attribute sAttr = "DSN=" + sDSNName & " " & _ "DBQ=" + sPath & " " & _ "UID=" & sUser & " " & _ "PWD=" & sPwd & " " & _ "DESCRIPTION=" + sDescription & "" End If ' DSN-Verbindung einrichten SQLConfigDataSource(0&, nRequest, sDriverName, sAttr) End Function

programmgesteuerter DSN Eintrag	1.701	MG71	12.09.06 10:08
Re: programmgesteuerter DSN Eintrag	1.257	effeff	12.09.06 13:31
Re: programmgesteuerter DSN Eintrag	1.198	MG71	13.09.06 08:51

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen