AsselusBorealiss
Messages postés79Date d'inscriptiondimanche 15 octobre 2000StatutMembreDernière intervention24 septembre 2007
-
12 avril 2005 à 22:26
AsselusBorealiss
Messages postés79Date d'inscriptiondimanche 15 octobre 2000StatutMembreDernière intervention24 septembre 2007
-
23 avril 2005 à 20:50
Salut a tous Zer toutes
j'ai un pb avec le code suivant ( pour enregister et lire dans la base de registre )
donc pour enregistrer ca marche ( avec une boucle tres bizzare ...le seul moyen que j'ai trouver pour creer une sous cle a chaque nouvelle creation )
Public Sub Command1_Click()
Dim email As String
email = Text1.Text
Dim password As String
password = Text2.Text
For i = 0 To 12 ' sous Cle sans les ""
If i = 12 Then GoTo Fin
If GetSetting("CLE", sous cle, "1ere-Valeur de Chaine", contenu de la valeur) <> "" Then
SaveSetting "CLE", sous cle, "1ere-Valeur de Chaine", contenu de la valeur 'text1
SaveSetting "CLE", sous cle, "2em-Valeur de Chaine", contenu de la valeur 'text2
End If
Next i
Fin:
mon pb est pour lire chaque sous cle et le contenu de chaque 1ere valeur de chaine et le coller dnas un combo
(ne pas trop regarder la boucle c'est juste que j'ai pas d'idee)
For a = 0 To 12
If a = 12 Then GoTo Fin
If GetSetting("CLE", sous cle, "1ere valeur de chaine", contenu de la valeur) <> "" Then
Combo1.AddItem GetSetting("CLE", sous cle, "1ere valeur de chaine", contenu de la valeur)
End If
Next a
Fin:
avez vous une idee sur la maniere que je doit utiliser
pour lister les sous cle et le contenu de la premiere valeur de chaine
merci mille fois
---------------------------------------------------------------------------------
pour le test : 2 textbox 1 bouton 1 combo apres enregistrement faite une recherche dans la base de registre de ---- test-vbfrance.com
Public Sub Command1_Click()
Dim toto As String
toto = Text1.Text
Dim password As String
yoyo = Text2.Text
For i = 0 To 12
If i = 12 Then GoTo Fin
If GetSetting("test-vbfrance.com", toto, "tata", toto) <> "" Then
SaveSetting "test-vbfrance.com", toto, "tata", toto
SaveSetting "test-vbfrance.com", toto, "tete", yoyo
End If
Next i
Fin:
If Text1.Text <> "" And Text2.Text <> "" Then
Combo1.AddItem toto
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim toto As String
For a = 0 To 12
If a = 12 Then GoTo Fin
If GetSetting("test-vbfrance.com", a, "adresse_mail", toto) <> "" Then
Combo1.AddItem GetSetting("test-vbfrance.com", a, "tata", toto)
AsselusBorealiss
Messages postés79Date d'inscriptiondimanche 15 octobre 2000StatutMembreDernière intervention24 septembre 2007 23 avril 2005 à 20:50
Personne a une Zidee
je cherche depuis longtps et j'ai tjrs pas trouver
aider moi svp
faite le test du code au moins
merci assel
pour le test : 2 textbox 1 bouton 1 combo apres enregistrement faite une recherche dans la base de registre de ---- test-vbfrance.com
Public Sub Command1_Click()
Dim toto As String
toto = Text1.Text
Dim password As String
yoyo = Text2.Text
For i = 0 To 12
If i = 12 Then GoTo Fin
If GetSetting("test-vbfrance.com", toto, "tata", toto) <> "" Then
SaveSetting "test-vbfrance.com", toto, "tata", toto
SaveSetting "test-vbfrance.com", toto, "tete", yoyo
End If
Next i
Fin:
If Text1.Text <> "" And Text2.Text <> "" Then
Combo1.AddItem toto
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim toto As String
For a = 0 To 12
If a = 12 Then GoTo Fin
If GetSetting("test-vbfrance.com", a, "adresse_mail", toto) <> "" Then
Combo1.AddItem GetSetting("test-vbfrance.com", a, "tata", toto)