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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
| Public Class Form4
Dim buzz As Integer ' compteur livraison
Private WithEvents pd As Printing.PrintDocument
' storage for form image
Dim formImage As Bitmap
' create API prototype
Private Declare Function BitBlt Lib "gdi32.dll" Alias _
"BitBlt" (ByVal hdcDest As IntPtr, _
ByVal nXDest As Integer, ByVal nYDest As _
Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal _
hdcSrc As IntPtr, ByVal nXSrc As Integer, _
ByVal nYSrc As Integer, _
ByVal dwRop As System.Int32) As Long
' Declaration de l'objet PrintDocument.
Private WithEvents docToPrint As New Printing.PrintDocument
Dim ss, at, taxe1, taxe2, aa, bb, st As Double 'sous total avant taxe
Dim chat As Integer 'compteur pour vérification dans fournisseur
Sub fillcombo()
MsgBox("10")
str = "select * from table2 "
Dim acmd As New OleDb.OleDbCommand
acmd.CommandText = str
MsgBox("9")
acmd.Connection = acconn
acsdr = acmd.ExecuteReader
MsgBox("8")
While (acsdr.Read())
MsgBox("7")
cb_choix1.Items.Add(acsdr("fournisseur"))
End While
acmd.Dispose()
acsdr.Close()
End Sub
Sub fillcombox()
strr = "select * from table4 "
Dim acmdd As New OleDb.OleDbCommand
acmdd.CommandText = strr
acmdd.Connection = acconnn
acsdrr = acmdd.ExecuteReader
While (acsdrr.Read())
cb_fourni.Items.Add(acsdrr("livre"))
End While
acmdd.Dispose()
acsdrr.Close()
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tx_q7.ReadOnly = True
Module1.connect()
Module1.connect()
Me.fillcombo()
Me.fillcombox()
MsgBox("noob121%>ADMIN")
End Sub
Private Sub bt_addfourni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addfourni.Click
str = " select * from table2 where fournisseur = '" & cb_choix1.Text & "'"
Dim acscmd As New OleDb.OleDbCommand
MsgBox("1")
acscmd.CommandText = str
acscmd.Connection = acconn
MsgBox("2")
acsdr = acscmd.ExecuteReader
MsgBox("3")
If (acsdr.Read = True) Then
MsgBox("4")
If rb_choix.Checked Then
------------------------------------------------
Dim strConnect As String
Public acconn As New OleDb.OleDbConnection
Public acsdr As OleDbDataReader
Public str As String
'Public cnn As New OleDb.OleDbConnection
'Public cdr As OleDbDataReader
'Public rawr As String
Dim strConnectt As String
Public acconnn As New OleDb.OleDbConnection
Public acsdrr As OleDbDataReader
Public strr As String
Sub connect()
acconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
acconn.Open()
acconnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
acconnn.Open()
' cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
' cnn.Open()
'cnn.Close()
End Sub |
