Page 1 sur 1

connectiion SQL SERVER

MessagePublié: 29 Sep 2003 à 17:44
par alain gobeyn
Bonjour,J'ai des problèmes de connection avec mon server SQL, il me renvoie bien les entêtes de colonnes mais il renvoi touojours False pour les valeurs.pourtant le même scripts fonctionne correctement avec une base de données AccessOption PublicUselsx "*LSXODBC"Sub Initialize Dim con As New ODBCConnection Dim qry As New ODBCQuery Dim result As New ODBCResultSet Dim strUnite As Variant Print "debut du test" con.ConnectTo(Inputbox("ODBC data source name", "DSN")) 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 ..." Set qry.Connection = con Set result.Query = qry qry.SQL = "SELECT * FROM UNITES;" qry.QueryExecuteTimeOut = 120 result.Execute If result.IsResultSetAvailable Then Do result.NextRow Print result.fieldname(1) Call result.GetValue("UNITE_ABRV",strUnite) Print strUnite strUnite= result.GetValue(2) Print strUnite Loop Until result.IsEndOfData result.Close(DB_CLOSE) Else Messagebox result.Geterrormessage() Messagebox "Cannot get result set" Exit Sub End If con.DisconnectEnd SubEst ce que quelqu'un a eu le même problème !!!

Re: connectiion SQL SERVER

MessagePublié: 29 Sep 2003 à 18:33
par abcc
Je n'ai pas la solution, mais je m'intéresse à la procédure pour me connecter à des vues Oracle.Petite question: tu lances cette procédure quand tu te trouves dans un masque ou dans une vue ou les champs existent?Dans l'expression:Call result.GetValue("UNITE_ABRV",strUnite)à quoi correspondent les variables "UNITE_ABRV" etstrUniteMerci

Re: connectiion SQL SERVER

MessagePublié: 29 Sep 2003 à 20:19
par Stephane Maillard
Bonjour,QueryExecuteTimeOut n'est peut être pas nécessaire. Sinon essayer avec SQL DMO.[%sig%]

Re: connectiion SQL SERVER

MessagePublié: 30 Sep 2003 à 10:45
par alain.gobeyn
bonjour,UNIT_ABRV est le nom d'un champ de la Table UNITESla fonction result.GetValue("UNITE_ABRV",strUnite)est sensée recherche la valeur du champ "UNITE_ABRV" et place la valeur dans la variable strUnite.Ce script est un script de test qui n'affecte aucun masque, je recupére les résultat sur la fenêtre debug de lotus scripttu peux lancer ce script à condition de creer un lien ODBC dans le panneau de configuration, si les drivers ODBC d'ORACLE sont installe s'est assez simple.le script demande le nom de la source, et se connecte à la base, il faut utilise qry.sql pour lancer une requete sur la base

Re: connectiion SQL SERVER

MessagePublié: 30 Sep 2003 à 10:53
par alain.gobeyn
Le queryExectueTimeOut est utilise car je me connecté à un serveur distantMais il est vrai qu'il n'est pas nécéssaire.Peut tu m'expliquer ce que le SQL DMOje ne l'est pas trouve dans l'aideMerci d'avance