Referencia a objeto no establecida como instancia de un objeto.
Publicado por Miguel (281 intervenciones) el 09/11/2013 17:04:30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports System.Data.OleDb 'Para establecer la conexión con Access
Public Class frmCp
Inherits System.Windows.Forms.Form
Private cn As OleDbConnection 'Conexión
Private da As OleDbDataAdapter 'Maneja los registros de Cp
Private ds As DataSet 'Contine los datos de la tabla Cp
Private sw As Integer
Private fila As Integer
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
If sw = 1 ThenIf MessageBox.Show("¿Desea guardar el Cp?", "Añadir Cp", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
insertaCp()
End If
End If
If sw = 2 ThenIf MessageBox.Show("¿Desea Modificar el Cp?", "Modificar Cp", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
editarCp()
End If
End If
actualizarCp()
activaBotones(True)
End Sub
Sub insertaCp()
Try
Dim dr As DataRow
dr = ds.Tables("Cp").NewRow ' linea donde salta el error
dr(0) = Me.txtId.Text
dr(1) = Me.txtCp.Text
dr(2) = Me.txtPobla.Text
ds.Tables("Cp").Rows.Add(dr)
da.Update(ds, "cp")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub editarCp()
Try
Dim dr As DataRow
dr = ds.Tables("Cp").Rows(fila) ' linea donde salta el error
dr(1) = Me.txtCp.Text
dr(2) = Me.txtPobla.Text
da.Update(ds, "Cp")
Catch ex As OleDb.OleDbExceptionMessageBox.Show(ex.Errors.Count)
End Try
End Sub
Gracias de antemano.
Un saludo
Valora esta pregunta
0