Hente fra access db og skrive ud i tekstboks
HejJeg prøver at hente data fra en access db og vise dem i forskellige tekstbokse, jeg har overhoved ikke styr på hvad jeg laver, og jeg får følgende fejl:
Could not load type 'LoadDetails'
Og jeg bruger følgende kode:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Page Inherits="LoadDetails" scr="CBafvigelsesrapport_vis.vb" %>
<Script Runat="Server">
Public Class ClassVisData
Public sNavn As String
End Class
Public Class ClassDbconnention
Public Function GetTextById( ByValId As Integer ) As ClassVisData
Dim DbConn As OleDbConnection
Dim SqlCmd As OleDbCommand
Dim DataReader As OleDbDataReader
Try
DbConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=c:\inetpub\wwwroot\database\afvigelsesrappporter.mdb")
DbConn.Open()
SqlCmd = New OleDbCommand( "Select * FROM afvigelser", DbConn )
DataReader = OleDbCommand.ExecuteReader()
Dim Details As ClassVisData
Try
Details = New ClassVisData
If DataRead.Hasrows
While DataRead.Read()
With Detalils
.sNavn = DataReader.GetString(0).ToString()
End If
End While
Return DataRead
End If
Finally
If Not DataRead.IsClosed Then
DataRead.close()
End If
DbConn.Close()
End Try
Catch ex as Exception
Throw ex
End Try
End Function
End Class
</Script>
...og
Private Sub LoadDetails(id as integer)
Dim obj as ClassDbConnection
Dim details as ClassVisData
Try
obj = New ClassVisData
details = obj.GetTextById(id)
MinTextBox.Text = details.sNavn.ToString()
Catch ex as exception
Throw ex
End Try
End Sub
Er der en der kan se hvad jeg gør galt?
