strSql = "INSERT INTO Inscription2010 " & _ " (N°Inscription, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, MentionBac, Type BAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, Classement, FilièreDEUG, " & _ " FacultéDEUG, VilleDEUG, Filière) " strSql = strSql & _ " Values ('16', " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "#" & CDate(DateNaissance) & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "" & Val(CIN) & ", " & _ "" & Val(CNE) & ", " & _ "" & Val(Telephone) & ", " & _ "" & Val(GSM) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "" & Val(TelephoneParents) & ", " & _ "" & Val(comboDateBAC) & ", " & _ "'" & Trim(LieuBAC) & "', " strSql = strSql & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & Val(classCNC) & ", " & _ "'" & Trim(filiereDEUG) & "',, " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');"
" ([N°Inscription], Nom, Prenom, Sexe, DateNaissance, " & _Celui-là m'a sauté aux yeux, mais vérifie les autres
"'" & Trim(filiereDEUG) & "',," & _
"" & Val(Telephone) & "," & _Préfère les conversions explicites :
"" & CStr(Val(Telephone)) & "," & _
Set rs = New ADODB.Recordset rs.Open "SELECT * FROM InscriptionEtudiant2010", cn StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values ('16', " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "#" & CDate(DateNaissance) & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "" & Val(CIN) & ", " & _ "" & Val(CNE) & ", " & _ "" & CStr(Val(Telephone)) & "," & _ "" & CStr(Val(GSM)) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "" & CStr(Val(TelephoneParents)) & ", " & _ "" & Val(comboDateBAC) & ", " & _ "'" & Trim(LieuBAC) & "', " StrSQL = StrSQL & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & Val(classCNC) & ", " & _ "'" & Trim(filiereDEUG) & "', " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');" cn.Execute (StrSQL)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSet rs = New ADODB.Recordset rs.Open "SELECT * FROM InscriptionEtudiant2010", cn DateNaissance = Format(DateNaissance, "DD-MM-YYYY") StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values ('16', " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "#" & CDate(DateNaissance) & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "" & Val(CIN) & ", " & _ "" & Val(CNE) & ", " & _ "" & CStr(Val(Telephone)) & "," & _ "" & CStr(Val(GSM)) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "" & CStr(Val(TelephoneParents)) & ", " & _ "" & Val(comboDateBAC) & ", " & _ "'" & Trim(LieuBAC) & "', " StrSQL = StrSQL & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & Val(classCNC) & ", " & _ "'" & Trim(filiereDEUG) & "', " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');" cn.Execute (StrSQL)
DateNaissance = Format(DateNaissance, "DD-MM-YYYY")
Set rs = New ADODB.Recordset rs.Open "SELECT * FROM InscriptionEtudiant2010", cn 'DateNaissance = Format(DateNaissance, "DD-MM-YYYY") StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values ('16', " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "#" & Format(DateNaissance, "dd/MM/yyyy") & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "" & CStr(Val(CIN)) & ", " & _ "" & CStr(Val(CNE)) & ", " & _ "" & CStr(Val(Telephone)) & "," & _ "" & CStr(Val(GSM)) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "" & CStr(Val(TelephoneParents)) & ", " & _ "" & CStr(Val(comboDateBAC)) & ", " & _ "'" & Trim(LieuBAC) & "', " StrSQL = StrSQL & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & CStr(Val(classCNC)) & ", " & _ "'" & Trim(filiereDEUG) & "', " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');" cn.Execute (StrSQL)
Set rs = New ADODB.Recordset rs.Open "SELECT * FROM InscriptionEtudiant2010", cn StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values (16, " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "#" & Format(DateNaissance, "dd/MM/yyyy") & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "" & CStr(Val(CIN)) & ", " & _ "" & CStr(Val(CNE)) & ", " & _ "" & CStr(Val(Telephone)) & "," & _ "" & CStr(Val(GSM)) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "" & CStr(Val(TelephoneParents)) & ", " & _ "" & CStr(Val(comboDateBAC)) & ", " & _ "'" & Trim(LieuBAC) & "', " StrSQL = StrSQL & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & CStr(Val(classCNC)) & ", " & _ "'" & Trim(filiereDEUG) & "', " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');" cn.Execute (StrSQL)
"'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');"= deux fois le même valeur ?
? maVariablepour qu'elle s'inscrive dans la fenêtre.
StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values (16, " & _ "'nom', " & _ "'prenom', " & _ "'sexe', " & _ "#" & Format(10 - Jan - 1985, "dd/MM/yyyy") & "#, " & _ "'LieuNaissance', " & _ "'nationalite', " & _ "22222, " & _ "3322, " & _ "022202020," & _ "0202020020, " & _ "'Email', " & _ "'ProfessionPere', " & _ "'ProfessionMere', " & _ "'AdresseParents', " & _ "030300303, " & _ "2000, " & _ "'LieuBac', " StrSQL = StrSQL & _ "'FiliereBac', " & _ "'MentionBac', " & _ "'TypeBac', " & _ "'TypeParcours', " & _ "'centreCPGE', " & _ "'villeCPGE', " & _ "'typeCPGE', " & _ "03939393, " & _ "'filiereDEUG', " & _ "'faculteDEUG', " & _ "'villeDEUG', " & _ "'villeDEUG');" cn.Execute (StrSQL)
"#" & Format(10 - Jan - 1985, "dd/MM/yyyy") & "#
#" & Format(DateNaissance, "dd/MM/yyyy") & "#
MsgBox CDate(DateNaissance)
StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values (27, " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "#" & Format(DateNaissance, "MM/dd/yyyy") & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "" & CStr(Val(CIN)) & ", " & _ "" & CStr(Val(CNE)) & ", " & _ "43434," & _ "" & CStr(Val(GSM)) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "888888, " & _ "" & CStr(Val(comboDateBAC)) & ", " & _ "'" & Trim(LieuBAC) & "', " StrSQL = StrSQL & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & CStr(Val(classCNC)) & ", " & _ "'" & Trim(filiereDEUG) & "', " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & Trim(villeDEUG) & "');" cn.Execute (StrSQL)
" & CStr(Val(Telephone)) & " " & CStr(Val(GSM)) & " " & CStr(Val(TelephoneParents)) & "
Dim n As Integer Public RSInsEnr As Recordset Dim NbreEnreg As Integer
Set RSInsEnr = New ADODB.Recordset RSInsEnr.Open ("SELECT * FROM InscriptionEtudiant2010") NbreEnreg = RSInsEnr.RecordCount n = NbreEnreg + 1
Call connect Set RSInsEnr = New ADODB.Recordset RSInsEnr.Open ("SELECT * FROM InscriptionEtudiant2010") NbreEnreg = RSInsEnr.RecordCount n = NbreEnreg + 1 StrSQL = "INSERT INTO InscriptionEtudiant2010 " & _ " (Numero, Nom, Prenom, Sexe, DateNaissance, " & _ " LieuNaissance, Nationalite, CIN, CNE, Telephone, " & _ " GSM, Emails, ProfessionPere, ProfessionMere, AdresseParents, " & _ " TelephoneParents, DateBac, LieuBac, FiliereBac, MentionBac, TypeBAC, " & _ " TypeParcours, CentreCPGE, VilleCPGE, TypeCPGE, ClassementCNC, FiliereDEUG, " & _ " FaculteDEUG, VilleDEUG, Filiere) " StrSQL = StrSQL & _ " Values ('" & n & "', " & _ "'" & Trim(Nom) & "', " & _ "'" & Trim(Prenom) & "', " & _ "'" & Trim(Sexe) & "', " & _ "#" & Format(DateNaissance, "MM/dd/yyyy") & "#, " & _ "'" & Trim(LieuNaissance) & "', " & _ "'" & Trim(Nationalite) & "', " & _ "" & CStr(Val(CIN)) & ", " & _ "" & CStr(Val(CNE)) & ", " & _ "" & CStr(Val(Telephone)) & "," & _ "" & CStr(Val(GSM)) & ", " & _ "'" & Trim(Email) & "', " & _ "'" & Trim(ProfessionPere) & "', " & _ "'" & Trim(ProfessionMere) & "', " & _ "'" & Trim(AdresseParents) & "', " & _ "" & CStr(Val(TelephoneParents)) & ", " & _ "" & CStr(Val(comboDateBAC)) & ", " & _ "'" & Trim(LieuBAC) & "', " StrSQL = StrSQL & _ "'" & Trim(comboFiliereBAC) & "', " & _ "'" & Trim(comboMentionBAC) & "', " & _ "'" & Trim(comboTypeBAC) & "', " & _ "'" & Trim(comboTypeParcours) & "', " & _ "'" & Trim(centreCPGE) & "', " & _ "'" & Trim(villeCPGE) & "', " & _ "'" & Trim(typeCPGE) & "', " & _ "" & CStr(Val(classCNC)) & ", " & _ "'" & Trim(filiereDEUG) & "', " & _ "'" & Trim(faculteDEUG) & "', " & _ "'" & Trim(villeDEUG) & "', " & _ "'" & strChoix & "');" cn.Execute (StrSQL) Call Deconnexion
Call Deconnexion
RSInsEnr.Open ("SELECT * FROM InscriptionEtudiant2010")