Beim Ausf�hren dieser Sub, bekomm ich immer die Meldung "kein Kennwort �bergeben."
Lass ich mir den Connectstring nach Aufruf der Function anzeigen,
ist davon tats�chlich nichts mehr zu sehen.
Lass ich mir den Connectstring nach Aufruf der Function anzeigen,
ist davon tats�chlich nichts mehr zu sehen.
HTML Code:
Sub test() Dim myCnn As Connection Dim cmd As New Command Set myCnn = ThisConnect [COLOR="Green"]' Connection Object setzen [/COLOR] MsgBox "" & myCnn.ConnectionString cmd.ActiveConnection = myCnn.ConnectionString [COLOR="Green"]'myCnn.Open [/COLOR] End Sub Public Function ThisConnect() As Connection Dim strCnn As String Dim objCnn As Connection strCnn = "Provider=OraOLEDB.Oracle;" & _ " Data Source=DBTest;" & _ " User Id=User1;" & _ " Password=User1" Set objCnn = CreateObject("ADODB.Connection") objCnn.Open strCnn Set ThisConnect= objCnn If Not objCnn Is Nothing Then Set objCnn = Nothing Exit Function End Function
Comment