SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: jodijo5 en Martes 17 de Enero de 2006, 23:54

Título: Una Excepcion
Publicado por: jodijo5 en Martes 17 de Enero de 2006, 23:54
hola amigos tengo este codigo:
Código: Text
  1.  
  2. Try : cn.Open() : Catch ex As Exception : End Try
  3. Try : ds.Tables.Remove("contratoarrendatario") : Catch ex As Exception : End Try
  4.  
  5. mida = New SqlDataAdapter("select * from contratoarrendamiento", cn)
  6.         mida.Fill(ds, "contratoarrendamiento")
  7.         dr = ds.Tables("contratoarrendamiento").NewRow
  8.         dr(0) = Int(txtnumero.Text)
  9.         dr(1) = Int(txtgarantia.Text)
  10.         dr(2) = Date.Today
  11.         dr(3) = pinmeses.Value
  12.         dr(4) = dtpfechain.Value
  13.         dr(5) = CDate(txtfechafin.Text)
  14.         dr(6) = cbotipo.SelectedIndex
  15.         dr(7) = cbluz.Checked
  16.         dr(8) = txtguardaren.Text
  17.         dr(9) = 1
  18.         dr(10) = "yo"
  19.         ds.Tables("contratoarrendamiento").Rows.Add(dr)
  20.         mida.Update(ds, "contratoarrendamiento")
  21.  
  22.  
pero me sale esta exepcion, y no entiendo porqué:

Citar
Excepción no controlada del tipo 'System.InvalidOperationException' en system.data.dll

Información adicional: Update requiere que InsertCommand sea válido cuando se pasa la colección DataRow con nuevas filas.

eh verificado bien las relaciones entre las tablas, los mismos datos y tipos de datos de mi base de datos, y todo está  :lol: ;

gracias de antemano por su ayuda
Título: Re: Una Excepcion
Publicado por: Güorker en Miércoles 18 de Enero de 2006, 08:48
Hola,

Tu error se debe a que ese DataAdapter no tiene definido un Command para hacer INSERT a la base de datos.
No se si tu intención es añadir un registro a la base de datos, pero si es así deberías utilizar el CommandBuilder para el DataAdapter.

Ejemplo:
Código: Text
  1.  
  2.     Dim myConn As New SqlConnection(myConnection)
  3.     Dim myDataAdapter As New SqlDataAdapter()
  4.     myDataAdapter.SelectCommand = New SqlCommand(mySelectQuery, myConn)
  5.     Dim cb As SqlCommandBuilder = New SqlCommandBuilder(myDataAdapter)
  6.  
  7.  

Saludos y Suerte
Título: Re: Una Excepcion
Publicado por: jodijo5 en Viernes 20 de Enero de 2006, 00:06
copachay muchas gracias, tenias toda la razon, ya me funcionó