Datacombo vb6
cs_miss_poopoucy
Messages postés
22
Date d'inscription
mercredi 6 juin 2007
Statut
Membre
Dernière intervention
23 juin 2011
-
19 janv. 2009 à 01:41
cs_miss_poopoucy Messages postés 22 Date d'inscription mercredi 6 juin 2007 Statut Membre Dernière intervention 23 juin 2011 - 19 janv. 2009 à 23:32
cs_miss_poopoucy Messages postés 22 Date d'inscription mercredi 6 juin 2007 Statut Membre Dernière intervention 23 juin 2011 - 19 janv. 2009 à 23:32
A voir également:
- Datacombo vb6
- Datacombo et remplissage automatique - Forum Visual Basic 6
- Lire données d'un datacombo - Forum Visual Basic 6
- Datacombo control in vb6 - Forum Visual Basic 6
- VB6, Access, DataCombo Valeur Null - Forum Visual Basic
- Afficher un ordre personnalisé pour un DataCombo en VB6.0 - Forum Visual Basic 6
3 réponses
cs_ghuysmans99
Messages postés
3982
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
16
19 janv. 2009 à 18:44
19 janv. 2009 à 18:44
Option Explicit
Public Function
Pure(S As String) As String
Pure = Replace(S, "'", "''")
End Function<hr />
Private Sub cmb_gr_Change()
Dim SQL As String
SQL = "SELECT * FROM Etudiant WHERE groupe='" & Pure(cmb_gr.BoundText) & "'"
rs_gr.RecordSource = SQL$
txtnom.Text = rs_gr.Recordset("nom")
txtprenom.Text = rs_gr.Recordset("prenom")
cmb_gr.Refresh
End Sub ,
----
Syntax color by Renfield
Public Function
Pure(S As String) As String
Pure = Replace(S, "'", "''")
End Function<hr />
Private Sub cmb_gr_Change()
Dim SQL As String
SQL = "SELECT * FROM Etudiant WHERE groupe='" & Pure(cmb_gr.BoundText) & "'"
rs_gr.RecordSource = SQL$
txtnom.Text = rs_gr.Recordset("nom")
txtprenom.Text = rs_gr.Recordset("prenom")
cmb_gr.Refresh
End Sub ,
----
Syntax color by Renfield
cs_miss_poopoucy
Messages postés
22
Date d'inscription
mercredi 6 juin 2007
Statut
Membre
Dernière intervention
23 juin 2011
19 janv. 2009 à 23:29
19 janv. 2009 à 23:29
merci pour la solution, j'ai utilisé autre chose et ça a marché :))))
le dataenvironment est tres util pas besoin de travailler avec des datacombo..
merci encore!
miss poopoucy
le dataenvironment est tres util pas besoin de travailler avec des datacombo..
merci encore!
miss poopoucy
cs_miss_poopoucy
Messages postés
22
Date d'inscription
mercredi 6 juin 2007
Statut
Membre
Dernière intervention
23 juin 2011
19 janv. 2009 à 23:32
19 janv. 2009 à 23:32
bonsoir,
voila j'utilise l'objet command pour ajouter des données dans ma table.mais je retrouve la ligne vide dans la bdd pk???
l'enregistrement existe pck y a deja un champ num autoincrement, mais les autres sont vides.
Private Sub Form_Load()
Dim cde_gr As New ADODB.Command
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\gestion_prj\bd2.mdb"
cde_gr.ActiveConnection = cn
cde_gr.CommandType = adCmdText
cde_gr.CommandText = "insert into Groupe(thème,date_début) values('" & txttheme.Text & "','" & txtdated.Text & "')"
cde_gr.Execute
End Sub
miss poopoucy
voila j'utilise l'objet command pour ajouter des données dans ma table.mais je retrouve la ligne vide dans la bdd pk???
l'enregistrement existe pck y a deja un champ num autoincrement, mais les autres sont vides.
Private Sub Form_Load()
Dim cde_gr As New ADODB.Command
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\gestion_prj\bd2.mdb"
cde_gr.ActiveConnection = cn
cde_gr.CommandType = adCmdText
cde_gr.CommandText = "insert into Groupe(thème,date_début) values('" & txttheme.Text & "','" & txtdated.Text & "')"
cde_gr.Execute
End Sub
miss poopoucy
