par alain gobeyn » 29 Sep 2003 à 17:44
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 !!!