Positive Werte in negative Werte konvertieren und Access-Tabelle speichern

Question

Ich bin neu in VB.Net und Access. Ich versuche, Wert in TextBox zu erfassen und es dann in Negativ zu konvertieren und es in der DB zu speichern. Was immer ich mache, speichert den Wert immer noch in der positiven Ganzzahl.

Vielen Dank im Voraus

ist hier mein Code:

Public Class Form3 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    Dim sqlconn As New OleDb.OleDbConnection 
    Dim sqlquery As New OleDb.OleDbCommand 
    Dim connString As String 
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\neetals\Documents\Visual Studio 2010\Projects\xx\xx\DailyTotal.mdb" 
    Dim xAmt As Integer 
    xAmt = Convert.ToDecimal(txtAmt.Text) 

    xAmt = (xAmt * -1) 



    If String.IsNullOrEmpty(txtAmt.Text) Then 

     MsgBox("Amount Value Cannot be Empty") 

    ElseIf String.IsNullOrEmpty(txtNotes.Text) Then 

     MsgBox("Notes Cannot be Empty") 

    Else 


     sqlquery.Parameters.AddWithValue("@xdate", DateTimePicker1) 
     sqlquery.Parameters.AddWithValue("@xAmt", txtAmt.Text) 
     sqlquery.Parameters.AddWithValue("@note", txtNotes.Text) 

     Try 


      sqlconn.ConnectionString = connString 
      sqlquery.Connection = sqlconn 
      sqlconn.Open() 
      sqlquery.CommandText = "INSERT INTO Cash(cdate, cAmt, cNotes) VALUES(@xdate,@xAmt, @note)" 

      'Math.Abs(-xAmt) 




      sqlquery.ExecuteNonQuery() 
      sqlconn.Close() 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 


     End Try 
    End If 
End Sub 

End Class

Answer 1

Sie Ihren Wert zu berechnen ...

xAmt = Convert.ToDecimal(txtAmt.Text) 
xAmt = (xAmt * -1) 

aber dann nicht Sie verwenden die xAmt Variable, aber das Textfeld wieder (das immer noch den ursprünglichen Wert hat):

sqlquery.Parameters.AddWithValue("@xAmt", txtAmt.Text)