1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| Public Class FenregCNIB
Dim dbe As dao.DBEngine, db As dao.Database, rst As dao.Recordse
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbe = New dao.DBEngine
db = dbe.Workspaces(0).OpenDatabase("D:\DOTnet\ProjetsVB.net\bd_pr_essai\BDcnib.mdb", False, True, )
rst = db.OpenRecordset("SELECT * FROM CNIB WHERE sexe='F';")
rst.MoveFirst()
MsgBox(rst.Fields("nom").Value)
rst.Close()
' db.Close()
rst = Nothing
'db = Nothing
'dbe = Nothing
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Benregistrer.Click
Dim NOM, PRENOM, PROF, PROVINCE, RESI, SEXE, LIEU, BESION, strSQL,NUMERO As String
Dim TAILLE As Integer
Dim NE, DELI, EXPI As Date
NOM = Tnom.Text
PRENOM = Tprenom.Text
PROF = Tprofession.Text
PROVINCE = Tprovence.Text
RESI = Tresidence.Text
SEXE = Comsexe.Text
LIEU = Tlieu.Text
BESION = Tbesion.Text
NUMERO = Tnumero.Text
TAILLE = Ttaille.Text
NE = Tne.Text
DELI = Tdeliver.Text
EXPI = Texpire.Text
strSQL = "insert into CNIB values('" & NUMERO & "','" & NOM & "','" & PRENOM & "','" & NE & " ', '" & LIEU & "','" & SEXE & "','" & TAILLE & "','" & PROF & "','" & DELI & "','" & EXPI & "','" & PROVINCE & "','" & RESI & "','" & BESION & "')"
db.Execute(strSQL)
End Sub
Private Sub Bquitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bquitter.Click
If MsgBox("VOULLEZ VOUS QUITTER VRAIMENT ?", vbYesNo, "CONFIRMATION") = vbYes Then
End
End If
End Sub
End Class |
Partager