Hi,
I am having err when creating link to each line of grid at LINE 38. My
objective in asp.net is: each line can be linked to page with your
parameters as VB 5/6, Delphi 5/6/7, etc....
See the code bellow:
Thanks!
---------------------------------------
Vilmar Brazão de Oliveira
HI-TEC Informática
<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(sende r as Object, e as EventArgs)
Dim connString as String 'Create a connection string
connString = "PROVIDER=Micro soft.Jet.OLEDB. 4.0;DATA SOURCE=" &
Server.MapPath( "Northwind.mdb" )
'C:\Arquivos de programas\Micro soft Office\Office\S amples\Northwin d.mdb
'Open a connection
Dim objConnection as OleDbConnection
objConnection = New OleDbConnection (connString)
objConnection.O pen()
'Specify the SQL string
Dim strSQL as String = "SELECT * FROM Clientes"
'Create a command object
Dim objCommand as OleDbCommand
objCommand = New OleDbCommand(st rSQL, objConnection)
'Get a datareader
Dim objDataReader as OleDbDataReader
objDataReader = objCommand.Exec uteReader(Comma ndBehavior.Clos eConnection)
'Do the DataBinding
dgResults.DataS ource = objDataReader
dgResults.DataB ind()
'Close the datareader/db connection
objDataReader.C lose()
'Montagem de link.
Dim I as Double
Dim Registro as String
For I = 0 To Me.dgResults.It ems.Count - 1
Dim NomeLink As LinkButton =
CType(datagrid. Items(i).FindCo ntrol("NomeLink "), LinkButton) 'LINE 38
Registro = Tabela.Rows(I)
lnkEdita.Comman dArgument = "Param=" & valor
Next
End Sub
Sub myItems_ItemDat aBound(ByVal Sender As Object, ByVal e As
DataGridItemEve ntArgs)
dgResults.Attri butes.Add("onCl ick","JavaScrip t:alert('texto' );")
If e.Item.ItemType = ListItemType.It em Then
e.Item.Attribut es.Add("onmouse over",
"this.style.bac kgroundColor='# EEEEEE'")
e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='# F7EFC6'")
ElseIf e.Item.ItemType = ListItemType.Al ternatingItem Then
e.Item.Attribut es.Add("onmouse over",
"this.style.bac kgroundColor='# EEEEEE'")
e.Item.Attribut es.Add("onmouse out",
"this.style.bac kgroundColor='# F7EFC6'")
End If
End Sub
Protected Sub EventoNoClick(B yVal sender As Object, ByVal e As
System.Web.UI.W ebControls.Comm andEventArgs)
Response.Redire ct("SeuAspx.asp x?" & e.CommandArgume nt)
End Sub
'FFFFEF »»um tom de amarelo bem claro.
'F7EFC6 »»um tom de amarelo meio ocre.
</script>
<html>
<head>
<title>Exempl o consulta com ASP.Net - 02</title>
</head>
<body text="#000000" bgcolor="#fffff f">
<h1>Exemplo consulta com ASP.Net - 01</h1>
<asp:DataGrid
id="dgResults" runat="server" Width="700" BackColor="#F7E FC6"
BorderColor="bl ack"
ShowFooter="fal se" CellPadding="3" CellSpacing="0" Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#ffa ad" OnItemDataBound ="myItems_ItemD ataBound">
</asp:DataGrid>
<asp:TemplateCo lumn HeaderText="Ass unto">
<ItemStyle width="33%"></ItemStyle>
<ItemTemplate >
<asp:LinkButt on id="NomeLink" runat="server" OnCommand="Even toNoClick"
Font-Size="9pt"
Text='<%# DataBinder.Eval (DataSet, "Tables[Tabela].DefaultView.[0].Campo")
%>'>
</asp:LinkButton>
</ItemTemplate>
</asp:TemplateCol umn>
</body>
</html>
