Correction d'un code asp.net

Fermé
waoumita Messages postés 73 Date d'inscription samedi 21 mars 2009 Statut Membre Dernière intervention 31 mai 2011 - 12 oct. 2010 à 12:04
Bonjour,

je suis entrain de créer un petit formulaire en asp.net "just pour m'entrainer au stage" pour ajouter des elements à une base de données client contenant 4 champs mais ca me donne un message d'erreur concernant une exception au niveau de base de données voila le code je ne sais pas ou est ce que j'ai commis l"erreur


Imports System
Imports System.data
Imports System.Data.OleDb


Partial Class _Default
Inherits System.Web.UI.Page
Private cnx As OleDbConnection
Private cmd As OleDbCommand
Private dta As OleDbDataAdapter
Private dts As New DataSet
Private sql As String
Private dtt As DataTable
Private dtr As DataRow
Private rownum As Integer
Private cnxstr As String
Private cmdb As OleDbCommandBuilder

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try

cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = C:\wiam\client.mdb;"
cnx = New OleDbConnection
cnx.ConnectionString = cnxstr
cnx.Open()
sql = "select * from client"
cmd = New OleDbCommand(sql)
dta = New OleDbDataAdapter(cmd)
cmd.Connection() = cnx
dta.Fill(dts, "client")
dtt = dts.Tables("client")
Catch ex As Exception
MsgBox("error" & ex.Message)
End Try

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
dtr = dtt.NewRow()
dtr("N° client") = TextBox1.Text
dtr("nom") = TextBox2.Text
dtr("prenom") = TextBox3.Text
dtr("adresse") = TextBox4.Text
dts.Tables("client").Rows.Add(dtr)
cmdb = New OleDbCommandBuilder(dta)
dta.Update(dts, "client")
dts.Clear()
dta.Fill(dts, "client")
dtt = dts.Tables("client")
dts.AcceptChanges()
MsgBox("client ajoutée")
Catch ex1 As Exception
MsgBox("erreur au niveau de la base de données", MsgBoxStyle.Critical)
End Try


End Sub
End Class