importation de données de sql server dans notes

[dal]

Bonjourje voudrais utiliser LSX pour récupérer des donnes de SQL server.je crois que j'aurai besoin d'un connecteur "OLE DB connector".j'ai déja commencer mais si quelqu'un a déja fait ce code qu'il me donne au moins une idée.merci

[Stéphane]

Pour ma part je me suis créé une bibliothèque de script avec les fonctions standard comme :sql_query(), sql_select_db()...ect.Pour pouvoir fonctionner le script doit tourner sur un poste ou une liaison ODBC vers une base SQL server est instensiée.Dans ta bibliothèque il te faut mettre dans Option :Uselsx "*LSXODBC"Ensuite tu te créé les fonctions que tu as besoin, par exemple voici le code de ma fonction sql_query()Function sql_query(strQuery As String, con As ODBCConnection) As ODBCResultSet Dim qry As New ODBCQuery Dim result As New ODBCResultSet If( strQuery <> "" ) Then If Not( con Is Nothing ) Then Set qry.Connection = con Set result.Query = qry qry.SQL = strQuery result.Execute If result.IsResultSetAvailable Then Set sql_query = result End If End If End IfEnd Functionou encore sql_select_db et sql_closeFunction mysql_select_db(DataSourceName As String) As ODBCConnection Dim con As New ODBCConnection con.ConnectTo(DataSourceName) If con.IsConnected Then Set mysql_select_db = con End IfEnd FunctionSub mysql_close(con As ODBCConnection) If Not( con Is Nothing ) Then con.Disconnect End IfEnd SubMais il te faudra aussi des fonctions pour traiter le résultat de ta requête, du style fetch_object ou autre.Ensuite dans ton code qui appel cette bibliothèque :Set SQLConnect=sql_select_db(DataSourceName)If Not( CertManConnect Is Nothing ) Then strQuery = "SELECT * FROM Company" Set queryresult=mysql_query(strQuery, CertManConnect) If Not( queryresult Is Nothing ) Then ...code qui traite le retour de ta query... End IfEnd IfVoila j'espère que cela t'aidera a en comprendre un peu plus...

[dal]

Merci