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
| 'dans un module
Module Database_connexion
Public cnx As ADODB.Connection
Public rec As ADODB.Recordset
Public cmd As ADODB.Command
Public path As String = "C:\Users\mohamed\Desktop\outil\WindowsApplication1\WindowsApplication1\db.mdb"
Public report_path As String = "C:\Users\mohamed\Desktop\outil\report"
Public Sub connexion()
cnx = New ADODB.Connection
rec = New ADODB.Recordset
cmd = New ADODB.Command
cnx.Provider = "microsoft.jet.oledb.4.0"
cnx.ConnectionString = path
cnx.Open()
rec.let_ActiveConnection(cnx)
cmd.let_ActiveConnection(cnx)
End Sub
End Module
'puis dans une form
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
connexion()
rec.Open("select * from attach")
MsgBox(rec.RecordCount)
MsgBox(rec.EOF)
End Sub |
