| Auteur |
Message |
prune007
Forumeur occasionnel
Sexe: 
Messages: 32
|
 Posté le:
Jeu 29 Nov 2007 - 22:10 |
  |
Bonsoir,voila j'ai un problème en VB6 que j'utilise pour faire une AP(je suis une néophyte du logiciel,je découvre^^) ,
Je viens de trouver comment programmer un bouton QUITTER(quitter le formulaire).Je suis contente!!^^  >>
Private Sub BtnQuitter_Click()
'Arrêt du programme
If MsgBox("Voulez-vous abandonner votre saisie? ", vbOKCancel, "FIN DE SAISIE") = vbOK Then
Unload Me
End If
End Sub
 Mais voila ,je n'arrive pas a trouver comment programmer un bouton VALIDER...
voici ce que j'ai fait pour tenter d'y arriver:
Private Sub BtnValider_Click()
'Connection a la DSN
myDSN = "DSN= DNF ;uid= ;pwd="
'Connection a la base
Set conn = Server.CreateObject("adodb.connection")
conn.Open myDSN
'Ouverture du recordset
Set rs = Server.CreateObject("ADODB.Recordset")
' Construction de la requete SQL
RequeteSQL = "SELECT * FROM foyer"
'Ouverture du recorset et execution de la requete sql
rs.Open RequeteSQL, conn
'fermeture base
conn.Close
End Sub
Quelqu'un peut il me guider?
Merci beaucoup!!
En fait je suis en train de préparer un "dossier fonctionnel"
Le but de l’application est de référencer dans une base de données unique des documents papier que l’on aura tout d’abord numérisés. On devra pouvoir également « référencer » les documents au format numérique d’origine, exemple facture électronique.
L’objectif de ce projet est triple :
1. Pouvoir retrouver un document même ancien, rapidement.
2. Conserver les documents en sécurité.
3. Pouvoir détruire des documents papier qui n’ont pas d’utilité.
Voila voila et la il ne me reste plus que le bouton valider à faire marcher ^^ et on peut dire que mon AP est finie..
 |
|
|
  |
|
N'oubliez pas de vous inscrire à la communauté pour participer. Si vous êtes déjà membre, connectez-vous pour faire disparaître ce bandeau publicitaire. |
dudsweet57
Forumeur fréquent
Sexe: 
Messages: 59
|
| Posté le:
Lun 03 Déc 2007 - 15:07 |
|
|
|
|
prune007
Forumeur occasionnel
Sexe:
Messages: 32
|
| Posté le:
Lun 03 Déc 2007 - 19:15 |
|
Merci merci mais je suis super contente!   !!!!En fait j'ai juste continué à bosser dessus après avoir envoyé ce message et ...Au bout de quelques heures de réfléxion,j'ai trouvé  Donc voila je vous met ce que j'ai trouver ,au cas ou des gens rencontre ce problème un de ces 4,ça peut servir d'exemple..
Private Sub BtnValider_Click()
'Connection a la DSN
Dim myDSN As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim RequeteSQL As String
myDSN = "DNF"
'Connection a la base
Set conn = New ADODB.Connection
'Définition de la chaîne de connexion
conn.ConnectionString = "DSN=" & myDSN & ";UID=;PWD=;"
'Ouverture de la base de données
conn.Open
'Ouverture du recordset
Set rs = New ADODB.Recordset
' Construction de la requete SQL
A = TBxNomPers.Text
B = TBxPrenomPers.Text
C = Format(TBxDatenaiss.Text, "mm/dd/yyyy")
D = TBxProfActivite.Text
E = TBxSexe.Text
F = LBxPosFoyer.Text
RequeteSQL = "INSERT INTO personne (NomPers,PrenomPers,DateNaissPers,ProfPers,SexePers, PosFoyer) VALUES (" & _
"'" & TBxNomPers.Text & "'" & "," & "'" & TBxPrenomPers.Text & "'" & _
",#" & Format(TBxDatenaiss.Text, "mm/dd/yyyy") & "#" & _
"," & "'" & TBxProfActivite.Text & "'" & "," & "'" & TBxSexe.Text & "'" & _
"," & "'" & LBxPosFoyer.Text & "'" & ")"
' RequeteSQL = "INSERT INTO personne (NomPers,PrenomPers,DateNaissPers,ProfPers,SexePers, PosFoyer) VALUES ('MARTIN','PIERRE',#12/02/1997#,'PROF DE MATHS','M','PARENT')"
'Ouverture du recorset et execution de la requete sql
rs.Open RequeteSQL, conn
'fermeture base
conn.Close
End Sub |
|
|
|
|
dudsweet57
Forumeur fréquent
Sexe:
Messages: 59
|
| Posté le:
Mer 05 Déc 2007 - 16:09 |
|
y'a plus que mettre en forme et ca m'a l'air tout bon!  |
|
|
|
|
|
|
