Diana
03 de Noviembre del 2003

Private Sub cmdaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaceptar.Click
'realizar cambios en bbdd
'update tabla set campo_numero=”&aux&” where campo_codigo=6”
cmdaceptar.Visible = False
cmdcancelar.Visible = False
cmdmodificar.Visible = True
Dim strConexion As String
Dim strsql As String
Dim objConexion As OleDbConnection
Dim objComando As OleDbDataAdapter
Dim cb As OleDbCommandBuilder
Dim objDS As New DataSet()
'Iniciamos el proceso de acceso a la fuente de datos
strConexion = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Inetpubwwwrootwebapplication8\GestionAvisos.mdb")
objConexion = New OleDbConnection(strConexion)
strsql = "update Ordenes set IdCliente= " & TextBox11.Text & ",FechaSolicitud= '" & TextBox2.Text & "',TelefonoContacto= " & TextBox7.Text & ",FaxContacto= " & TextBox8.Text & ",emailContacto= '" & TextBox9.Text & "' ,Importe= " & TextBox5.Text & ",IdEstado= " & TextBox4.Text & ",Contacto= '" & TextBox6.Text & "' ,Notas= '" & TextBox10.Text & "' where IdOrden= " & TextBox1.Text
objComando = New OleDbDataAdapter(strsql, strConexion)
'cb = New OleDbCommandBuilder(objComando)
objComando.Fill(objDS, "Ordenes")
objComando.Update(objDS, "Ordenes")


Rellenar_cajas(lblregistro.Text)


me da error a la hora de actualizar la bbdd, ayuda por favor, estoy en el trabajo!!