Bonjour � tous,
 
D�sol� si c'est la deuxi�me fois que vous recevez ce message, mais je l'avais envoy� avant de m'inscrire sur la liste, et comme je ne le vois pas dans les archives, je le repost.
 
Je d�bute dans la programation de macros et je rencontre le probl�me suivant :
 
J'ai une bo�te de dialogue avec une listBox contenant les noms de mes clients. Je souhaiterais pouvoir ajouter un enregistrement directement depuis cette ListBox.  Il faut donc pour cela que je puisse tapper quelque chose dans cette ListBox or pour le moment, ma ListBox semble �tre en lecture seule ( ci dessous le code de "Remplissage" de ma ListBox ).
Quelle instruction dois-je utiliser ?
D'avance merci
 
Martin
 
'====================================================================== 
'Remplissage de la listbox clients
'======================================================================
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim Matable as object
Dim Statement As Object
Dim ResultSet As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Carnet d'adresses")
Connection = DataSource.GetConnection("","")
Matable = Connection.Tables.getbyname("Clients")
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("SELECT Societe FROM Clients ORDER BY Societe ASC")
dim i as integer
If Not IsNull(ResultSet) Then
i=0
While ResultSet.next
LB_client.additem(ResultSet.getString(1),i)
i=i+1
Wend
End if

Répondre à