Hola estoy usando una conexion ODBC para actualizar los datos de una hoja
excel, de esta forma
Set wrkODBC = CreateWorkspace("NuevoWorkspaceODBC", "", "", dbUseODBC)
Set conMiembros = wrkODBC.OpenConnection("conexion1", , ,
"ODBC;DSN=Agrupación;")
Set rstUtilidades = conMiembros.OpenRecordset(SQL)
SQL = "SELECT Miembros.N_Situación, Miembros.DNI, [Nombre] & ' ' &
[Apellido1] & ' ' & [Apellido2] AS NombreCompleto,
Agrupación.F_Incorporación, Agrupación.N_Indicativo, Agrupación.F_Baja "
SQL = SQL & " FROM Miembros INNER JOIN Agrupación ON Miembros.DNI =
Agrupación.DNI"
SQL = SQL & " WHERE (((Miembros.N_Situación) Like 1 Or
(Miembros.N_Situación) = 2) And ((Agrupación.N_Indicativo) Like 0)) Or
(((Agrupación.N_Indicativo) > 2))"
SQL = SQL & " ORDER BY [Nombre] & ' ' & [Apellido1] & ' ' & [Apellido2]"
Set rstMiembros = conMiembros.OpenRecordset(SQL)
LUego compruebo de esta manera si hay registros o no
If rstMiembros.RecordCount > 0 Then
El problema es q la primera vez q ejecuto la consulta SQL funciona
prefectamente, pero si la intento hacer por segunda vez no me debuelve ningun
registro
Cual puede ser el problema?
gracias
Leer las respuestas