Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Frage zu AktiveX DLL
Autor: Wolfgang
Datum: 01.10.02 17:51
Hi Lordchen, ich habe einfach mal die ganze Klasse kopiert Private mvarpsServer As String 'lokale Kopie Private mvarpsCatalog As String 'lokale Kopie Private mvarServerType As TYPEOF_SERVER 'lokale Kopie Public Enum TYPEOF_SERVER SQLServer = 1 Oracle = 2 End Enum Public Con As ADODB.Connection Private mvarUsername As String 'lokale Kopie Private mvarPasswort As String 'lokale Kopie Public Property Let Passwort(ByVal vData As String) mvarPasswort = vData End Property Public Property Get Passwort() As String Passwort = mvarPasswort End Property Public Property Let Username(ByVal vData As String) mvarUsername = vData End Property Public Property Get Username() As String Username = mvarUsername End Property Public Property Let ServerType(ByVal vData As TYPEOF_SERVER) mvarServerType = vData End Property Public Property Get ServerType() As TYPEOF_SERVER ServerType = mvarServerType End Property Public Function ConOpen() As Boolean Dim p As String On Error GoTo JmpErr Set Con = New ADODB.Connection p = "Provider=SQLOLEDB.1;" p = p & "Initial Catalog=" & mvarpsCatalog & ";" p = p & "Data Source=" & mvarpsServer & ";" p = p & "Persist Security Info=False;" p = p & "Connect Timeout=45" Con.CursorLocation = adUseClient Con.Open p, mvarUsername, mvarPasswort ConOpen = True Exit Function JmpErr: Set Con = Nothing ConOpen = False End Function Public Sub ConClose() Con.Close Set Con = Nothing End Sub Public Property Let psCatalog(ByVal vData As String) mvarpsCatalog = vData End Property Public Property Get psCatalog() As String psCatalog = mvarpsCatalog End Property Public Property Let psServer(ByVal vData As String) mvarpsServer = vData End Property Public Property Get psServer() As String psServer = mvarpsServer End Property cu Wolfgang

Frage zu AktiveX DLL	88	Wolfgang	01.10.02 17:15
Re: Frage zu AktiveX DLL	227	unbekannt	01.10.02 17:20
Re: Frage zu AktiveX DLL	54	Wolfgang	01.10.02 17:27
Re: Frage zu AktiveX DLL	381	unbekannt	01.10.02 17:30
Re: Frage zu AktiveX DLL	50	Wolfgang	01.10.02 17:36
Re: Frage zu AktiveX DLL	200	unbekannt	01.10.02 17:38
Re: Frage zu AktiveX DLL	41	Wolfgang	01.10.02 17:42
Re: Frage zu AktiveX DLL	201	unbekannt	01.10.02 17:47
Re: Frage zu AktiveX DLL	46	Wolfgang	01.10.02 17:51
Re: Frage zu AktiveX DLL	207	unbekannt	01.10.02 18:04
Re: Frage zu AktiveX DLL	47	Wolfgang	01.10.02 18:08
Re: Frage zu AktiveX DLL	217	unbekannt	01.10.02 18:12
@Lordchen -> DANKE ! (oT)	44	Wolfgang	02.10.02 07:27

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