Demasiados argumentos para la sub
Publicado por Miguel (281 intervenciones) el 29/06/2017 19:52:16
Hola, tengo este código para verificar la existencia de una tabla en una Base de Datos en Access
En el punto (1) "Criterio" me da el error de "demasiados argumentos para la Sub".
Pueden alguien indicarme este error en que consiste.
Gracias y un saludo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ExistTable(ByVal cn As OleDb.OleDbConnection, ByVal miTabla As String) As Boolean
Try
Open("MP.accdb")
Dim dt As DataTable = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() _
{Nothing, Nothing, Nothing, "TABLE"})
Dim criterio As String = String.Format("TABLE_NAME = '{0}'", " & miTabla & ")
Dim rows() As DataRow = dt.Select(criterio) (1)
Return (rows.Length > 0)
Catch ex As Exception
Return False
Finally
cn.Close()
End Try
End Function
En el punto (1) "Criterio" me da el error de "demasiados argumentos para la Sub".
Pueden alguien indicarme este error en que consiste.
Gracias y un saludo
Valora esta pregunta
0
