Erreur avec NewRow [Résolu]

Messages postés
5
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
3 mars 2010
- - Dernière réponse : shinobi007
Messages postés
5
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
5
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
3 mars 2010
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 210 internautes nous ont dit merci ce mois-ci

Commenter la réponse de shinobi007