Ahoj potřeboval bych poradit s jednim scriptíkem v ASP.NET nikoho neznám kdo by v tom dělal tak prosím pokud někdo víte napište mi na petr.ck@seznam.cz opravdu si nevím rady.
Zdrojový kod:
<%@ Page Language=„VB“ Debug=„true“ %>
<%@ import Namespace=„System.Data“ %>
<%@ import Namespace=„System.Data.OleDb“ %>
<script runat=„server“>
Dim ConStr As String = „Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:/Documents and Settings/Uzivatel/Plocha/ASP.NET příklady/vb_net/aspdotnet.mdb“
Dim da As OleDbDataAdapter
Dim ds As DataSet
Sub Page_Load()
If Session(„dataset“) Is Nothing Then
Dim Conn As OleDbConnection = New OleDbConnection(ConStr)
Dim vse As String = „SELECT * FROM Pracovníci“
Dim Comm As OledbCommand = New OleDbCommand(vse, Conn) 'OleDbCommand(vybrat soubory, připojeni)
da = New OleDbDataAdapter()
ds = New DataSet(„firma“)
Conn.Open()
da.SelectCommand = Comm
da.Fill(ds, „Pracovníci“) 'Fill(vybraný dataset, „jmeno tabulky“)
Conn.Close()
Session(„dataset“) = ds
session(„dataadapt“) = da
da = Session(„dataadapt“)
ds = Session(„dataset“)
Else
da = Session(„dataadapt“)
ds = Session(„dataset“)
End If
If (Not IsPostback) Then
data1.Datasource = ds.Tables(„Pracovníci“)
data1.DataBind()
End If
End Sub
Sub edit(source as Object, e As DataGridCommandEventArgs)
data1.EditItemIndex = e.Item.ItemIndex
data1.DataSource = ds.Tables(„Pracovníci“)
data1.DataBind()
End Sub
Sub cancel(source As Object, e As dataGridCommandEventArgs)
data1.EditItemIndex = –1
data1.dataSource = ds.Tables(„Pracovníci“)
data1.dataBind()
End Sub
Sub update(source As Object, e As DataGridCommandEventArgs)
Dim cislo As String = e.Item.Cells(0).Text
Dim editjmeno As TextBox = e.Item.Cells(1).Controls(0)
Dim editprijmeni As TextBox = e.Item.Cells(2).Controls(0)
Dim editfunkce As TextBox = e.Item.Cells(3).Controls(0)
Dim editvzdelani As Textbox = e.Item.Cells(4).Controls(0)
Dim dw As DataView = New DataView(ds.Tables(„Pracovníci“))
dw.rowFilter = „ID=‚“+cislo+„‘“
If (dw.count > 0) Then
dw(0).BeginEdit()
dw(0)(„Jmeno“) = editjmeno.Text
dw(0)(„Prijmeni“) = editprijmeni.Text
dw(0)(„funkce“) = editfunkce.Text
dw(0)(„vzdelani“) = editvzdelani.Text
dw(0).EndEdit()
End If
dw.rowfilter = ""
data1.EditItemIndex = –1
data1.dataSource = ds.Tables(„Pracovníci“)
data1.dataBind()
End Sub
</script>
<html>
<head>
</head>
<body>
<center>
<h1>Data Grid Databaze
</h1>
</center>
<hr />
<form runat=„server“>
<asp:Datagrid id=„data1“ runat=„server“ OncancelCommand=„cancel“ AutoGenerateColumns=„False“ ItemStyle-Backcolor=„#c0c0c0“ AlternatingItemStyle-Backcolor=„#a9a9a9“ HeaderStyle-BackColor=„#f5f5f5“ GridLines=„vertical“ align=„Center“ cellspacing=„5“ cellpadding=„5“ OnEditCommand=„edit“ OnUpdateCommand=„update“>
<COLUMNs>
<ASP:BOUNDCOLUMN HeaderText=„ID“ DataField=„ID“ />
<ASP:BOUNDCOLUMN HeaderText=„Jméno“ DataField=„Jmeno“ />
<ASP:BOUNDCOLUMN HeaderText=„Příjmení“ DataField=„Prijmeni“ />
<ASP:BOUNDCOLUMN HeaderText=„Funkce“ DataField=„funkce“ />
<ASP:BOUNDCOLuMN HeaderText=„Vzděláni“ DataField=„vzdelani“ />
<asp:EditCommandColumn Buttontype=„PushButton“ EditText=„Upravit“ UpdateText=„Aktualizovat“ CancelText=„Zrušit“ HeaderText=„Úpravy“ />
</COLUMNS>
</asp:Datagrid>
</form>
</body>
</html
když pustin localserver tak mi to píše tuto chybu:
System.Data.EvaluateException: Operaci = nelze provést na typech System.Int32 a System.String.
Děkuji moc a moc se těšim na radu. :smile10: :smile10: :smile10: :smile10:
Fórum › .NET
ASP.NTE potřeboval bych radu:'(
Poprvé v životě vidím, že někdo používá ty prapodivné české uvozovky „blabla“. To se fakt zkompiluje? :D Kromě toho bych uvažoval i nad nějakým odsazováním kódu...
Ale k chybě; Podle mě je chyba tady, ta čárka se prostě nemůže interpretovat stejně jako apostrof...
dw.rowFilter = „ID=‚“+cislo+„‘“
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 14 hostů
Podobná vlákna
Potreboval bych sluzbicku — založil roman
Potřeboval bych poradit — založil selkir
Potřeboval bych poradit s algoritmem... — založil Mory
Potřeboval bych 60mm primecooler — založil tanned88
Potřeboval bych malou výpomoc s grafikou — založil tanned88
Moderátoři diskuze