DominoArea.org [Archive]

Code : Tout sélectionner

Uselsx "*LSXODBC"

Sub Initialize
   
   On Error Goto erreur
   
   Dim session As New notessession
   Dim con As ODBCConnection
   Dim qry As ODBCQuery
   Dim result As ODBCResultSet
   Set con = New ODBCConnection
   Set qry = New ODBCQuery
   Set result = New ODBCResultSet
   Set qry.Connection = con
   Set result.Query = qry
   
   
   Call con.ConnectTo("???")
   
   Set result.query=qry
   qry.SQL = "SELECT * FROM Clients"
   result.Execute
   
   If result.IsResultSetAvailable Then
      Msgbox result.GetValue("Nom Client")
   Else
      Msgbox "pas de valeur"
      Exit Sub
   End If
   
   Exit Sub
   
erreur:
   Msgbox Error & " - " & Erl
   Exit Sub
   
End Sub

Code : Tout sélectionner

[access_db]
Description = Microsoft Access Database
Driver = /usr/lib/libmdbodbc.so
Database = /path/to/your/filename.mdb

mike76 a écrit:salut,

ce n'est pas plutôt nom du dsn, user, pwd ??

j'ai ouvert mon fichier odbc.ini et je crois comprendre que le nom de mon dsn est acces_db

Code : Tout sélectionner

[access_db]
Description = Microsoft Access Database
Driver = /usr/lib/libmdbodbc.so
Database = /path/to/your/filename.mdb

qu'en pensez-vous ?

LS:DO- ODBC could not complete the requested operation

Code : Tout sélectionner

Call con.ConnectTo("baseAccessExemple2")

[baseAccessExemple2]
Description = Base Access
Driver = MicrosoftDriverAccessODBC
Database = /var/tmp/MDB/GESACTDTA.mdb

[baseAccessExemple2]
Description = Base Access
Driver = MicrosoftDriverAccessODBC
Database = /var/tmp/MDB/GESACTDTA.mdb
UsageCount = 5

[MicrosoftAccessDriverODBC]
Description = Microsoft Access Driver ODBC
Driver = /usr/lib/libmdbodbc.so.0.0.0
Driver64 =
Setup = /usr/lib/libmdbodbc.so.0.0.0
Setup64 =
UsageCount = 6
CPTimeout =
CPReuse =