Erreur avec NewRow [Résolu]

Signaler
Messages postés
4
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
3 mars 2010
-
shinobi007
Messages postés
4
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
3 mars 2010
-
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

1 réponse

Messages postés
4
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
3 mars 2010

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