Erreur avec NewRow

Résolu
shinobi007 Messages postés 4 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 3 mars 2010 - 3 mars 2010 à 10:28
shinobi007 Messages postés 4 Date d'inscription mercredi 17 décembre 2008 Statut Membre Dernière intervention 3 mars 2010 - 3 mars 2010 à 10:46
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

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