VB tabla no existe

[Chanito]

Estimados tengo el siguiente problema me tira error 3078 que la tabla no existe o esta mal escrita lo cual ya verifique y si existe el error lo tira cuando hago el selct osea que la conexión esta bien !digo yo! que estoy haciendo mal?

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = OpenDatabase("DataServer", False, False,
"ODBC;DSN=DataServer;UID=ETLADM;PWD=ETLADM;DBQ =DAT A.SERVER")
Set RS = DB.OpenRecordset("SELECT *FROM NETWORK_ELEMENT")

RS.Close
DB.Close

DE ANTEMANO GRACIAS....

[David]

¿No será porque te falta un espacio después del *?. Algo como esto:

Código PHP:

  SELECT * FROM NETWORK_ELEMENT  
   

[Chanito]

ya se lo quite el espacio y siempre me tira lo mismo

[Avatar810]

Si mal no recuerdo MSSQL no es sensible a mayusculas pero otros si lo son. prueba poniendo el nombre de la BD y Tabla tal cual esta definido (MAY/min)

[Chanito]

nada amigo ya revise y la tabla existe le cambie minusculas le di SQL>select tabla_name from user_tables where table_name like 'tatata%'; y si existe...tambien le di SQL> select *from network_element; y me tira los registros que tiene la tabla que sera??

[Avatar810]

Y probaste realizar alguna otra consulta sobre alguna otra tabla (en lugar de la que te da error), con esto descartas por completo que el error esta en la conexion.
Y si tambien marca error pues hay que poner atencion en la conexion y no en el qry ya que yo no veo ningun error de sintaxis en el qry.

[Chanito]

Si ya probe con otra tabla y me tira el mismo error 3078 poniendole culaquier tabla da lo mismo...

[Avatar810]

Entonces el problema este en la conexion.
Que BD usas? Es local?

La sintaxis al abrir una base de datos con el método OpenDatabase es la siguiente:
Establece base de datos = workspace.OpenDatabase(<VAR>dbname</VAR>, <VAR>options</VAR>, <VAR>read-only</VAR>, <VAR>connect</VAR>)

[Chanito]

Es un BD oracle local yo me conecto con el excel asi:

'With ActiveSheet.QueryTables.Add(Connection:=Array(Arra y("ODBC;DSN=DataServer;UID=ETLADM;PWD=ETLADM;DBQ=D ATA.SERVER;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO =T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM"), Array("=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;P FC=10;TLO=O")), Destination:=Range(Miceldadestino))

PERO EL EXCEL ME LIMITA LA CANTIDAD DE REGISTROS QUE ME DEVUELVE LA CONSULTA PODRIAS INDICARME UNA FORMA DE CONECTARME CON VB YO NO TENGO MUCHA EXPERIENCIA Y CUALQUIER AYUDA ME SIRVE...

[Avatar810]

Pues la vdd se me acaban las opciones, lo unico que me viene a la mente es que tengas un error en el origen de datos o que tengas en 3 renglones separados tu SET DB (pues aqui asi aparece y a veces los toma como instrucciones independientes) o un ordenamiento equivocado en los argumentos de conexion.

Remarco la pregunta la BD/USR/PSW estan tal cual se definieron (MAY/min) vdd?

Prueba con esto
Set DB = OpenDatabase("DataServer", False, False, "DSN=DataServer;odbc;uid=ETLADM;pwd=ETLADM")
Set RS = DB.OpenRecordset("SELECT *FROM NETWORK_ELEMENT")

A ver si te sirve esta pag http://www.redcientifica.com/oracle/c0008p0003.html. Y me temos que se me terminaron los recurso.

[Chanito]

si los datos de PWD y USER estan bien solo por prueba le puse otro pasword y me presento un cuadro con el nobre del server el usuario y la contraseña asea que la conexion a la BD esta bien pero como que la declaracion de variables del recordset estan malas digo yo nose...gracias por intentar ayudarme revisare el link que me diste by

[Txoco]

Hola!

Lo primero es comprobar que el DSN funciona. Si el driver no te permite hacerlo desde la configuración de orígenes ODBC (algunos llevan un botón para testear la conexión), abre Access, crea una base de datos de prueba e intenta importar o vincular alguna tabla utilizando ese DSN.

Muchas veces los mensajes de error de Access son más descriptivos que los que devuelven los objetos ADO en VB.

Si esto funciona, habrá que revisar el código.

Por cierto, no escribas contraseñas cuando escribas mensajes, sustitúyelas por asteriscos o quítalas