DominoArea.org [Archive]

Bonjour

Pour une connexion à une base de donnée la propriété server de LCConnection c'est le nom de la source ODBC ???

Code : Tout sélectionner

   Dim lcsession As LCSession    
   Dim src As LCConnection
   Dim liste As LCFieldList
   


   Set src = New LCConnection ("oracle")
   src.server = "TOTO"
   src.Userid = "TITI"
   src.Password = "TATA"
   src.connect

cette question car j'ai une erreur au connect :

ORA-12154: TNS:could not resolve the connect identifier specified

Bonsoir,
quelques infos trouvées sur ce lien
http://www-12.lotus.com/ldd/doc/lei/70/ ... enDocument
En espérant que cela t'aidera

Bonjour Alain,

Merci pour ta réponse.
Je suis allé consulter ton lien mais ils ne parlent pas de la propriété server.
Je veux juste savoir si pour cette propriété je dois mettre le nom de ma source de données odbc

de mémoie, j'ai pas poste lotus avec moir, mais en ODBC source est la base de données. Enfin je peux me tromper

donc pour terminer, dans server, je placerais le nom ou l'adresse ip du serveur aussi

Re,

je viens d'avoir confirmation à l'aide de ce lien :
http://www.dominux.net/Dominux/Dominux.nsf/dx/101220032006OFRQEQ.htm

pour la propriété server il faut bien mettre le nom du dsn

bon we

Personne n'a jamais eu cette erreur pour une connexion Oracle en odbc???

ORA-12154: TNS:could not resolve the connect identifier specified

Voici mon code au cas où vous détecteriez une erreur

Code : Tout sélectionner

Dim src As LCConnection

   ' *********** definition de la connection ***********
   Set src = New LCConnection ("Oracle")
   src.server = "Test"    ' Nom de mon lien ODBC
   src.Userid = "USER"
   src.Password = "PWD"
   src.connect

Le client oracle installé sur le serveur est le 10g

avec l'installation du driver Oracle, j'ai un répertoire C:\Oracle\Ora92\network\ADMIN\ qui contient un fichier TNSNAMES.ORA qui contient les éléments de connection (serveur, port, schéma ...)
Ensuite, au niveau de Windows, j'ai déclaré ma source de donnée en sélectionnant le driver Oracle et le TNS déclaré au préalable dans le fichier

Et dans mon code LS, je fait référence au nom de la source déclarée au niveau Windows

Salut

J'ai bien configuré mon fichier tnsnames.ora
Lorsque je teste mon dsn oracle avec le bouton "tester connexion", windows me dit que la connexion a réussi

c'est après lorsque j'appelle depuis mon ls que ça ne marche pas

Tu as un exemple de connexion à une base oracle ???
je te remercie d'avance

Sinon après je peux essayer de me connecter en ADO mais comment trouver la chaine de connexion exacte ???

[syntax="LotusScript"] Set doc = s.CurrentDatabase.GetProfileDocument( "CfgCME" )
If ( doc Is Nothing ) Then
Error 4001, "paramètres non trouvés"
Exit Sub
Elseif( doc.CME_SourceName(0) = "" ) Then
Error 4001, "paramètres non trouvés"
Exit Sub
End If

con.SilentMode = True

If Not ( con.ConnectTo( doc.CME_SourceName(0), doc.CME_Login(0), doc.CME_Password(0) ) ) Then
Error 4001, "Impossible d'établir la connexion ODBC (" & con.GETEXTENDEDERRORMESSAGE & ")"
Exit Sub
End If

Sub ReadFromCME( connect As ODBCConnection, sName As String )

On Error Goto ErrorHandler

Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim newMember As CME_Record
Dim i As Integer

Set con = connect
CME_name = sName

Set qry.Connection = con
Set result.Query = qry

' Rechercher le dbid de la Direction à partir de son name
qry.SQL = "SELECT dbid FROM " & CME_table & " where type= '5' and name = '" & CME_name & "'"
result.Execute
If result.IsResultSetAvailable Then
' LogEvent( "'" & CME_name & "' trouvé dans '" & CME_table & "' : " & result.GetValue(1) )
CME_dbid = result.GetValue(1)
Else
Error 4000, "'" & CME_name & "' non trouvé dans '" & CME_table & "'"
End If

' Rechercher l'ensemble des Services rattachés à cette Direction
qry.SQL = "SELECT object_dbid FROM " & CME_tableMembers & " where object_type = '22' and folder_dbid = '" & CME_dbid & "'"
result.Execute
If result.IsResultSetAvailable Then
i = 0
Do
result.NextRow
Set newMember = New Service( Me )
Call newMember.ReadFromCME( con, result.GetValue(1) )
Set members(i) = newMember
' Print CME_name & " (" & i & ") = " & result.GetValue(1)
i = i + 1
Loop Until result.IsEndOfData
result.Close(DB_CLOSE)
Else
Error 4000, "Error searching Service for Direction '" & CME_name & "'"
End If

Exit Sub

ErrorHandler :
' Remonter l'erreur à la fonction appelante
Error Err, "Error in sub 'Direction::ReadFromCME' line " & Erl & " : " & Error
Exit Sub
End Sub[/syntax]

Merci Roubech pour ce code.

Par contre t'utilise quel bibliothèque pour avoir la classe ODBCConnection.
J'ai essayé avec uselsx "*lsxlc" mais il ne connaît pas ODBCConnection à la compilation

C'est bon j'ai trouvé c'est "*LSXODBC", reste plus qu'à tester

j'ai toujours le même message d'erreur

ORA-12154: TNS:could not resolve the connect identifier specified