par Mike M » 21 Mars 2003 à 12:14
En effet il faut configurer ODBC sinon un petit exemple :Sub Click(Source As Button)Dim Con As New ODBCConnectionDim Req As New ODBCQueryDim Res As New ODBCResultSetcon.ConnectTo("LotusScript") 'LotusScript = nom DataSource dans le driver ODBCIf Not con.IsConnected Then Messagebox "Connexion à la base : " & con.DataSourceName,, _ "Echec de la connexion"End IfSet Req.Connection=ConReq.SQL="Insert into pieces (Numero,Piece,Prix,Type) values ('9998','essai','100','a')"Set Res.Query = ReqIf Not Res.execute Then Messagebox "Probleme sur la requete : " _ & Res.GetExtendedErrorMessage ,, Res.GetErrorMessage Exit SubEnd IfRes.Close(DB_CLOSE)Con.DisconnectEnd Sub