[vb.net] Problemen met parameter toekenning voor insert

[Paladin]

Ik ben nu een weekje of 3 druk met vb.net bezig, en wil nu wat data in een acces database gaan zetten. Nu ben ik voornamelijk php gewend enz dus dit is wel even wat anders, maar na enig zoekwerk ben ik er toch dacht ik uitgekomen echter geeft hij nu een foutmelding waar ik niet uitkom.

Het gaat om de volgende code:

code:

Private Sub btnOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpslaan.Click
        Dim conn As New OleDb.OleDbConnection
        Dim strSQL As String
        Dim id_waarde, waarde1, waarde2, waarde3 As String
        Dim p1, p2, p3, p4 As OleDb.OleDbParameter

        id_waarde = txtPassword.Text
        waarde1 = txtVeld1.Text
        waarde2 = txtVeld2.Text
        waarde3 = txtVeld3.Text

        conn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=D:\Database\test.mdb;"
        strSQL = "INSERT INTO test (id_veld, test_veld1, test_veld2, test_veld3) VALUES (@idveld, @test_veld1, @test_veld2, @test_veld3)"

        conn.Open()
        Dim cmm As New OleDb.OleDbCommand(strSQL, conn)

        p1.DbType = DbType.String
        p1.ParameterName = "@id_veld"
        p1.Value = "id_waarde"

        p2.DbType = DbType.String
        p2.ParameterName = "@text_veld1"
        p2.Value = "waarde1"

        p3.DbType = DbType.String
        p3.ParameterName = "@test_veld2"
        p3.Value = "waarde2"

        p4.DbType = DbType.String
        p4.ParameterName = "@test_veld3"
        p4.Value = "waarde3"

        cmm.Parameters.Add(p1)
        cmm.Parameters.Add(p2)
        cmm.Parameters.Add(p3)
        cmm.Parameters.Add(p4)

        Try
            cmm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
    End Sub

Ik heb voor de duidelijkheid mijn volledige code even erbij gezet mocht ik namelijk iets fout gedaan hebben bij de var declaratie. Hij doet gewoon alles alleen bij het toevoegen aan de database begint ie te zeuren over dat "DbType.String" geen geldig iets is. Ik heb geen idee wat ik hier nu wel moet in vullen om het te laten werken.

Dus hierbij vraag ik de tweakers om hulp.

[LoekD]

System.Data.OleDb.OleDbType ?

[PolarBear]

Ik weet niet of het in .Net ook nog nodig is. Maar met VB6 was het een goede gewoonte om dit te doen:

code:

  Dim id_waarde, waarde1 As String, waarde2 As String, waarde3 As String
  Dim p1 As OleDb.OleDbParameter, p2 As OleDb.OleDbParameter, p3 As OleDb.OleDbParameter, p4 As OleDb.OleDbParameter

ipv

code:

  Dim id_waarde, waarde1, waarde2, waarde3 As String
  Dim p1, p2, p3, p4 As OleDb.OleDbParameter