Problemer med datagrid og namespace
Hastesag - står og skal bruge det :-(Jeg Har følgene database.vb:
Option Explicit
Option Strict
Imports System
Imports System.Data
Imports System.Data.OleDB
Imports System.Configuration
Imports System.Web.Mail
Imports FejlMeddel
Namespace Database
Public Class DataKode
Public strConn as string
Public objConn as OledbConnection
Public strSQL as string
Public DBsti as string
Public data As OledbDataReader
Public ObjCmd As OledbCommand
Public objAdapter, objAdapter2 as OledbDataAdapter
Public objDataSet, objDataSet2 as new DataSet()
Dim Fejl1 as new FejlSend()
public function OpenDB(database as string) as oledbconnection
Try
DBSti = ConfigurationSettings.AppSettings("databasesti") & database & ".mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn += "Data Source=" & DBSti
ObjConn = new OledbConnection(strConn)
objConn.Open()
catch t as exception
Fejl1.Fejl(t.tostring())
end try
end function
public function DanData(strSQL as string) as OledbDataReader
try
objCmd = new OledbCommand(strSQL,ObjConn)
data = objCmd.ExecuteREader()
catch t as exception
Fejl1.Fejl(t.tostring())
end try
end function
public function SkrivData(strSQL as string) as OledbDataReader
try
objCmd = new OledbCommand(strSQL,ObjConn)
objCmd.ExecuteNonQuery()
catch t as exception
Fejl1.Fejl(t.tostring())
end try
end function
public function CloseDB() as oledbconnection
Try
ObjConn.Close
ObjConn = Nothing
catch t as exception
Fejl1.Fejl(t.tostring())
end try
end function
public function GridTabel(Tabelnavn as string, strSQL as string) as OledbDataReader
Try
objAdapter = new OledbDataAdapter(strSQL, objConn)
objAdapter.Fill(objDataSet, Tabelnavn)
catch t as exception
Fejl1.Fejl(t.tostring())
end try
end function
public function Griddan(datagridnavn as System.Web.UI.WebControls.DataGrid, TabelNavn as string) as OledbDataReader
try
Dim objDataTabel as DataTable
Dim Sortnavn as string
Dim dvView as new DataView(objDataTabel)
objDataTabel = objDataset.Tables(tabelnavn)
dvView.Sort = sortnavn
datagridnavn.DataSource = dvView
datagridnavn.DataBind()
catch t as exception
Fejl1.Fejl(t.tostring())
end try
end function
end class
end namespace
i min side kører jeg følgende:
<script runat="server">
Dim Fejl as new FejlSend()
Dim DataConn as new Datakode()
Sub Page_Load(Source As Object, E as EventArgs)
DataConn.OpenDb("EfBShoppen")
DataConn.GridTabel("DataProdukter","SELECT * FROM Produkter;")
DataConn.GridDan(DgTest,"DataProdukter")
DataConn.CloseDb()
End Sub
</script>
<body>
<form runat="server">
<asp:datagrid id="DgTest" Width="100%" AutoGenerateColumns="false" ShowFooter="false" ShowHeader="true" AllowSorting="false" AllowPaging="false" runat="server" GridLines="None" CellPadding="5">
<columns>
<asp:BoundColumn DataField="Produktid" Visible="false"/>
<asp:TemplateColumn HeaderText="Produkt" HeaderStyle-HorizontalAlign="Left" HeaderStyle-VerticalAlign="Top" ItemStyle-HorizontalAlign="Left" ItemStyle-VerticalAlign="Top" >
<ItemTemplate>
<%# Container.DataItem("navn") %>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Pris" HeaderStyle-HorizontalAlign="Left" HeaderStyle-VerticalAlign="Top" ItemStyle-HorizontalAlign="Left" ItemStyle-VerticalAlign="Top" >
<ItemTemplate>
<%# Container.DataItem("pris") %>
</ItemTemplate>
</asp:TemplateColumn>
</columns>
</asp:datagrid>
</form>
</body>
Mit problem er at data ikke bliver vist i DgTest - der bliver ikke meldt nogen fejl. Den viser kun kolonneoverskrifterne.
Er der nogen der kan se fejlen?
