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
| If valid = True Then
Dim cn As OleDbConnection
Dim icount As Integer
Dim cmd As OleDbCommand
Dim sql As String
'Dim dr As OleDbDataReader ...........sert juste à lire
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Administrator\Desktop\rubik.mdb")
cn.Open()
'Dim Con as = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Administrator\Desktop\rubik.accdb")
sql = "INSERT INTO client VALUES ('" & Pnoma & "', '" & noma & "', '" & civic & "', '" & rue & "', '" & appt & "', '" & prov & "', '" & pays & "')"
'SQL = New OleDbConnection(SQL)
cmd = New OleDbCommand(sql, cn)
icount = cmd.ExecuteNonQuery
'MessageBox.Show(icount)
'displays number of records inserted
MsgBox("Connection Open ! ")
cn.Close()
Catch
End Try
End If |
