Profil de drpsico - CodeS SourceS

COMPTEUR

/source/26550-compteur

kan tu di que t'aime ma source c vré ou tu te fous de ma gueule

bonjour g un petit probleme avec ma base de donné access alors dans ma base il y 3colonnes id,nom,adresse sur ma feuille g un combobox un textbox et boutton la combobox c'est pour afiché tout les nom de client le textbox c'est pour afficher l'adresse et le boutton c'est pour si ladresse n'est pas bonne j'enregistre la nouvelle Priv... Lire la suite

oué c se que g fais merci psicofox6@hotmail.com==

la 2eme soluce marche pas et la 1er elle marche mes que pour modifier si je ve crée sa ne marche pas il me remarque le mm message d'erreur psicofox6@hotmail.com==

sa ne marche pas si l'utilisateur n'existe pas sa ne le crée pas et sa bug il me dit bof ou eof est = a true mes si il egiste sa marche tres bien [mailto:==psicofox6@hotmail.com ==psicofox6@hotmail.com]==

oué dsl mes si je mes pa le addnew quand je ve crée un autre utilisateur comment je pe faire petetre en fesen une recherche je cherche si le nom client existe deja ou pas ta une idée de comment je pe faire pour faire une recherche ds la base de donné psicofox6@hotmail.com==

ado

bonjour g un petit probleme avec ma base de donné access alors dans ma base il y 3colonnes id,nom,adresse sur ma feuille g un listbox et un textbox la listbox c'est pour afiché tout les nom g fais: Private cnx As ADODB.Connection Private Sub Form_Load() Set cnx = New ADODB.Connection cnx.Provider = "Microsoft.Jet.OLEDB.4.0" cn... Lire la suite

merci psicofox6@hotmail.com==

désolé mes je suis debutant donc si tu pe me donné un pe + desplication moi g essayé de faire sa Private Sub List1_Click() Dim strSql As String Dim Ors As ADODB.RecordsetstrSql "select * from client where id " & CLng(List1.ItemData(List1.ListIndex)) Debug.Print strSql Set Ors = New ADODB.Recordset Ors.Open strSql, cnx, , , adCmd...

ado

bonjour je voudrais me connecter a une base de donner verouyé par un mot de passe a voici mon code: Private cnx As ADODB.Connection Dim strSql As String Dim Ors As ADODB.Recordset Private Sub Form_Load() Set cnx = New ADODB.Connection cnx.Provider = "Microsoft.Jet.OLEDB.4.0" cnx.Open "c:\db1.mdb" strSql = "select * from conta... Lire la suite

merci wape sa marche psicofox6@hotmail.com==

ado

bonjour a tous g un gros probleme avec movenext et movefirst g fai sa Private Sub suivant_Click() Dim strSql As String Dim Ors As ADODB.Recordset strSql = "select * from contact where num >0" Set Ors = New ADODB.Recordset Ors.Open strSql, cnx, , , adCmdText If Ors.EOF = False Then Ors.MoveNext Text1.Text = Ors.Fields("preno... Lire la suite

merci frop01 sa marche psicofox6@hotmail.com==

il me mes l'erreur sur Ors.MovePrevious psicofox6@hotmail.com==

mon code complé Private cnx As ADODB.Connection Dim strSql As String Dim Ors As ADODB.Recordset Private Sub Form_Load() Set cnx = New ADODB.Connection cnx.Provider = "Microsoft.Jet.OLEDB.4.0" cnx.Open "c:\db1.mdb" strSql = "select * from contact where num >0" Set Ors = New ADODB.Recordset Ors.Open strSql, cnx, , , adCmdT...

enfin encore un probleme cette foi c avec le retour Dim strSql As String Dim Ors As ADODB.Recordset Form_Load ===> strSql = "select * from contact where num >0" Set Ors = New ADODB.Recordset Ors.Open strSql, cnx, , , adCmdText Private Sub suivant_Click() If Ors.EOF = False Then Ors.MoveNext If Ors.EOF = False Then ...

ok merci c parfai psicofox6@hotmail.com==

ado

bonjour est ce que quel q'un c'est si il i a d'autre stat de ado.state il i a 0 c quand pas connecter 1 quand c connecter et y a n'a t'il d'autre merci psicofox6@hotmail.com==

ok merci psicofox6@hotmail.com==

ado

bonjour je suis debutant je prog sous vb6 et je voudrais saoir si vous avais un tutorial bien espliqué sur toute les commande de ado pck je suis aller sur msdn jen et trouver un et c t incomprensible et emplusse l'angalis et moi sa fai 2 donc si vous avai uin tutorial merci psicofox6@hotmail.com==

merci pour ton tuto une question comment on fai pour se connecter a une base de donner proteger par un mot de passe merci si vous avai dotre tuto je suis preneur psicofox6@hotmail.com==

touche

/auteurdetail.aspx?ID=274287 bonjour je voudrais savoir commen je pe faire prendre en conte une combinéson de touche example: je fai ctrl + alt + a ben sa quitte mon prog merci psicofox6@hotmail.com==

un dernier truc commen on fai pour effacer une lettre en arriere VbBack, Effacement arrière mes sa marche pas se me mes une barre psicofox6@hotmail.com==

super canislupus sa marche merci psicofox6@hotmail.com==

le texbox c pour definir un mot qui quitera le logi mes je fai commen pour savoir si il été taper se mo pck moi g fai If InStr(Text1.Text, "fin") = 1 Then End enfete jenregistre tout dans un textbox et je verifi si le mot fin y é mes sa marche pas si il i a dotre truc d'ecrit si je tape ke fin sa marche mes si je tape gftggghgdgfin be...

non c'est pas sa lol je c pas commen espliqué je ve qu'il enregistre un mot fin par exemple grace au textbox pui apres il valide le programme il se cache par exemple et il scrute tout se qui et taper au clavier et si le mot fin et trouver alors le prog fai un truc se quitte ou aparé merci psicofox6@hotmail.com==

a sa a pas marcher je voudrais savoir comment je pe faire pour que sa quitte par exemple en fonction du mot qui et ecrit dans un textbox alors g un textbox ou l'utilisateur tape un mot "fin" par exemple et apres il valide pu quand il tapê se mot le logiciel se ferme. je c pas si c claire?? merci de m'aidé encore une foi psicofox6@hot...