
03/03/2005, 13:43
|
| | Fecha de Ingreso: octubre-2004
Mensajes: 79
Antigüedad: 20 años, 5 meses Puntos: 0 | |
ayuda urgente dropdownlist,datagrid tengo un pekeño problema.....
les cuento....tengo un dropdownlist enlazado a un datagrid
cuando tengo una seleccionado algo del selecteditem
me karga una tabla de la base de datos...,pero
el problema esta k kiero hacer k dependiendo del dropdownlist.selecteditem.text k sea igual a un campo de la columna en la tabla....me muestre el contenido de dicha fila y cuando ago la kondicion
no aparece nisikiera el datagrid
y tambien incluir un download k tenia enlazado a un label.....
ponerlo en el datagrid...
agradeceria k me ayudaran
aki va el kodigo
<script runat="server">
Dim cOn As sqlconnection
dim query As string
function data() as system.data.dataset
cOn = new sqlconnection("server=server; database=Net_server; user id=sa; trusted_connection=false;")
query=("select archivo,tipo from material")
Dim mCommand As sqlcommand
mCommand = new sqlcommand(query, cOn)
Dim dataAdapter As SqlDataAdapter
dataadapter = new sqldataAdapter(mCommand)
Dim dataS As DataSet
dataS = new dataset()
dataAdapter.Fill(dataS)
Return dataS
End function
Sub carga(sender As Object, e As EventArgs)
Dim savepath As String = "C:\inetpub\wwwroot\documentos\"
Dim files() As String = Directory.GetFiles(savepath)
Dim filepath As String = Request.Params("file")
If Not filepath Is Nothing Then
If File.Exists(filepath) Then
Dim filename As String = Path.GetFileName(filepath)
Response.Clear()
Response.ContentType = "application/octet-stream"
Response.AddHeader("Content-Disposition", _
"attachment; filename=""" & filename & """")
Response.Flush()
Response.WriteFile(filepath)
End If
End If
Dim sb As New StringBuilder(2048)
Dim f As String
For Each f In files
Dim filename As String = Path.GetFileName(f)
sb.Append("<br><a href=Download.aspx?file=")
sb.Append(savepath).Append(Server.UrlEncode(filena me))
sb.Append(">").Append(filename).Append("</a>")
next
' filelist.text = sb.ToString()
End Sub
Sub down1_SelectedIndexChanged(sender As Object, e As EventArgs)
MyDataGrid.DataSource = data()
MyDataGrid.DataBind()
End Sub
</script> |