Hola a todos, pues estoy haciendo una pequeña aplicacion en VB.NET, en la parte de actualizar un valor en particular, me lanza un error:
"
Excepción no controlada del tipo 'System.NullReferenceException' en y.exe
Información adicional: Referencia a objeto no establecida como instancia de un objeto.
"
entiendo que el error esta en estea linea:
sql = "UPDATE cuentas SET saldo=" & Me.newsaldo & "WHERE no_tarjeta LIKE " & Me.userreg
yo ya verifique que estas variables tenga valores, que es lo que estoy haciendoa mal??, les agradecere sus consejos
aqui va todo el codigo, gracias:
mi codigo es el siguiente:
Dim strcon As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = C:\CAJERO\base\CAJERO_AUTOMATICO.mdb"
Dim strcuenta As String
Dim strbill As String
Dim da1 As OleDbDataAdapter
Dim da2 As OleDbDataAdapter
Dim dscuenta As New DataSet()
Dim dsbill As New DataSet()
Dim miconex As OleDbConnection
Dim sql As String
'Dim mycommand As New OleDbCommand()
Dim ocmd As OleDbCommand
Dim introws As Integer
Public userreg 'pasado por valor
Public saldocue 'pasado por valor
Dim cansol As Integer
Dim newsaldo As Integer
Dim newbill As Integer
Private Sub form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
miconex = New OleDbConnection(strcon)
miconex.Open()
strcuenta = "select no_tarjeta, saldo from cuentas where no_tarjeta = '" + Me.userreg + "'"
da1 = New OleDbDataAdapter(strcuenta, strcon)
da1.Fill(dscuenta, "cuentas")
strbill = "select c_bill$1, c_bill$5, c_bill$10, c_bill$20, c_bill$50, c_bill$100 from inventarios where cod_cajero='1111'"
da2 = New OleDbDataAdapter(strbill, strcon)
da2.Fill(dsbill, "billetes")
With dsbill.Tables("billetes").Rows(0)
acbill5 = .Item("c_bill$5")
acbill10 = .Item("c_bill$10")
acbill20 = .Item("c_bill$20")
acbill100 = .Item("c_bill$100")
End With
End Sub
Private Sub b5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b5.Click
cansol = 5
If saldocue < cansol Then
MsgBox("Su solicitud traspasa su saldo disponible, Ud puede solicitar un maximo de: " & saldocue, MsgBoxStyle.Critical)
Else
newsaldo = saldocue - cansol
newbill = acbill5 - 1
'inicia rutina de actualizacion de datos
sql = "UPDATE cuentas SET saldo=" & Me.newsaldo & "WHERE no_tarjeta LIKE " & Me.userreg
ocmd.CommandText = sql
ocmd.Connection = miconex
ocmd.ExecuteNonQuery()
MsgBox("Tome su dinero", MsgBoxStyle.Information)
'fin rutina actualizacion de datos
End If
End Sub
