CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Editar Un Registro

<< < (2/4) > >>

Tagasa:
Hola!
HE probado lo primero que me dices sin el insert el rpoblema es que no da error pero tampoco me añade ninguna linea. Dejo aqui el codigo a ver si alguien me puede decir donde puede estar el fallo:


--- Código: Text ---          Try            'Para coger los datos de de100m5            cnGOBEX400 = New SqlConnection(Cadena)            ComandoSQL = New SqlCommand(&#34;select * from De100m5&#34;, cnGOBEX400)            Dim cb As New OleDbCommandBuilder(DAaccess)             cnGOBEX400.Open()            Lector = ComandoSQL.ExecuteReader()             'Para meter los datos en access            DAaccess = New OleDbDataAdapter(&#34;Select * from de100m5&#34;, cadenaA)            DAaccess.Fill(DSaccess, &#34;de100m5&#34;)             dr = DSaccess.Tables(&#34;de100m5&#34;).NewRow             dr(0) = Me.txtOrden.Text            DAaccess.Update(DSaccess, &#34;de100m5&#34;)             MessageBox.Show(&#34;Grabados los datos&#34;)        Catch ex As Exception            MessageBox.Show(ex.Message)        End Try  
Saludossssssssssssssssssssssssssss :hola:
Tania

Tagasa:
Hola otra vez!

Solo comentra que he añadido esta linea detras de la de newrow:


--- Código: Text --- DSaccess.Tables(&#34;de100m5&#34;).Rows.Add(dr)  
Y ahora me da el siguiente Error:   :(

"Update requiere que InsertCommand sea valido cuando se pasa la colección DataRow con nuevas filas"

No se servira para que me digais donde  estoy haciendolo mal,  :blink:  pero ahi lo dejo...

Saludosssssssssssssss

Tania

jodijo5:
Try
           'Para coger los datos de de100m5
           cnGOBEX400 = New SqlConnection(Cadena)
           ComandoSQL = New SqlCommand("select * from De100m5", cnGOBEX400)
           Dim cb As New OleDbCommandBuilder(DAaccess)

           cnGOBEX400.Open()
           Lector = ComandoSQL.ExecuteReader()

           'Para meter los datos en access
           DAaccess = New OleDbDataAdapter("Select * from de100m5", cadenaA)
           DAaccess.Fill(DSaccess, "de100m5")

           dr = DSaccess.Tables("de100m5").NewRow

           dr(0) = Me.txtOrden.Text



DSaccess.Tables("de100m5").rows.add(dr)


           DAaccess.Update(DSaccess, "de100m5")

           MessageBox.Show("Grabados los datos")
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

Tagasa:
Hola!

Ya habia probado eso y me sigue dando el mismo fallo, no se porque puede ser... si alguien lo sabe... :unsure:

saludosssssssss :hola:

Tania

Tagasa:
Se me olvido decir que el fallo me da en la linea:


--- Código: Text --- DAaccess.Update(DSaccess, &#34;de100m5&#34;)  
Tania

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior