Enregistrement base de donnée accesRésolu

Question

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

cs_snakeon · Accepted Answer

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

cs_snakeon · Answer

alors les amis?

NHenry · Answer

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

Enregistrement base de donnée acces

3 réponses

Votre réponse

Discussions similaires