Hola Buen dia, tengo un problema estoy tratando de hacer un programa para guardar los documentos de los empleados de una empresa(el codigo lo hico otra persona así que no se que esta mal), el detalle es que puedo guardar los documentos en la base de datos de sql server 2005, pero si me falta algun dato y la quiero agregar posteriormente no puedo, en algunas ocasiones me indica que no existe la tabla 0 (mas adelante agrego el codigo), otras veces me dice que la tabla no tiene llave primaria(pero si tiene asi que no se por que no quiere)
A continuacion les agrego el codigo:
Public Function ModifDocs(ByVal Cedula As String, ByVal RowId As Integer) As Boolean
Try
Dim conect As New SqlConnection(My.Settings.AccesoConnectionString)
conect.Open()
Dim ds As New DataSet
Dim adp As New SqlDataAdapter("Select * from Det_Doc", conect)
adp.Fill(ds, "Det_Doc")' cuando agrego esta linea me marca que la tabla no tiene clave principal, pero si se la quito me sale que no existe la tabla 0
Dim fila As DataRow = ds.Tables(0).Rows.Find(RowId)
fila.BeginEdit()
fila("Cedula") = Cedula
fila("Fot_Ced") = Fot_cedCheckBox.Checked
fila("Par_Nac") = Par_NacCheckBox.Checked
fila("Par_NacHijos") = Par_NacHijosCheckBox.Checked
fila("Par_NacPadres") = PAr_NacPadresCheckBox.Checked
fila("Acta_Matrimonio") = Acta_MatrimonioCheckBox.Checked
'fila("Dec_jurada") = Dec_JuradaCheckBox.Checked
'fila("Fondo Negro") = Fondo_negroCheckBox.Checked
fila("Observaciones") = ObservacionesTextBox.Text
fila.EndEdit()
Dim cb As New SqlCommandBuilder(adp)
ds.Tables(0).AcceptChanges()
adp.Update(ds)
Return True
conect.Close()
Catch ex As DataException
MessageBox.Show(ex.Message)
Return False
Catch ex2 As SqlException
MessageBox.Show(ex2.Message)
Return False
End Try
End Function
Ese es el codigo de la funcion espero que me puedan ayudar, ya llevo alrededor de 2 meses tratando de arreglarlo, y en internet no encuentro lo que necesito.
Espero respuesta, Muchas Gracias a todos los que me puedan contestar
