Visual Basic.NET - sale un error que se muestra en diferentes partes

   
Vista:

sale un error que se muestra en diferentes partes

Publicado por Miguel (56 intervenciones) el 07/01/2014 17:54:32
Puede alguien ayudarme a detectar este fallo en este código

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
Option Explicit On
Imports System.Data.OleDb
 
Public Class clsInsertaReg
    Private da As OleDbDataAdapter
    Private ds As DataSet
 
    Public Function AñadeReg(ByVal cn As OleDbConnection, ByVal Tabla As String, ByVal valores() As String) As Boolean
        Dim Param As Long
        Dim I As Integer
        Dim dr As DataRow
        Try
            Param = UBound(valores) - 1
            dr = ds.Tables(Tabla).NewRow    ' en esta linea da el error
            For I = 0 To Param
                dr(I) = valores(I)
            Next
            ds.Tables(Tabla).Rows.Add(dr)
            da.Update(ds, Tabla)
            AñadeReg = True
        Catch ex As OleDb.OleDbException
            AñadeReg = False
        Finally
            If cn IsNot Nothing AndAlso cn.State <> ConnectionState.Closed Then
                cn.Close()
            End If
        End Try
    End Function
End Class

Gracias y un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

sale un error que se muestra en diferentes partes

Publicado por xve (88 intervenciones) el 07/01/2014 19:26:11
Hola Miguel, pero que error te da?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

sale un error que se muestra en diferentes partes

Publicado por Antaury (2 intervenciones) el 07/01/2014 19:27:59
el nombre de la tabla de be ir con comillas

dr = ds.Tables("Tabla").NewRow
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

sale un error que se muestra en diferentes partes

Publicado por Miguel Arce (56 intervenciones) el 08/01/2014 09:19:45
Después de enviarlo me di cuenta y lo corregi, pero sigue fallando igual

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
Option Explicit On
Imports System.Data.OleDb
 
Public Class clsInsertaReg
    Private da As OleDbDataAdapter
    Private ds As DataSet
    Private dt As DataTable
 
    Public Function AñadeReg(ByVal cn As OleDbConnection, ByVal Tabla As String, ByVal valores() As String) As Boolean
        Dim Param As Long
        Dim I As Integer
        Try
            Param = UBound(valores) - 1
            Dim dr As DataRow
            dr = ds.Tables("'" & Tabla & "'").NewRow     'linea donde salta a Finally
            For I = 0 To Param
                dr(I) = valores(I)
            Next
            ds.Tables("'" & Tabla & "'").Rows.Add(dr)
            da.Update(ds, "'" & Tabla & "'")
            AñadeReg = True
        Catch ex As OleDb.OleDbException
            AñadeReg = False
        Finally
            If cn IsNot Nothing AndAlso cn.State <> ConnectionState.Closed Then
                cn.Close()
            End If
        End Try
    End Function
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

sale un error que se muestra en diferentes partes

Publicado por Antaury (2 intervenciones) el 08/01/2014 19:57:47
solo tienes q poner comillas "tabla"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar