Discussion :

[aracnard]

Bonjour,
Je decouvre VBnet et je cherche à transposer un petit programme que j'ai fais sous VBA6 sous excel.
Pouvez vous me dire si c'est possible et comment s'il vous plait merci.

VBnet semble plus adapté pour ce que je souhaite faire.

Voici la base du code que j'utilise :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
     Fichier = "C:\Base de données.xls"
     NomFeuille = "Data"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
 
    texte_SQL = "SELECT *  FROM [" & NomFeuille & "$]"
 
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute(texte_SQL)
 
i = 0
UserForm2.MSFlexGrid1.Clear
UserForm2.MSFlexGrid1.Rows = 1
 
txtcol = "ID|"
For nbcol = 0 To Rst.Fields.Count - 1
    txtcol = txtcol & Rst.Fields(nbcol).Name & "|"
Next nbcol
txtcol = Left(txtcol, Len(txtcol) - 1)
 
UserForm2.MSFlexGrid1.FormatString = txtcol
 
i = 0
While Not Rst.EOF
    i = i + 1
    MSFlexGrid1.Rows = i + 1
    MSFlexGrid1.ColWidth(0) = 400
    MSFlexGrid1.TextMatrix(i, 0) = i
 
    For Col = 1 To UserForm2.MSFlexGrid1.Cols - 1
        MSFlexGrid1.ColWidth(Col) = 2000
        MSFlexGrid1.TextMatrix(i, Col) = Rst.Fields(Rst.Fields(Col - 1).Name)
    Next Col
    Rst.MoveNext
Wend
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing

VBnet semble ne pas aimer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADODB.Connection

[Invité]

Tu as les fonctions d'interoperabilité d'excel.

[Pol63]

adodb n'existe pas en .net

il faut le remplacer par system.data.oledb.oledbconnection
oledbcommand pour la requete et oledbdatareader pour le curseur de lecture

sinon le code doit ressembler à ca (le msflexgrid n'existe plus non plus, voir datagridview)

[aracnard]

Oulah oulah oulah.

Je suis débutant sur VBnet, j'ai decouvert VBnet il y a peu...

Bon déja changer mes variables. Cela donne si je me trompe pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
        Dim Cn As OleDb.OleDbConnection
        Dim Fichier As String
        Dim NomFeuille As String, texte_SQL As String
        Dim Rst As OleDb.OleDbDataReader
        Fichier = "C:\Base de données.xls"
        NomFeuille = "Data"
        Cn = New OleDb.OleDbConnection

Mais ensuite que devient ma connection, il a pas l'ai d'aimer l'initialisation de la connection surtout avec le provider. Sans parler de l'oleDbcommad.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        With Cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open()
        End With
        '-----------------
 
        texte_SQL = "SELECT *  FROM [" & NomFeuille & "$]"
 
 
        Rst = Cn.OleDbCommand(texte_SQL)

[Pol63]

.provider tu supprimes la ligne

les recordset n'existent pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim cmd = cn.createcommand
cmd.commandtext = "select ..."
dim reader = cmd.executereader
 
while reader.Read 'positionne le curseur sur la ligne suivante
     ' reader.item(num ou nom de la colonne) contient la valeur
end while

après si tu veux apprendre le vb.net, il faut le faire avant de coder ou d'adapter du code

[Nathanael Marchand]

Comment mentionné par Pol63, contrairement à VB6, VB.Net est langage objet. Ca ressemble à du VB6, on peut essayer de le bidouiller comme du VB6 mais c'est vite courrir à la catastrophe. Il est préfèrable d'apprendre et de comprendre les subtilités de la programmation orientée objet avant de tenter une experience périlleuse

[aracnard]

Un grand merci J'ai beaucoup avancé grace à vous.
Voici mon petit du code, juste une dernière question est il possible de maintenant utiliser des requetes update ou insert avec createcommand,merci.

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
36
37
38
        Dim Cn As OleDb.OleDbConnection
        Dim Fichier As String
        Dim NomFeuille As String
        Dim i As Integer
        Fichier = "C:\Base.xls"
        NomFeuille = "Feuil1"
        Cn = New OleDb.OleDbConnection
 
        With Cn
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
            .Open()
        End With
 
 
        i = 0
        Dim cmd = cn.createcommand
        cmd.commandtext = "SELECT *  FROM [" & NomFeuille & "$]"
        Dim reader = cmd.executereader
        Me.DataGridView1.ColumnCount = reader.FieldCount
        Me.DataGridView1.RowCount = 1
 
 
        While reader.Read
            i = i + 1
        End While
        Me.DataGridView1.RowCount = i + 1
        reader.Close()
        i = 0
 
 
        reader = cmd.ExecuteReader
        While reader.Read 'positionne le curseur sur la ligne suivante
            For nbcol = 0 To reader.FieldCount - 1
                Me.DataGridView1.Item(nbcol, i).Value = reader.Item(nbcol).ToString
            Next
            i = i + 1
        End While