Hjælp til BO
Jeg forstår ikke hvorfor jeg får denne fejl:'InsertIntoDB.InfoDetails' is not defined.
Er der en venlig sjæl der vil fortælle mig hvor det går galt og hvorfor?
Koden er hér...
Insert.vb:
-----------
Imports System
Imports System.Data
Imports System.Data.OleDb
Namespace InsertIntoDB
Public Class InfoDetails
Public ItemNumberCB as string
Public ItemTypeCB as string
Public ItemProducerCB as string
Public ItemTitleCB as string
Public ItemDescriptionCB as string
Public ItemPriceCB as Integer
Public ItemQuantityCB as Integer
End Class
Public Class Information
Public Function InsertInto(oDetails as InfoDetails)
With oDetails
If .ItemNumberCB = " " Then
.ItemNumberCB = "n/a"
End If
If .ItemTypeCB = " " Then
.ItemTypeCB = "n/a"
End If
If .ItemProducerCB = " " Then
.ItemProducerCB = "n/a"
End If
If .ItemTitleCB = " " Then
.ItemTitleCB = "n/a"
End If
If .ItemDescriptionCB = " " Then
.ItemDescriptionCB = "n/a"
End If
If .ItemPriceCB = " " Then
.ItemPriceCB = 0
End If
If .ItemQuantityCB = " " Then
.ItemQuantityCB = 0
End If
End With
Dim objConn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb")
Dim objCmd = New OleDbCommand("ProdInsert", objConn)
objConn.Open()
objCmd.CommandType = CommandType.StoredProcedure
objCmd.ExecuteReader
try
catch ex as OleDbException
throw ex
finally
objConn.Close
end try
return true
End Function
END CLASS
End Namespace
insert.aspx:
-------------
<%@ Page language="vb" debug="true" %>
<script runat="server">
Sub Page_Load(obj as object, e as eventargs)
End Sub
Sub InsertInto(obj as object, e as eventargs)
dim oDetails as New InsertIntoDB.InfoDetails
oDetails.ItemNumberCB = tbNumber.text
oDetails.ItemTypeCB = tbType.text
oDetails.ItemProducerCB = tbProducer.text
oDetails.ItemTitleCB = tbTitle.text
oDetails.ItemDescriptionCB = tbDescription.text
oDetails.ItemPriceCB = tbPrice.text
oDetails.ItemQuantityCB = tbQuantity.text
End Sub
</script><html><body>
<form runat="server">
<asp:textbox id="tbNumber" runat="server" /><br>
<asp:textbox id="tbType" runat="server" /><br>
<asp:textbox id="tbProducer" runat="server" /><br>
<asp:textbox id="tbTitle" runat="server" /><br>
<asp:textbox id="tbDescription" runat="server" /><br>
<asp:textbox id="tbPrice" runat="server" /><br>
<asp:textbox id="tbQuantity" runat="server" /><br>
<asp:button id="btSubmit" runat="server" OnClick="InsertInto" Text="Indsæt" />
</form></body></html>
compileret med:
vbc /t:library /out:..\bin\InsertIntoDB.dll /r:System.dll /r:System.Data.dll Insert.vb
