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 |
