Pb connexion Bd sans ODBC

Signaler
Messages postés
11
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
9 avril 2004
-
Messages postés
11
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
9 avril 2004
-
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.

Voivi le code

<%@ Page Language= "VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

'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)

End Sub

</script>
<html>
<head>
</head>

<FooterStyle backcolor="Tan"></FooterStyle>
<HeaderStyle font-bold="True" backcolor="Tan"></HeaderStyle>
<SelectedItemStyle forecolor="GhostWhite" backcolor="DarkSlateBlue"></SelectedItemStyle>

<%# DataBinder.Eval(Container.DataItem, "Nom")%>

Genre : <%# DataBinder.Eval(Container.DataItem, "Genre") %>

<form runat ="server">
Merci de donner le nom du Film a supprimer :

</form>

</html>

1 réponse

Messages postés
11
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
9 avril 2004

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

'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)

End Sub

</script>

<html>
<form runat="server">


</form>
</html>