🚀 go-pugleaf

Hey iedereen

Ik was voor school een .aspx pagina aan het schrijven voor op de pagina
http://kcst.pietergoris.be maar het volgende doet zich voor.
----------------------------------------------------------------------------
---------------------------------------------------------

Server Error in '/mailformulier' Application.


Fill: SelectCommand.Connection property has not been initialized.
Description: An unhandled exception occurred during the execution of the
current web request. Please review the stack trace for more information
about the error and where it originated in the code.

Exception Details: System.InvalidOperationException: Fill:
SelectCommand.Connection property has not been initialized.

Source Error:

Line 135:    Private Sub cmdToevoegen_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdToevoegen.Click
Line 136:
Line 137:        odaBoodschappen.Fill(dtsMailformulier)
Line 138:
Line 139:
dtsMailformulier.tblMailformulier.AddtblMailformulierRow(txtBoodschap.Text,
_


Source File: c:\inetpub\wwwroot\mailformulier\WebForm1.aspx.vb    Line: 137

Stack Trace:

[InvalidOperationException: Fill: SelectCommand.Connection property has not
been initialized.]
   System.Data.Common.DbDataAdapter.GetConnection(IDbCommand command, String
method)
   System.Data.Common.DbDataAdapter.FillFromCommand(Object data, Int32
startRecord, Int32 maxRecords, String srcTable, IDbCommand command,
CommandBehavior behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 startRecord,
Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior
behavior)
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet)
   mailformulier.WebForm1.cmdToevoegen_Click(Object sender, EventArgs e) in
c:\inetpub\wwwroot\mailformulier\WebForm1.aspx.vb:137
   System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108

System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePo
stBackEvent(String eventArgument) +57
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler
sourceControl, String eventArgument) +18
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
   System.Web.UI.Page.ProcessRequestMain() +1277





Nu weet ik echt niet hoe dat komt, kan iemand mij een oplossing bieden en de
fout ook uitleggen anders leer ik er namelijk geen fluit uit :)


Bedankt
Pieter Goris

----------------------------------------------------------------------------
-----------------------------------------------------------------------

P.S.: mijn code is:


Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
        Me.odaBoodschappen = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
        Me.dtsMailformulier = New mailformulier.dtsMailformulier
        Me.cnnMailformulier = New System.Data.OleDb.OleDbConnection
        CType(Me.dtsMailformulier,
System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'odaBoodschappen
        '
        Me.odaBoodschappen.DeleteCommand = Me.OleDbDeleteCommand1
        Me.odaBoodschappen.InsertCommand = Me.OleDbInsertCommand1
        Me.odaBoodschappen.SelectCommand = Me.OleDbSelectCommand1
        Me.odaBoodschappen.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "tblMailformulier", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Boodschap", "Boodschap"), New
System.Data.Common.DataColumnMapping("Datum", "Datum"), New
System.Data.Common.DataColumnMapping("Emailadres", "Emailadres"), New
System.Data.Common.DataColumnMapping("GastID", "GastID"), New
System.Data.Common.DataColumnMapping("Naam", "Naam")})})
        Me.odaBoodschappen.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Boodschap, Datum,
Emailadres, GastID, Naam FROM tblMailformulier"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO
tblMailformulier(Boodschap, Datum, Emailadres, Naam) VALUES (?, ?, ?," & _
        " ?)"
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Boodschap",
System.Data.OleDb.OleDbType.VarWChar, 50, "Boodschap"))
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Datum",
System.Data.OleDb.OleDbType.DBDate, 0, "Datum"))
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Emailadres",
System.Data.OleDb.OleDbType.VarWChar, 50, "Emailadres"))
        Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Naam",
System.Data.OleDb.OleDbType.VarWChar, 50, "Naam"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE tblMailformulier SET
Boodschap = ?, Datum = ?, Emailadres = ?, Naam = ? WH" & _
        "ERE (GastID = ?) AND (Boodschap = ? OR ? IS NULL AND Boodschap IS
NULL) AND (Dat" & _
        "um = ? OR ? IS NULL AND Datum IS NULL) AND (Emailadres = ? OR ? IS
NULL AND Emai" & _
        "ladres IS NULL) AND (Naam = ? OR ? IS NULL AND Naam IS NULL)"
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Boodschap",
System.Data.OleDb.OleDbType.VarWChar, 50, "Boodschap"))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Datum",
System.Data.OleDb.OleDbType.DBDate, 0, "Datum"))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Emailadres",
System.Data.OleDb.OleDbType.VarWChar, 50, "Emailadres"))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Naam",
System.Data.OleDb.OleDbType.VarWChar, 50, "Naam"))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_GastID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"GastID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Boodschap",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Boodschap1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Datum",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Datum",
System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Datum1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Datum",
System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Emailadres",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Emailadres1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Naam",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Naam", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Naam1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Naam", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM tblMailformulier
WHERE (GastID = ?) AND (Boodschap = ? OR ? IS NULL A" & _
        "ND Boodschap IS NULL) AND (Datum = ? OR ? IS NULL AND Datum IS
NULL) AND (Emaila" & _
        "dres = ? OR ? IS NULL AND Emailadres IS NULL) AND (Naam = ? OR ? IS
NULL AND Naa" & _
        "m IS NULL)"
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_GastID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"GastID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Boodschap",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Boodschap1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Boodschap", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Datum",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Datum",
System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Datum1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "Datum",
System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Emailadres",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Emailadres1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Emailadres", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Naam",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Naam", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Naam1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Naam", System.Data.DataRowVersion.Original, Nothing))
        '
        'dtsMailformulier
        '
        Me.dtsMailformulier.DataSetName = "dtsMailformulier"
        Me.dtsMailformulier.Locale = New
System.Globalization.CultureInfo("nl-BE")
        '
        'cnnMailformulier
        '
        Me.cnnMailformulier.ConnectionString = "Jet OLEDB:Global Partial
Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Data
Source=""C:\Inetpub\wwwroot\Databases\Mailformulier.mdb"";Jet O" & _
        "LEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet
OLEDB:System database=" & _
        ";Jet OLEDB:SFP=False;persist security info=False;Extended
Properties=;Mode=""Read" & _
        "Write|Share Deny None"";Jet OLEDB:Encrypt Database=False;Jet
OLEDB:Create System " & _
        "Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet
OLEDB:Compact Wi" & _
        "thout Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk
Transactions=1"
        CType(Me.dtsMailformulier,
System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents RequiredFieldValidator1 As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As
System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtNaam As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtBoodschap As System.Web.UI.WebControls.TextBox
    Protected WithEvents cmdToevoegen As System.Web.UI.WebControls.Button
    Protected WithEvents cmdAnnuleren As System.Web.UI.WebControls.Button
    Protected WithEvents dgdBoodschappen As
System.Web.UI.WebControls.DataGrid
    Protected WithEvents odaBoodschappen As
System.Data.OleDb.OleDbDataAdapter
    Protected WithEvents OleDbSelectCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbInsertCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbUpdateCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents OleDbDeleteCommand1 As
System.Data.OleDb.OleDbCommand
    Protected WithEvents dtsMailformulier As mailformulier.dtsMailformulier
    Protected WithEvents cnnMailformulier As
System.Data.OleDb.OleDbConnection

    'NOTE: The following placeholder declaration is required by the Web Form
Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub cmdAnnuleren_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdAnnuleren.Click

        txtNaam.Text = ""
        txtEmail.Text = ""
        txtBoodschap.Text = ""

    End Sub

    Private Sub cmdToevoegen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdToevoegen.Click

        odaBoodschappen.Fill(dtsMailformulier)      <----- foutregel!


dtsMailformulier.tblMailformulier.AddtblMailformulierRow(txtBoodschap.Text,
_
            DateTime.Now, txtEmail.Text, txtNaam.Text)
        odaBoodschappen.Update(dtsMailformulier)
        dgdBoodschappen.DataBind()

        txtNaam.Text = ""
        txtEmail.Text = ""
        txtBoodschap.Text = ""

    End Sub
End Class