Problema al Guardar datos en una base de datos sql server con vb.net

[Carlojas]

Que tal darknightroad, puedes probar tu código de esta manera.

Código vb:

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) ' 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).Select("id = " + RowId.ToString + "")(0)
            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)
            adp.Update(ds)
            ds.Tables(0).AcceptChanges()
            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
 

El cambio en esta línea de código

Código vb:

Dim fila As DataRow = ds.Tables(0).Rows.Find(RowId)
 

Por esta:

Código vb:

Dim fila As DataRow = ds.Tables(0).Select("id = " + RowId.ToString + "")(0)
 

En la parte del Select(EL NOMBRE DE TU CAMPO EN LA TABLA = " + RowId.ToString + ")

Y tambien en este link una breve explicación del porque te salia el mensaje de "La tabla no tiene una clave principal"


Saludos.