Domino 9 und frühere Versionen > ND8: Entwicklung

ODBCConnection Problem

<< < (5/7) > >>

Pavel:
der code dazu:

   Set con = New ODBCConnection   
   con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
   Messagebox con.getextendederrormessage
   While Not con.IsConnected
      dsn = Inputbox("ODBC data source name", _
      "Connection not made ...")
      If dsn = "" Then Exit Sub
      con.ConnectTo(dsn)
   Wend
   Messagebox "Connected to " & con.DataSourceName,, _
   "Connection made ..."
   con.Disconnect   
   

ata:

--- Zitat ---con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
--- Ende Zitat ---

... du übergibst nur einen Parameter, den für den DSN - wo ist der Username und das Passwort? Wenn es keine definierten gibt, dann übergebe Leerstrings...

Toni

Pavel:
das wird in den dialogen abgefragt

Pavel:
bei dieser variante kommt die gleiche meldung:

   Set con = New ODBCConnection
   Dim dataSource As String
   Dim userName As String
   Dim password As String
   dataSource = "xyz"
   userName = "abc"
   password = "efg"
   If Not con.ConnectTo(dataSource, userName, password) Then
      Messagebox "Could not connect to " & dataSource
   End If
'      Messagebox con.geterror
   Messagebox con.GetExtendedErrorMessage
   
   con.Disconnect
   

ata:
... ich habe den Aufbau wie folgt:

Call con.connectTo( sDSN , sUser , sPassword )
If Not con.IsConnected Then
   MsgBox "Keine Verbindung: " & con.GetExtendedErrorMessage
End If

Bist du sicher, daß du mit dem angegebenen Usernamen und Passwort Zugriff hast - kannst du den Zugang mit anderen Programmen testetn - DBCisualizer bspw.

Toni

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete