Merci aladdin,
J'étudie ton code.
Cordialement
Papy
aladdin wrote:
Bonjour,
Un essai infructueux de Macro
Par exemple si vous une base de donnée qui s'appelle test avec une table DVD
et comme champs :
id (int)
Genre (varchar)
TitreFilm (varchar)
PrixAchat (int)
Vous pouvez parcourir votre table en utilisant cet exemple :
Sub maConnexionBase
Dim monServiceDB As Object, maSource as Object, maConnection as Object,
monStatement As Object, monResultSet as Object
Dim dbName as String
Dim maRequeteSQL As String, monTexte As String, Login As String, MotDePasse As
String
Dim i As Integer
'Nom de la base de donnée
'Affichage > Source de données ou en appuyant sur F4
dbName = "test"
'Paramètres de connexion
Login = ""
MotDePasse = ""
'Vote requête SQL
maRequeteSQL = "select * from DVD"
'Connexion à la base
monServiceDB = createUnoService("com.sun.star.sdb.DatabaseContext")
maSource = monServiceDB.getByName(dbName)
maConnection = maSource.GetConnection(Login,MotDePasse)
'SQL
monStatement = maConnection.createStatement()
monResultSet = monStatement.executeQuery(maRequeteSQL)
'Affichage des résultats
'getString ou getInt en fonction du type de la variable
'avec en paramètre le numéro de la colonne
'ici la 3 ème colonne => TitreFilm
'et la 4 ème => PrixAchat
While monResultSet.next
MsgBox "Le DVD " + monResultSet.getString(3) + " est à " +
monResultSet.getInt(4) + " €"
i = i + 1
Wend
'Fermeture de la connexion
monResultSet.close()
maConnection.close()
End Sub
Cordialement,
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]