[princelovelorn]

جرب الكود التالي
وهو تحويل قيم الحقول النصية الى Decimal

كود :

Try
         cmd = New OleDbCommand("Insert Into TBL_Products ( Pro_Code, Pro_Name, Pro_Price, Pro_Moms, Pro_Totalt) values
       (@Pro_Code, @Pro_Name, @Pro_Price, @Pro_Moms, @Pro_Totalt)", con)

         cmd.Parameters.Add(New OleDbParameter("@Pro_Code", OleDbType.Integer)).Value = CInt(txtcode.Text)
         cmd.Parameters.Add(New OleDbParameter("@Pro_Name", OleDbType.VarChar)).Value = txtDes.Text
                     cmd.Parameters.Add(New OleDbParameter("@Pro_Price", OleDbType.Double)).Value = CDec(txtpris.Text)
           cmd.Parameters.Add(New OleDbParameter("@Pro_Moms", OleDbType.Double)).Value = CDec(txtmoms.Text)
           cmd.Parameters.Add(New OleDbParameter("@Pro_Totalt", OleDbType.Double)).Value = CDec(txttotalt.Text)


         con.Open()
         cmd.ExecuteNonQuery()
         MsgBox("Done!")

         txtcode.Text = " "
         txtDes.Text = " "
         txtPris.Text = " "
         txtmoms.Text = " "
         txttotalt.Text = " "


     Catch ex As Exception
         MsgBox(ex.Message)
     Finally
         con.Close()
     End Try