ninipe
Messages postés11Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 9 avril 2004
-
29 oct. 2003 à 15:33
ninipe
Messages postés11Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 9 avril 2004
-
3 nov. 2003 à 16:30
Salut,
je voudrais suprimer sur une base de donnée access.
La base contient ( Nom ; Genre ; ID ).Je cherche à gerer cette base sans utiliser ODBC.
Est ce que quelq'un peu m'aider à améliorer ce prog pour supprimer une ligne de ma table.
Merci.
'Définir la connexion
dim objConn as new OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\Test\abcd.mdb")
sub Page_Load(obj as Object, e as EventArgs)
'Ouvrir la connexion
dim objCmd as new OleDbDataAdapter _
("select * from TabMovie", objConn)
'Slectionner les donnes
dim ds as DataSet = new DataSet()
objCmd.Fill(ds, "TabMovie")
'Afficher les donnes et les lier un contrle serveur
MyDataList.DataSource = ds.Tables("TabMovie"). _
DefaultView
MyDataList.DataBind()
'Supprimer les donnes
end sub
sub Submit_Click(obj as object, e as EventArgs)
Label1.Text =""
if tbName.Value <> ""
Session("Name") = tbName.Value
dim strSQL as string "DELETE * FROM TabMovie " & " WHERE Nom " & Session("Name")
Label1.TEXT += "Vous avez supprimer le film " & Session("Name")
ExecuteStatement(strSQL)
else
Label1.Text += "Vous n'avez pas donn de film ...." & ""
end if
end sub
function ExecuteStatement(strSQL)
dim objCmd as new OleDbCommand(strSQL, objConn)
try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
catch ex as Exception
lblMessage.Text = "Erreur de mise jour"
objCmd.Connection.Close()
end try
objCmd.Connection.Close()
end function
Sub MyDataList_SelectedIndexChanged(sender As Object, e As EventArgs)
'Définir la connexion
dim objConn as new OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\Test\Base.mdb")
sub Page_Load(obj as Object, e as EventArgs)
'Ouvrir la connexion
dim objCmd as new OleDbDataAdapter _
("select * from Nom_Table", objConn)
'Slectionner les donnes
dim ds as DataSet = new DataSet()
objCmd.Fill(ds, "Nom_Table")
'Afficher les donnes et les lier un contrle serveur
MyDataList.DataSource = ds.Tables("Nom_Table"). _
DefaultView
MyDataList.DataBind()
end sub
sub Submit_Click(obj as object, e as EventArgs)
dim strSQL as string = "INSERT INTO TabMovie (Nom, Genre ) VALUES (" & _"'" & Nom_TextBox1.Value & "'" & "," & "'" & Nom_TextBox2.Value& "')"
ExecuteStatement(strSQL)
end sub
function ExecuteStatement(strSQL)
dim objCmd as new OleDbCommand(strSQL, objConn)
try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
catch ex as Exception
lblMessage.Text = "Erreur de mise jour"
end try
objCmd.Connection.Close()
end function
Sub MyDataList_SelectedIndexChanged(sender As Object, e As EventArgs)