Bonjour, amis developpeurs.
Tous mes voeux de reussite et de succes dans vos entreprises en cette
nouvelle annee. J'ai besoin de peupler une zone de liste a partir d'un
recodset ADO. Est-ce que cela est possible? Si oui, comment dois-je m'y
prendre?
Je travaille sur une interface Access 2003 reliee a une base de donnees SQL
server 2000.
Merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
spectre
Un exemple :
dim strConn As ADODB.Connection dim oRs As New ADODB.Recordset
Private Sub cmb_find2_GotFocus() Set strConn = CurrentProject.Connection Set oRs = New ADODB.Recordset
strSql = "SELECT distinct nom, id from tbl1 " strSql = strSql & "order by nom "
oRs.Open strSql, strConn, adOpenStatic, adLockPessimistic With Me.cmb_find2 .ColumnCount = 2 ' nombre de colonnes .BoundColumn = 1 ' la première colonne est numérotée '0'. elle contient_ l'ID pour usage ultérieur, si nécessaire End With
Do While Not oRs.EOF Me.cmb_find2.cont = strSql oRs.MoveNext Loop strConn.Close Set oRs = Nothing ' fin***************** remplissage de la combo "nom" End Sub
By
Un exemple :
dim strConn As ADODB.Connection
dim oRs As New ADODB.Recordset
Private Sub cmb_find2_GotFocus()
Set strConn = CurrentProject.Connection
Set oRs = New ADODB.Recordset
strSql = "SELECT distinct nom, id from tbl1 "
strSql = strSql & "order by nom "
oRs.Open strSql, strConn, adOpenStatic, adLockPessimistic
With Me.cmb_find2
.ColumnCount = 2 ' nombre de colonnes
.BoundColumn = 1 ' la première colonne est
numérotée '0'. elle contient_ l'ID pour usage
ultérieur, si nécessaire
End With
Do While Not oRs.EOF
Me.cmb_find2.cont = strSql
oRs.MoveNext
Loop
strConn.Close
Set oRs = Nothing
' fin***************** remplissage de la combo "nom"
End Sub
dim strConn As ADODB.Connection dim oRs As New ADODB.Recordset
Private Sub cmb_find2_GotFocus() Set strConn = CurrentProject.Connection Set oRs = New ADODB.Recordset
strSql = "SELECT distinct nom, id from tbl1 " strSql = strSql & "order by nom "
oRs.Open strSql, strConn, adOpenStatic, adLockPessimistic With Me.cmb_find2 .ColumnCount = 2 ' nombre de colonnes .BoundColumn = 1 ' la première colonne est numérotée '0'. elle contient_ l'ID pour usage ultérieur, si nécessaire End With
Do While Not oRs.EOF Me.cmb_find2.cont = strSql oRs.MoveNext Loop strConn.Close Set oRs = Nothing ' fin***************** remplissage de la combo "nom" End Sub
By
spectre
une rectification (je pense) avant de revoir le post que viens d'envoyer. Peut être avant de faire mon copier/coller ai je modifier par erreur une ligne
entre Do While Not oRs.EOF et oRs.MoveNext
la ligne ok est Me.cmb_find2.RowSource = strSql
une rectification (je pense) avant de revoir le post que viens
d'envoyer. Peut être avant de faire mon copier/coller ai je modifier
par erreur une ligne
une rectification (je pense) avant de revoir le post que viens d'envoyer. Peut être avant de faire mon copier/coller ai je modifier par erreur une ligne
entre Do While Not oRs.EOF et oRs.MoveNext
la ligne ok est Me.cmb_find2.RowSource = strSql
3stone
Salut,
"Anicet" |J'ai besoin de peupler une zone de liste a partir d'un | recodset ADO. Est-ce que cela est possible? Si oui, comment dois-je m'y | prendre? | Je travaille sur une interface Access 2003 reliee a une base de donnees SQL | server 2000.
Quelque chose comme :
Dim conn As New ADODB.Connection Set conn = CurrentProject.Connection Dim Rs As New ADODB.Recordset Rs.Open "select Champ from Table", conn, adOpenStatic With Rs Do While Not .Eof Me!MaListe.AddItem Rs!Champ Rs.MoveNext Loop End With
"Anicet"
|J'ai besoin de peupler une zone de liste a partir d'un
| recodset ADO. Est-ce que cela est possible? Si oui, comment dois-je m'y
| prendre?
| Je travaille sur une interface Access 2003 reliee a une base de donnees SQL
| server 2000.
Quelque chose comme :
Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim Rs As New ADODB.Recordset
Rs.Open "select Champ from Table", conn, adOpenStatic
With Rs
Do While Not .Eof
Me!MaListe.AddItem Rs!Champ
Rs.MoveNext
Loop
End With
"Anicet" |J'ai besoin de peupler une zone de liste a partir d'un | recodset ADO. Est-ce que cela est possible? Si oui, comment dois-je m'y | prendre? | Je travaille sur une interface Access 2003 reliee a une base de donnees SQL | server 2000.
Quelque chose comme :
Dim conn As New ADODB.Connection Set conn = CurrentProject.Connection Dim Rs As New ADODB.Recordset Rs.Open "select Champ from Table", conn, adOpenStatic With Rs Do While Not .Eof Me!MaListe.AddItem Rs!Champ Rs.MoveNext Loop End With
