erreur avec NewRowRésolu

Question

Salut,

J'ai un probleme avec :
Code :
ObjetDataRow = ObjetDataSet.Tables("table").NewRow
dans mon code: 
Code :
dtr=dts.tables("agence").NewRow

le compilateur m'affiche ce message d'erreur :
Citation:
La référence d'objet n'est pas définie à une instance d'un objet.
Merci de m'aider

shinobi007 · Accepted Answer

Dim cnx As OleDbConnection
            Dim cmd As OleDbCommand
            Dim dta As OleDbDataAdapter
            Dim dts As New DataSet()
            Dim sql1 As String
            Dim dtt As DataTable
            Dim dtr As DataRow

            Dim rownum As Integer
            Dim cnxstr, chemin As String
            Dim cmdb As OleDbCommandBuilder

            chemin = Application.StartupPath & "/database.mdb"
            cnxstr = "provider=microsoft.jet.oledb.4.0;data source=" + chemin

            cnx = New OleDbConnection
            cnx.ConnectionString = cnxstr
            cnx.Open()
            dtr = dts.Tables("GestionContrats").NewRow     ( c'est ici l'erreur)

            dtr("cin_client") = page_creation_cin_ecrit.Text
            dtr("type_connection") = combo_debit.Text
            dtr("login_commercial") = page_creation_user_ecrit.Text
            dtr("serial_routeur") = combo_routeur.Text
            dts.Tables("GestionContrats").Rows.Add(dtr)
            cmdb = New OleDbCommandBuilder(dta)
            dta.Update(dts, "GestionContrats")
            dts.Clear()
            dta.Fill(dts, "GestionContrats")
            dtt = dts.Tables("GestionContrats")
            cnx.Close()
            MsgBox("ok", MsgBoxStyle.Information)
        End If
    End Sub

Erreur avec NewRow

1 réponse

Votre réponse

Discussions similaires