29 March 2008, 12:01 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Datagrid kontrolü yardimiyla kayit düzenlemeupdatecancel ve delete islemleri
Datagrid kontrolü yardimiyla kayit düzenlemeupdatecancel ve delete islemleri <%@ Page Language="VB" Debug="true" CodePage="28599" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="system.data.oledb" %> <script runat="server"> <%-- sub binddata() Dim con As OleDbConnection con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB .4.0; DATA Source=" & Server.MapPath("uyeler.mdb") con.Open() Dim komut As OleDbCommand komut = New OleDbCommand("select * from kisiler", con) Dim alinan_veri As OleDbDataReader alinan_veri = komut.ExecuteReader() MyDataGrid.DataSource = alinan_veri MyDataGrid.DataBind() con.close() end sub --%> Sub BindData() Dim strConn as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\uyeler.mdb" & ";" Dim MySQL as string = "Select * from kisiler Order by kisi_id asc" Dim MyConn as New OleDbConnection(strConn) Dim ds as DataSet=New DataSet() Dim Cmd as New OleDbDataAdapter(MySQL,MyConn) Cmd.Fill(ds,"kisiler" MyDataGrid.Datasource=ds.Tables("kisiler" .DefaultView MyDataGrid.DataBind() End Sub Sub Page_Load(sender As Object, e As EventArgs) If not page.Ispostback then binddata() end If End Sub Sub MyDataGrid_EditCommand(s As Object, e As DataGridCommandEventArgs ) MyDataGrid.EditItemIndex = e.Item.ItemIndex BindData() End Sub Sub MyDataGrid_Cancelcommand(Source As Object, E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex = -1 BindData() End Sub Sub MyDataGrid_UpdateCommand(s As Object, e As DataGridCommandEventArgs ) Dim conn As OleDbConnection conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB .4.0; DATA Source=" & Server.MapPath("uyeler.mdb") Dim MyCommand As oledbCommand 'Dim txtid As textbox = E.Item.cells(1).Controls(0) Dim txtadi_sadi As textbox = E.Item.cells(2).Controls(0) Dim txtemail As textbox = E.Item.cells(3).Controls(0) Dim txttelefon As textbox = E.Item.cells(4).Controls(0) Dim strUpdateStmt As String strUpdateStmt ="UPDATE kisiler SET" & _ " kisi_id =@id, kisi_adi_soyadi =@adi_sadi, kisi_email =@email, kisi_telefon =@tel where kisi_id = @id" MyCommand = New oledbCommand(strUpdateStmt, conn) MyCommand.Parameters.Add(New oledbParameter("@id", e.item.cells(1).text)) MyCommand.Parameters.Add(New oledbParameter("@adi_sadi", txtadi_sadi.text)) MyCommand.Parameters.Add(New oledbParameter("@email", txtemail.text)) MyCommand.Parameters.Add(New oledbParameter("@tel", txttelefon.text)) conn.Open() MyCommand.ExecuteNonQuery() MyDataGrid.EditItemIndex = -1 conn.close BindData() End Sub Sub Page_Change(sender As Object, e As DataGridPageChangedEventArgs) MyDataGrid.CurrentPageIndex = e.NewPageIndex BindData End Sub Sub MyDataGrid_DeleteCommand(s As Object, e As DataGridCommandEventArgs ) Dim strConn as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\uyeler.mdb" & ";" Dim DeleteCmd As String = "DELETE from kisiler Where kisi_id = @ID" Dim MyConn as New OleDbConnection(strConn) Dim Cmd as New OleDbCommand(DeleteCmd, MyConn) Cmd.Parameters.Add(New OleDbParameter("@ID", MyDataGrid.DataKeys(CInt(e.Item.ItemIndex)))) MyConn.Open() Cmd.ExecuteNonQuery() MyConn.Close() BindData End Sub </script> <html> <head> </head> <body> <form runat="server"> <div align="center"> <aspataGrid id="MyDataGrid" runat="server" DataKeyField="kisi_id" OnPageIndexChanged="Page_Change" OnDeleteCommand="MyDataGrid_DeleteCommand&quo t; OnUpdateCommand="MyDataGrid_UpdateCommand&quo t; OnCancelCommand="MyDataGrid_Cancelcommand&quo t; OnEditCommand="MyDataGrid_EditCommand" CellPadding="2" BorderColor="Maroon" BorderWidth="1px" width="50%" AutoGenerateColumns="False" Font-Size="X-Small" Font-Names="Tahoma"> <Columns> <asp:EditCommandColumn ButtonType="LinkButton" UpdateText="Update" HeaderText="düzenle" CancelText="Cancel" EditText="&lt;img src=edit.gif border=0 width=12 height=12&gt;"></asp:EditCommandColumn> <asp:BoundColumn DataField="kisi_id" ReadOnly="True" HeaderText="Kişi ID"></asp:BoundColumn> <asp:BoundColumn DataField="kisi_adi_soyadi" HeaderText="adı soyadı"></asp:BoundColumn> <asp:BoundColumn DataField="kisi_email" HeaderText="e-mail"></asp:BoundColumn> <asp:BoundColumn DataField="kisi_telefon" HeaderText="telefon"></asp:BoundColumn> <asp:ButtonColumn Text="&lt;img src=delete.gif border=0 width=12 height=12&gt;" HeaderText="Sil" CommandName="Delete"></asp:ButtonColumn> </Columns> </aspataGrid> </div> <!-- Insert content here --> </form> </body> </html> |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Kayit yapma | tamerr89 | visual basic.net | 0 | 29 March 2008 17:08 |
Asp.net ile veri tabanina kayit | tamerr89 | asp.net | 0 | 29 March 2008 12:02 |
Ado.net ile datagrid 1 | tamerr89 | ADO.NET-ADO | 0 | 08 February 2008 16:30 |
Ado.net ile datagrid 2 | tamerr89 | ADO.NET-ADO | 0 | 08 February 2008 16:29 |
Yazilma sonrasi islemleri > upload..... | tamerr89 | CGI | 0 | 08 February 2008 16:21 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |