Insertion de données dans une base
Soyez le premier à donner votre avis sur cette source.
Vue 14 489 fois - Téléchargée 833 fois
Description
Ce code vous permettra d'insérer des données dans une base via un contrôle DATAGRID
Bonne programmation !
Source / Exemple :
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
' On définit la connection
Dim Conn As New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\testnet\test.mdb"))
sub Page_Load(obj as Object, e as EventArgs)
if Not Page.IsPostBack then
FillDataGrid()
end if
end sub
sub Submit(obj as object, e as eventargs)
' Insertion d'un enregistrement
dim i, j as integer
dim tabInsert(2) as string
dim strText as string
dim TraitError as boolean = true
j = 0
for i = 0 to PanelInsert.Controls.Count - 1
if PanelInsert.controls(i).GetType Is GetType(TextBox) then
strText = Ctype(PanelInsert.Controls(i), TextBox).Text
if strText <> "" then
tabInsert(j) = strText
else
TraitError = false
lblMessage.Text = lblMessage.Text & "Entrer une valeur pour " & PanelInsert.Controls(i).ID & "<br>"
end if
j = j + 1
end if
next
if not TraitError then
exit sub
end if
dim strSQL as string = "INSERT INTO CLIENT (CL_NOM, CL_PRENOM ) VALUES (" & _
"'" & tabInsert(0) & "'" & "," & "'" & tabInsert(1) & "')"
'lblMessage.Text = strSQL
ExecuteSQL(strSQL)
FillDataGrid()
end sub
sub FillDataGrid()
'Ouverture de la connexion
dim objCmd as new OleDbCommand _
("select * from CLIENT", Conn)
dim objReader as OleDbDataReader
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader()
catch ex as Exception
lblMessage.Text = "Erreur de liaison avec la base de données."
end try
dgData.DataSource = objReader
dgData.DataBind()
objReader.Close
objCmd.Connection.Close()
end sub
function ExecuteSQL(strSQL)
dim objCmd as new OleDbCommand(strSQL, Conn)
try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
catch ex as Exception
lblMessage.Text = "Erreur de mise à jour." & _
" Vérifiez les saisies."
end try
objCmd.Connection.Close()
end function
</script>
<html>
<body>
<asp:Label id="lblMessage" runat="server"/>
<form runat="server">
<asp:DataGrid id="dgData" runat="server"
BorderColor="black"
GridLines="Vertical"
cellpadding="4"
cellspacing="0"
width="450"
Font-Names="Arial"
Font-Size="8pt"
ShowFooter="True"
HeaderStyle-BackColor="#CCCCCC"
FooterStyle-BackColor="#CCCCCC"
ItemStyle-BackColor="#ffffff"
AlternatingItemStyle-Backcolor="#cccccc"
AutoGenerateColumns="False">
<Columns>
<asp:TemplateColumn HeaderText="ID">
<ItemTemplate>
<asp:Label id="lblId" runat="server" Text='<%# Container.DataItem("CL_ID") %>'/>
</ItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumn HeaderText="NOM" DataField="CL_NOM" />
<asp:BoundColumn HeaderText="PRENOM" DataField="CL_PRENOM" />
</Columns>
</asp:DataGrid>
<asp:Panel id="PanelInsert" runat="server">
<table>
<tr>
<td width="100" valign="top">Nom :</td>
<td width="300" valign="top">
<asp:TextBox id="CL_NOM" runat="server"/>
</td>
</tr>
<tr>
<td width="100" valign="top">Prénom :</td>
<td width="300" valign="top">
<asp:TextBox id="CL_PRENOM" runat="server"/>
</td>
</tr>
<tr>
<td colspan="2" valign="top" align="right">
<asp:Button id="btSubmit" runat="server" text="Envoyer" OnClick="Submit" />
</td>
</tr>
</table>
</asp:Panel>
</form>
</body>
</html>
Conclusion :
Bonne programmation !
Codes Sources
A voir également
- Insertion de données dans une base
- Problème d'insertion de données dans une base Access ✓ - Forum - C# / .NET
- Probleme d'insertion de données dans une base de données à partir d'un formulair ✓ - Forum - PHP
- Probleme d'insertion des données dans la base de donnée ✓ - Forum - PHP
- Probleme d'insertion d'un chmap dansla base de donnée ✓ - Forum - PHP
- Insertion des images dans une base de donnee MYSQL ✓ - Forum - PHP
Commentaires
tres bien ton code juste une question comment je fait quand je veut rajouter d'autre colonne exemple num_rue,tel etc..
a chaque fois cela me marque: Erreur de mise à jour. Vérifiez les saisies
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.