Enregistrement base de donnée acces [Résolu]

Signaler
Messages postés
59
Date d'inscription
mardi 29 janvier 2008
Statut
Membre
Dernière intervention
5 mars 2010
-
cs_snakeon
Messages postés
59
Date d'inscription
mardi 29 janvier 2008
Statut
Membre
Dernière intervention
5 mars 2010
-
Bonjour,
Un petit probleme banal je le sais tres bien, mais je me suis bloqué dsl
Je veux enregistrer mes données dans access, alors j ai ouvert ma classe "DataAccess" et j'ai ecris le code suivant:

Public Function AjouterVentes(ByVal ligne As List(Of String)) As Integer
        Dim cd As New OleDbCommand
        Dim nbEnregistrementInsere As Integer
        nbEnregistrementInsere = 0
        Try

            cd.CommandText = "insert into Ventes (ID_Vent,Date_jour,Produit,Prix_Achat,Prix_Vente,Vendeur) values('" & _
                            ligne(0) & "','" & _
                            ligne(1) & "','" & _
                            ligne(2) & "','" & _
                            ligne(3) & "','" & _
                            ligne(4) & "','" & _
                            ligne(5) & "')"

            nbEnregistrementInsere = Con.Mise_A_Jour(cd)

        Catch ex As Exception
            MsgBox(ex.Message & "Erreure")
        End Try
        Return nbEnregistrementInsere
    End Function


et je dois ecrire appeler cette fonction appartir du bouton 'Ajouter" alors qu est ce que je dois ecrire au juste???

quand je mets
AjouterVentes()
il me dis que cnom n est pas declaré, et quand je mets
DataAccess.AjouterVentes()
il me dis: une reference à un nombre non partagé requiert une reference d aubjet.
alors les amis? merci d avance

3 réponses

Messages postés
59
Date d'inscription
mardi 29 janvier 2008
Statut
Membre
Dernière intervention
5 mars 2010

Imports System.Data.OleDb

Public Class Connection

    Dim MaConnection As OleDbConnection = New OleDbConnection
    Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter

    Dim ChaineConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=|DataDirectory|\CyberDB.mdb" & ";" & _
      "Persist Security Info=False"

    Public Function Select_DataTable(ByVal Cmd As OleDbCommand) As DataTable
        Dim dt As New DataTable
        Try
            MaConnection.Close()
            MaConnection.ConnectionString = ChaineConnection
            MaConnection.Open()
            If MaConnection.State = ConnectionState.Open Then
                Cmd.Connection = MaConnection
                Adapter.SelectCommand = Cmd
                ' dt = New DataTable
                Adapter.Fill(dt)
            Else
                MsgBox("Connexion failed...")
            End If
        Catch ex As Exception
            MsgBox(ex.Message & " Select_DataTable")
        End Try
        Return dt
    End Function

    Public Function Mise_A_Jour(ByVal Cmd As OleDbCommand) As Integer

        Dim i As Integer
        MaConnection.Close()
        MaConnection.ConnectionString = ChaineConnection
        MaConnection.Open()
        Cmd.Connection = MaConnection
        i = Cmd.ExecuteNonQuery()
        Return i
    End Function

End Class
Messages postés
59
Date d'inscription
mardi 29 janvier 2008
Statut
Membre
Dernière intervention
5 mars 2010

alors les amis?
Messages postés
14620
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 janvier 2020
138
Bonjour,

"DataAccess" est ta classe, il faut d'abord créer une instance de ta classe.

Et c'est quoi ton objet "Con" ?

Mon site