bonjour tous le monde,
je débute en VB.Net.
Pour ce connecter à une BD j'utilise le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Le problème que la requete attach n'ai pas vide mais recourdcount me renvoit -1 en contre partie .eof est à false ?

Autre chose je n'arrive pas à savoir quel est l'équivalent de .findfirst de VB6 en VB.Net

Merci pour votre aide.