Discussion :

[Booyakha]

Bonjour,

J'ai un problème avec un petit bout de code, là je suis égaré !

Code :

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

1
2
3
4
5
6
7
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>
 
<script language="VB" runat="server">
    Dim DBobjConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.MapPath("articles.mdb"))
    DBobjConn.Open()
</SCRIPT>

Quand j'exécute ce code, j'ai cette erreur :

D:\site\WebSite2\index.aspx(6,0): erreur BC30188: Déclaration attendue.

DBobjConn est pourtant bien déclaré juste au dessus non ?

Merci de votre aide !
PS : Un peu d'indulgence, je suis un tout petit débutant en VB.NET...

[Booyakha]

J'ai également trouvé ce code qui me parait un peu plus pro pour me connecter à une base de données ACCESS :

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
Imports System.Data.OleDb
 
'////////////////////////MODULE FONCTION ACCESS////////////////
Module bdaccess
 
    Dim MyConnection As New System.Data.OleDb.OleDbConnection()
 
    'procédure de connection a une bd access
    Public Sub connection(ByVal nombd As String)
        Try
            MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & nombd
            MyConnection.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub
 
    'deconenction de la base
    Public Sub deconnection()
        Try
            MyConnection.Close()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
 
    End Sub
 
    Public Function access(ByVal requetesql As String) As DataSet
        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
        Dim MyDataSet As DataSet = New DataSet("MesDonnées")
        Dim StrConnect As String
        Dim MyCommand As OleDbCommand
        Dim requete As String
 
        Try
            MyCommand = New OleDbCommand(requetesql, MyConnection)
            MyAdapter.SelectCommand = MyCommand
            MyDataSet.Clear()
            MyAdapter.Fill(MyDataSet, "fichier")
            'A ce niveau les donnes résultantes de la requete
            'se trouvent dans => MyDataSet.Tables(0)
            Return MyDataSet
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
 
    End Function
End Module

Ce code me renvoit les erreurs entre autres :

D:\site\WebSite2\index.aspx.vb(1,0): erreur ASPNET: Assurez-vous que la classe définie dans ce fichier de code correspond à l'attribut 'inherits' et qu'elle étend la classe de base appropriée (exemple*: Page ou UserControl).
D:\site\WebSite2\index.aspx.vb(23,0): erreur BC30451: Le nom 'MessageBox' n'est pas déclaré.
D:\site\WebSite2\index.aspx.vb(28,0): erreur BC30002: Type 'DataSet' non défini.

Je pense qu'après m'avoir décoincé de ces problèmes, je pourrais un peu mieux m'en sortir ! Mais là j'avoue de pas bien comprendre le problème ...

Merci de votre aide !

[Hinault Romaric]

D:\site\WebSite2\index.aspx.vb(1,0): erreur ASPNET: Assurez-vous que la classe définie dans ce fichier de code correspond à l'attribut 'inherits' et qu'elle étend la classe de base appropriée (exemple*: Page ou UserControl)

En début de ton fichier index.aspx la premier ligne de code qui doit etre sous cette forme

Code :

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

<%@ Page Language="VB.net" AutoEventWireup="true" Src="" Inherits="nomdelaclasse"  %>

verifie que "nomdelaclasse" est bien égal au nom de la classe dans le fichier index.aspx.vb sa veut dire que dans index.aspx.vb tu doit avoir un truc du genre

Code :

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

1
2
3
4
5
6
7
 
  public partial class nomdelaclase : System.Web.UI.Page
    {
    ---
    ---
    ---
    }

D:\site\WebSite2\index.aspx.vb(23,0): erreur BC30451: Le nom 'MessageBox' n'est pas déclaré.

J'ai l'impression que c'est un code WindForm que tu veut utiliser en asp.net puisque a ce que je sache messagebox c'est windform, remplace les par

Code :

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

1
2
 
Response.Write("Impossible d'établir la connection à la base." & ex.Message)

D:\site\WebSite2\index.aspx.vb(28,0): erreur BC30002: Type 'DataSet' non défini.

IL doit manque un import dans ton code, ajoute l'espace de nom

Code :

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

1
2
 
System.Data

@++

[Booyakha]

Mille mercis pour ta réponse claire et détaillée !
Par contre j'ai un problème pour appelé les procédures connection() et deconnection();

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
Imports System.Data
Imports System.Data.OleDb
 
Partial Class index
    Inherits System.Web.UI.Page
 
    Dim MyConnection As New System.Data.OleDb.OleDbConnection()
 
    'procédure de connection a une bd access
    Public Sub connection(ByVal nombd As String)
        Try
            MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & nombd
            MyConnection.Open()
        Catch ex As Exception
            Response.Write("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub
 
    'deconenction de la base
    Public Sub deconnection()
        Try
            MyConnection.Close()
        Catch ex As Exception
            Response.Write("Impossible d'établir la connection à la base." & ex.Message)
        End Try
 
    End Sub
 
    Public Function access(ByVal requetesql As String) As DataSet
        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
        Dim MyDataSet As DataSet = New DataSet("MesDonnées")
        Dim StrConnect As String
        Dim MyCommand As OleDbCommand
        Dim requete As String
 
        Try
            MyCommand = New OleDbCommand(requetesql, MyConnection)
            MyAdapter.SelectCommand = MyCommand
            MyDataSet.Clear()
            MyAdapter.Fill(MyDataSet, "fichier")
            'A ce niveau les donnes résultantes de la requete
            'se trouvent dans => MyDataSet.Tables(0)
            Return MyDataSet
        Catch ex As Exception
            Response.Write("Impossible d'établir la connection à la base." & ex.Message)
        End Try
 
    End Function
    connection("c:\bd.mdb")
 
    deconnection()
End Class

J'ai des erreurs de type :

D:\site\WebSite2\index.aspx.vb(52,0): erreur BC30188: Déclaration attendue.

Merci :-) ...

[Hinault Romaric]

Je crois en effet que tu ne passe pas en paramètre le nom de la BD lorsque tu appelle la fonction connection().

@++