questo è il mio codice dove creo un dataset partendo da un file di testo...
codice:
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ import Namespace="System.IO" %>
<script runat="server">
sub Page_Load(obj as object, e as eventargs)
dim objreader as new Streamreader(Server.MapPath("prova.txt"))
dim ds as new dataset("gestione_ordini")
dim dtable as new datatable("tbllistino")
dtable.columns.add("idlistino", System.Type.GetType("System.Int32"))
dtable.columns("idlistino").autoincrement=true
dtable.columns.add("sigla_marchio", System.Type.GetType("System.String"))
dtable.columns.add("codice_prodotto_produttore", System.Type.gettype("System.String"))
dtable.columns.add("descrizione_prodotto", System.Type.gettype("System.String"))
ds.tables.add(dtable)
dim keys() as datacolumn = {ds.tables("tbllistino").columns("idlistino")}
ds.tables("tbllistino").primarykey=keys
'leggo le restanti righe del file di testo
while objreader.peek()>-1
dim dr as datarow=dtable.newrow()
dim arrsiglamarchio(3) as char
objreader.read(arrsiglamarchio,0,3)
dim strsiglamarchio as string = arrsiglamarchio(0)+arrsiglamarchio(1)+arrsiglamarchio(2)
dr(1)=(strsiglamarchio)
dim arrcodprodotto(16) as char
objreader.read(arrcodprodotto,0,16)
dim strcodprodotto as string = arrcodprodotto(0)+arrcodprodotto(1)+arrcodprodotto(2)+arrcodprodotto(3)+arrcodprodotto(4)+arrcodprodotto(5)+arrcodprodotto(6)+arrcodprodotto(7)+arrcodprodotto(8)+arrcodprodotto(9)+arrcodprodotto(10)+arrcodprodotto(11)+arrcodprodotto(12)+arrcodprodotto(13)+arrcodprodotto(14)+arrcodprodotto(15)
dr(2)=(strcodprodotto)
dim arrdescprod(43) as char
objreader.read(arrdescprod,0,43)
dim strdescprod as string = arrdescprod(0)+arrdescprod(1)+arrdescprod(2)+arrdescprod(3)+arrdescprod(4)+arrdescprod(5)+arrdescprod(6)+arrdescprod(7)+arrdescprod(8)+arrdescprod(9)+arrdescprod(10)+arrdescprod(11)+arrdescprod(12)+arrdescprod(13)+arrdescprod(14)+arrdescprod(15)+arrdescprod(16)+arrdescprod(17)+arrdescprod(18)+arrdescprod(19)+arrdescprod(20)+arrdescprod(21)+arrdescprod(22)+arrdescprod(23)+arrdescprod(24)+arrdescprod(25)+arrdescprod(26)+arrdescprod(27)+arrdescprod(28)+arrdescprod(29)+arrdescprod(30)+arrdescprod(31)+arrdescprod(32)+arrdescprod(33)+arrdescprod(34)+arrdescprod(35)+arrdescprod(36)+arrdescprod(37)+arrdescprod(38)+arrdescprod(39)+arrdescprod(40)+arrdescprod(41)+arrdescprod(42)
dr(3)=(strdescprod)
dtable.rows.add(dr)
objreader.readline
end while
objreader.close
DataGrid1.DataSource = ds.Tables("tbllistino").DefaultView
DataBind()
end sub
sub DataGrid1_ItemCommand(obj as object, e as DataGridCommandEventArgs)
DataGrid1.SelectedIndex = e.Item.ItemIndex
DataBind()
end sub
Sub DataGrid1_PageIndexChanged(obj as object, e as datagridpagechangedeventargs)
datagrid1.currentpageindex=e.newpageindex
datagrid1.databind()
end sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:DataGrid id="DataGrid1" runat="server"
BorderColor="black"
GridLines="Vertical"
cellpadding="4"
cellspacing="0"
width="450"
Font-NameFont-Names="Arial"
Font-Size="8pt"
ShowFooter="True"
HeaderStyle-BackColor="#cccc99"
FooterStyle-BackColor="#cccc99"
ItemStyle-BackColor="#ffffff"
AlternatingItemStyle-Backcolor="#cccccc"
AllowPaging="true"
PageSize="50"
PagerStyle-Mode="NumericPages"
PagerStyle-PageButtonCount="100"
OnPageIndexChanged="DataGrid1_PageIndexChanged"
AutoGenerateColumns="true">
</asp:datagrid>
</form>
</body>
</html>
Permessi di invio
Rispondi quotando