Combobox-Werte in die Datenbank einfügen?

Question

ich benutze jetzt den Code von "wilko". aber am ende will ich sparen ich habe fehler bekommen.

 

 Dim dict As New Dictionary(Of String, Integer) 
    Try 
     dict.Add("Index 1", 1) 
     dict.Add("Index 2", 2) 
     dict.Add("Index 3", 3) 
     dict.Add("Index 4", 4) 
     cmbIndex.DataSource = New BindingSource(dict, Nothing) 
     cmbIndex.DisplayMember = "Key" 
     cmbIndex.ValueMember = "Value" 
    Catch ex As Exception 

    End Try 



     .CommandText = "INSERT INTO tblMasterAksesJalanSKRD (kode_perus, nm_perusahaan, nm_pimpinan, alamat, volume, lokasi, masa_berlaku, tgl_exp, index, foto) VALUES (@a0,@a1,@a2,@a3,@a4,@a5,@a6,@a7,@a8,@a9)" 
      .Parameters.Add("@a0", OleDbType.VarChar).Value = txtkode.Text 
      .Parameters.Add("@a1", OleDbType.VarChar).Value = txtnmperus.Text 
      .Parameters.Add("@a2", OleDbType.VarChar).Value = txtnmpim.Text 
      .Parameters.Add("@a3", OleDbType.VarChar).Value = txtalamat.Text 
      .Parameters.Add("@a4", OleDbType.VarChar).Value = txtvol.Text 
      .Parameters.Add("@a5", OleDbType.VarChar).Value = txtlok.Text 
      .Parameters.Add("@a6", OleDbType.VarChar).Value = txtmasber.Text 
      .Parameters.Add("@a7", OleDbType.DBDate).Value = Date.Now 
      .Parameters.Add("@a8", OleDbType.VarChar).Value = cmbIndex.SelectedValue ***(i still got error on this "Additional information: Syntax error in INSERT INTO statement.")*** 
      .Parameters.Add("@a9", OleDbType.Binary).Value = IIf(pb1.Image IsNot Nothing, arrimage, DBNull.Value) 

vielen Dank

Grüße von Indonesien.

Answer 1

Ihre Bindung wird nicht so funktionieren. Versuchen Sie, ein Wörterbuch verwenden und eine neue Bindung Quelle zu schaffen:

Dim dict As New Dictionary(Of String, Integer) 
    dict.Add("Kota", 6000) 
    dict.Add("Kabupaten", 5000) 
    cmbIndex.DataSource = New BindingSource(dict, Nothing) 
    cmbIndex.DisplayMember = "Key" 
    cmbIndex.ValueMember = "Value" 

Die folgenden jetzt funktionieren soll:

.Parameters.add("@a8", OleDbType.VarChar).Value = cmbIndex.SelectedValue