Visual Basic para Aplicaciones - update access

Life is soft - evento anual de software empresarial
   
Vista:

update access

Publicado por Enrique  (1 intervención) el 16/03/2009 15:39:03
Hola quiero exponeros mi duda porque por mucho que he mirado por foros no consigo dar con la respuesta a como grabo un dato en una tabla de access, no llevo mucho tocando este legnuaje y agradecería mucho cualquier ayuda que me pudierais brindar, el código es el siguiente:
Dim cam As Decimal
Dim da As Decimal
Dim conexion As New OleDbConnection
Dim datos As New DataTable
Dim comando As New OleDbCommand
Dim dr As OleDbDataReader
Dim dw As OleDbDataAdapter
Dim dat As DataSet

Dim cont As Decimal
If cb > 0 Then
da = cb
Else
da = 1
End If
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:monedas.mdb"
conexion.Open()
comando.Connection = conexion
comando.CommandType = CommandType.Text
comando.CommandText = "Select valor, contador from moneda where cambio = '" & ComboBox2.Text & "'"
'comando.UpdatedRowSource = "update cont in contador from moneda where cambio ='" & ComboBox2.Text & "'"
dat = New DataSet
dr = comando.ExecuteReader()
dw = New OleDbDataAdapter
If dr.Read Then
cb = dr.GetDecimal(0)
cont = dr.GetDecimal(1)
cont = CInt(cont + 1)

Lo que deseo es que se grabe el valor de cont en una db llamada monedas en la columna contador y de verdad que he probado con todo menos con lo que es :)

Muchas gracias por anticipado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder