waoumita
Messages postés73Date d'inscriptionsamedi 21 mars 2009StatutMembreDernière intervention31 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