Ver Mensaje Individual
  #12 (permalink)  
Antiguo 03/03/2005, 09:34
Avatar de neivan
neivan
 
Fecha de Ingreso: febrero-2005
Mensajes: 539
Antigüedad: 20 años, 1 mes
Puntos: 1
te escribo mi ejemplo completo en la que el dataview en llaza con latabla alumnos de entre varias tabkas q tiene mi adtaset cargadas

sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
if not ispostback then
dim ds as System.Data.DataSet
ds=dataset()

SESSION("ds")=ds
Dim dv As System.Data.DataView = New System.Data.DataView(ds.tables("TALUMNOS"))
DataGrid1.DataSource=DV

DataGrid1.databind()
SESSION("dv")=dv
end if



'dim cn as System.Data.SqlClient.SqlConnection


end sub

function conexion() as System.Data.SqlClient.SqlConnection
dim cn as System.Data.SqlClient.SqlConnection
cn=New System.Data.SqlClient.SqlConnection()
cn.ConnectionString="server=E1;User Id=yo;Database=ESql"
cn.open()
cn.close()
return cn
end function

function dataset() as System.Data.DataSet
dim cn as System.Data.SqlClient.SqlConnection
cn=conexion()
cn.open()
Dim adap1 as System.Data.SqlClient.SqldataAdapter
Dim adap2 as System.Data.SqlClient.SqldataAdapter
Dim adap3 as System.Data.SqlClient.SqldataAdapter
Dim adap4 as System.Data.SqlClient.SqldataAdapter
Dim adap5 as System.Data.SqlClient.SqldataAdapter
Dim adap6 as System.Data.SqlClient.SqldataAdapter
Dim ds as System.Data.DataSet
adap1=new System.Data.SqlClient.SqlDataAdapter("Select * from EMPRESAS",cn)
adap2=new System.Data.SqlClient.SqlDataAdapter("Select * from ALUMNOS",cn)
adap3=new System.Data.SqlClient.SqlDataAdapter("Select * from ALUMNOS_PRIVADOS",cn)
adap4=new System.Data.SqlClient.SqlDataAdapter("Select * from ALUMNOS_EMPRESAS",cn)
adap5=new System.Data.SqlClient.SqlDataAdapter("Select * from ALUMNOS_FOCUPACIONAL",cn)
adap6=new System.Data.SqlClient.SqlDataAdapter("Select * from ALUMNOS_FNOCONTINUA",cn)
ds=new System.Data.DataSet()
adap1.Fill(ds,"TEMPRESAS")
adap2.Fill(ds,"TALUMNOS")
adap3.Fill(ds,"TALUMNOSP")
adap4.Fill(ds,"TALUMNOSE")
adap5.Fill(ds,"TALUMNOSFO")
adap6.Fill(ds,"TALUMNOSFNC")
cn.close()
return ds

end function

Sub DataGrid1_SelectedIndexChanged(sender As Object, e As datagridpagechangedEventArgs)
dim ds as System.Data.DataSet
ds=session("ds")
Dim dv As System.Data.DataView = New System.Data.DataView()
dv=session("dv")
datagrid1.datasource=dv
DATAGRID1.CURRENTPAGEINDEX=e.NEWPAGEINDEX
datagrid1.databind
End Sub

sub Sort_Grid(sender As Object, e As DataGridSortCommandEventArgs)
dim ds as System.Data.DataSet
ds=session("ds")
Dim dv As System.Data.DataView = New System.Data.DataView()
dv=session("dv")
dv.sort=e.SortExpression
datagrid1.datasource=dv

datagrid1.databind
session("dv")=dv


end sub

y en el html tengo:

<form runat="server">
<asp:DataGrid id="DataGrid1" runat="server" AllowSorting="True" OnSortCommand="Sort_Grid" CellPadding="3" BackColor="White" BorderWidth="1px" GridLines="Horizontal" BorderStyle="None" OnPageIndexChanged="DataGrid1_SelectedIndexChanged " BorderColor="#E7E7FF" AllowPaging="True">
<FooterStyle forecolor="#4A3C8C" backcolor="#B5C7DE"></FooterStyle>
<HeaderStyle font-bold="True" forecolor="#F7F7F7" backcolor="#4A3C8C"></HeaderStyle>
<PagerStyle nextpagetext="siguiente" prevpagetext="anterior" horizontalalign="Right" forecolor="#4A3C8C" position="Top" backcolor="#E7E7FF" mode="NumericPages"></PagerStyle>
<SelectedItemStyle font-bold="True" forecolor="#F7F7F7" backcolor="#738A9C"></SelectedItemStyle>
<AlternatingItemStyle backcolor="#F7F7F7"></AlternatingItemStyle>
<ItemStyle forecolor="#4A3C8C" backcolor="#E7E7FF"></ItemStyle>
<Columns>
<asp:EditCommandColumn ButtonType="LinkButton" UpdateText="Update" HeaderText="Update" CancelText="Cancel" EditText="Edit"></asp:EditCommandColumn>
<asp:ButtonColumn Text="Delete" HeaderText="Delete" CommandName="Delete"></asp:ButtonColumn>
<asp:TemplateColumn>
<ItemTemplate>
<asp:LinkButton runat="server" Text="Select" CommandName="Select" CausesValidation="false"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>


</form>