Procedimiento con parametros me da error que puede ser

C:\Documents and Settings\thosiba\My Documents\Desarollo\VS
NET\ResTransitos\Trasitos\Trasitos\Principal.vb(265): El método 'CualAno'
tiene varias definiciones con firmas idénticas.




Private Sub CualAno(ByVal cual As String)

TransitosC = New ADODB.Connection

TransitosR = New ADODB.Recordset

Dim sSqlCargoC As String

Dim transitosDT As New DataTable

Dim transitosDA As New OleDb.OleDbDataAdapter

TransitosC.CursorLocation = ADODB.CursorLocationEnum.adUseClient

TransitosC.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nbase)

sSqlCargoC = "select numero , ano , empresa , exportador , deposito from
traslados order by ano where ano = '" & cual '"

TransitosR.Open(sSqlCargoC, TransitosC, ADODB.CursorTypeEnum.adOpenKeyset,
ADODB.LockTypeEnum.adLockOptimistic)

End Sub



Gracias

Viejo lo que sucede es que declaraste dos sobrecargas del procedimiento
CualAno en el que ambos reciben la misma cantidad de parametros y del
mismo
tipo:
CualAno(string)
CualAno(string)

ok

Saludos Cesarion from Colombia
"Dario" wrote in message
news:

C:\Documents and Settings\thosiba\My Documents\Desarollo\VS
NET\ResTransitos\Trasitos\Trasitos\Principal.vb(265): El método 'CualAno'
tiene varias definiciones con firmas idénticas.




Private Sub CualAno(ByVal cual As String)

TransitosC = New ADODB.Connection

TransitosR = New ADODB.Recordset

Dim sSqlCargoC As String

Dim transitosDT As New DataTable

Dim transitosDA As New OleDb.OleDbDataAdapter

TransitosC.CursorLocation = ADODB.CursorLocationEnum.adUseClient

TransitosC.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nbase)

sSqlCargoC = "select numero , ano , empresa , exportador , deposito from
traslados order by ano where ano = '" & cual '"

TransitosR.Open(sSqlCargoC, TransitosC,
ADODB.CursorTypeEnum.adOpenKeyset,
ADODB.LockTypeEnum.adLockOptimistic)

End Sub



Gracias