Deberia Funcionar !!!!

hasta ahi todo va bien, el problema es que el visual
analiza al sentencia que le envio, y como no es igual a la
que ella trabaja, sale ese error, como hago para que no me
analize la sentencia, y lo mande de frente a la base de
datos para que lo ejecute

"Henry A." escribió en el mensaje
news:008601c3507e$94a26d40$

Que tal,
Recien estoy en esto del Visual basic 6.0, desde hace

poco.

tengo una consulta Urgente ya no se que hacer, nosotros
usamos la base de datos Multibase Cosmos, la conozco

poco

pero al menos tiene lo minimo.
cuando ejecuto este query en su analizador funciona

bien,

obtengo los registro que deberia, asi se usa su inner

join.

select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'

Hola, Henry

No se absolutamente nada acerca de "Cosmos". Normalmente,

una claúsula JOIN

(supongo que OUTER es una versión dialectal de OUTER

JOIN) se usa la

especificación de relación ON.

Si lo que quieres es obtener TODOS los registros

correspondientes a la serie

17 de la tabla 3 que tengan un registro relacionado en la

tabla 2 y en la

tabla 1, prueba con la sintaxis tradicional: FROM Tabla1,

Tabla2, Tabla3

WHERE...

En Access, los JOIN de más de dos tablas van "FROM

(Tabla1 JOIN Tabla2 ON

relacion1) JOIN Tabla3 ON relacion2", formalmente se

diría que requiere

asociaciones explícitas de izquierda a derecha.

Salud!

Leonardo
[MS MVP - VB]
(a pesar de lo cual nunca estoy seguro de nada)


.

Amigo mio estas usando el datacontrol y no el ADO data control OLEDB,
asegurate de esto, una vez que reemplaces el DAO datacontrol por el ADO data
control OLEDB en la propiedad connectionstring pone:

adodc1.connectionstring="UID3;PWD3;DSN½ATOS"

Destilada la opcion Microsoft DAO en Projecto --> Referencias
Recorda que tenes que usar la DBGRID OLEDB.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:0f2a01c35131$5ea36600$

En Projecto --> Referencias, que opcion tenes tildada
Microsoft DAO . o
Microsoft Activex Data Object ..

En este caso tengo tildada las dos

En Projecto --> Componentes tenes tildada la opcion
Microsoft ADO Data Control .

y en esta caso tengo tildada la opcion
Microsoft ADO Data Control .


Aqui te envio el codigo que uso para abrir la base de datos
uso el componente Data y en la propieda connect e puesto
esta codigo y me abre la base de datos sin problema

ODBC;UID3;PWD3;DSN½ATOS;

en la propiedad RecordSource le mando la sentencia

xSQL = "select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'"

Data.RecordSource = xSQL
Data.Refresh

Como te decia cuando le envio una sentencia sin
complicaciones como "Select * from articulo" funciona sin
ningun problema, pero cuando le envio la anterior
sentencia sale el error, pero yo pruebo en su analizador y
funciona sin problema, como le digo al componente Data,
que no me chequee la sentencia


Muy agradecido por tu ayuda

No entiendo como no sabes conque componentes estas

trabajando, vamos por el

principio:

En Projecto --> Referencias, que opcion tenes tildada

Microsoft DAO . o

Microsoft Activex Data Object ..

En Projecto --> Componentes tenes tildada la opcion

Microsoft ADO Data

Control .

Podrias enviar el codigo que usas para abrir la base de

datos y abrir el

recordset.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:062101c3509b$6de2f810$
Es correcto Victor yo trabajo con VB6, pero al parecer me
falta cambiar alguna propieda, por que me sigue saliendo
el bendito error

Tendrías que aclarar si usas el data-control de VB5 o

VB6, si usas el de VB6

este error no te tendría que pasar porque una de las

diferencias que tiene

DAO de ADO es que este ultimo, por mas que tengas

cursores del lado del

cliente, cuando abrís un recordset la sentencia de SQL no

la analiza ni la

ejecuta el Jet dado que directamente la sentencia es

enviada al proveedor

OLEDB.
Lo que te dice Saga con respecto a usar SQLPassthrough es

solamente

aplicable para DAO.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:008601c3507e$94a26d40$

Que tal,
Recien estoy en esto del Visual basic 6.0, desde hace

poco.

tengo una consulta Urgente ya no se que hacer, nosotros
usamos la base de datos Multibase Cosmos, la conozco

poco

pero al menos tiene lo minimo.
cuando ejecuto este query en su analizador funciona

bien,

obtengo los registro que deberia, asi se usa su inner

join.

select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'

pero cuando lo ejecuto en Visual Basic 6.0, en el
componente Data, me sale un error el cual dice

"Error de sintaxis en la clausula from"

tanto en diseno como en ejecucion.

pregunta:

1.- como se debe ejecutar esta sentencia, para que no

me

de error sabiendo que la sentencia esta bien, y hasta

la

puedo ejecutar en su propio analizador sin ningun

problema

estare atento a sus respuesta ya que estoy estancado en
esto.

Gracias de Antemano

.

.

Estimado Víctor Koch

Hice la pruebas, como indicas en el RecordSource pongo la
sentencia, y a la hora que al DataGrid le doy en el
DataSource = Adodc1
sale el error

"[Microsoft][Administrador de controladores ODBC] El
Controlador no admite esta funcion"

lo mismo me sale a la hora de ejecutar el programa.

Estare atento a tu respuesta

Gracias de Antemano

Amigo mio estas usando el datacontrol y no el ADO data

control OLEDB,

asegurate de esto, una vez que reemplaces el DAO

datacontrol por el ADO data

control OLEDB en la propiedad connectionstring pone:

adodc1.connectionstring="UID3;PWD3;DSN½ATOS"

Destilada la opcion Microsoft DAO en Projecto -->

Referencias

Recorda que tenes que usar la DBGRID OLEDB.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:0f2a01c35131$5ea36600$

En Projecto --> Referencias, que opcion tenes tildada
Microsoft DAO . o
Microsoft Activex Data Object ..

En este caso tengo tildada las dos

En Projecto --> Componentes tenes tildada la opcion
Microsoft ADO Data Control .

y en esta caso tengo tildada la opcion
Microsoft ADO Data Control .


Aqui te envio el codigo que uso para abrir la base de

datos

uso el componente Data y en la propieda connect e puesto
esta codigo y me abre la base de datos sin problema

ODBC;UID3;PWD3;DSN½ATOS;

en la propiedad RecordSource le mando la sentencia

xSQL = "select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'"

Data.RecordSource = xSQL
Data.Refresh

Como te decia cuando le envio una sentencia sin
complicaciones como "Select * from articulo" funciona sin
ningun problema, pero cuando le envio la anterior
sentencia sale el error, pero yo pruebo en su analizador y
funciona sin problema, como le digo al componente Data,
que no me chequee la sentencia


Muy agradecido por tu ayuda

No entiendo como no sabes conque componentes estas

trabajando, vamos por el

principio:

En Projecto --> Referencias, que opcion tenes tildada

Microsoft DAO . o

Microsoft Activex Data Object ..

En Projecto --> Componentes tenes tildada la opcion

Microsoft ADO Data

Control .

Podrias enviar el codigo que usas para abrir la base de

datos y abrir el

recordset.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:062101c3509b$6de2f810$
Es correcto Victor yo trabajo con VB6, pero al parecer me
falta cambiar alguna propieda, por que me sigue saliendo
el bendito error

Tendrías que aclarar si usas el data-control de VB5 o

VB6, si usas el de VB6

este error no te tendría que pasar porque una de las

diferencias que tiene

DAO de ADO es que este ultimo, por mas que tengas

cursores del lado del

cliente, cuando abrís un recordset la sentencia de SQL

no

la analiza ni la

ejecuta el Jet dado que directamente la sentencia es

enviada al proveedor

OLEDB.
Lo que te dice Saga con respecto a usar SQLPassthrough

es

solamente

aplicable para DAO.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:008601c3507e$94a26d40$

Que tal,
Recien estoy en esto del Visual basic 6.0, desde hace

poco.

tengo una consulta Urgente ya no se que hacer,

nosotros

usamos la base de datos Multibase Cosmos, la conozco

poco

pero al menos tiene lo minimo.
cuando ejecuto este query en su analizador funciona

bien,

obtengo los registro que deberia, asi se usa su inner

join.

select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'

pero cuando lo ejecuto en Visual Basic 6.0, en el
componente Data, me sale un error el cual dice

"Error de sintaxis en la clausula from"

tanto en diseno como en ejecucion.

pregunta:

1.- como se debe ejecutar esta sentencia, para que no

me

de error sabiendo que la sentencia esta bien, y hasta

la

puedo ejecutar en su propio analizador sin ningun

problema

estare atento a sus respuesta ya que estoy estancado

en

esto.

Gracias de Antemano

.

.

.

Te envio un programa, correlo y oprimi el boton EJECUTAR, despues contame.
Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:029701c35148$de861450$

Estimado Víctor Koch

Hice la pruebas, como indicas en el RecordSource pongo la
sentencia, y a la hora que al DataGrid le doy en el
DataSource = Adodc1
sale el error

"[Microsoft][Administrador de controladores ODBC] El
Controlador no admite esta funcion"

lo mismo me sale a la hora de ejecutar el programa.

Estare atento a tu respuesta

Gracias de Antemano

Amigo mio estas usando el datacontrol y no el ADO data

control OLEDB,

asegurate de esto, una vez que reemplaces el DAO

datacontrol por el ADO data

control OLEDB en la propiedad connectionstring pone:

adodc1.connectionstring="UID3;PWD3;DSN½ATOS"

Destilada la opcion Microsoft DAO en Projecto -->

Referencias

Recorda que tenes que usar la DBGRID OLEDB.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:0f2a01c35131$5ea36600$

En Projecto --> Referencias, que opcion tenes tildada
Microsoft DAO . o
Microsoft Activex Data Object ..

En este caso tengo tildada las dos

En Projecto --> Componentes tenes tildada la opcion
Microsoft ADO Data Control .

y en esta caso tengo tildada la opcion
Microsoft ADO Data Control .


Aqui te envio el codigo que uso para abrir la base de

datos

uso el componente Data y en la propieda connect e puesto
esta codigo y me abre la base de datos sin problema

ODBC;UID3;PWD3;DSN½ATOS;

en la propiedad RecordSource le mando la sentencia

xSQL = "select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'"

Data.RecordSource = xSQL
Data.Refresh

Como te decia cuando le envio una sentencia sin
complicaciones como "Select * from articulo" funciona sin
ningun problema, pero cuando le envio la anterior
sentencia sale el error, pero yo pruebo en su analizador y
funciona sin problema, como le digo al componente Data,
que no me chequee la sentencia


Muy agradecido por tu ayuda

No entiendo como no sabes conque componentes estas

trabajando, vamos por el

principio:

En Projecto --> Referencias, que opcion tenes tildada

Microsoft DAO . o

Microsoft Activex Data Object ..

En Projecto --> Componentes tenes tildada la opcion

Microsoft ADO Data

Control .

Podrias enviar el codigo que usas para abrir la base de

datos y abrir el

recordset.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:062101c3509b$6de2f810$
Es correcto Victor yo trabajo con VB6, pero al parecer me
falta cambiar alguna propieda, por que me sigue saliendo
el bendito error

Tendrías que aclarar si usas el data-control de VB5 o

VB6, si usas el de VB6

este error no te tendría que pasar porque una de las

diferencias que tiene

DAO de ADO es que este ultimo, por mas que tengas

cursores del lado del

cliente, cuando abrís un recordset la sentencia de SQL

no

la analiza ni la

ejecuta el Jet dado que directamente la sentencia es

enviada al proveedor

OLEDB.
Lo que te dice Saga con respecto a usar SQLPassthrough

es

solamente

aplicable para DAO.

Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:008601c3507e$94a26d40$

Que tal,
Recien estoy en esto del Visual basic 6.0, desde hace

poco.

tengo una consulta Urgente ya no se que hacer,

nosotros

usamos la base de datos Multibase Cosmos, la conozco

poco

pero al menos tiene lo minimo.
cuando ejecuto este query en su analizador funciona

bien,

obtengo los registro que deberia, asi se usa su inner

join.

select campo1, campo2, campo3
from tabla1, outer (tabla2, outer tabla3)
where tabla1.codigo=tabla2.codigo
and tabla2.serie=tabla3.serie
and tabla1.serie='017'

pero cuando lo ejecuto en Visual Basic 6.0, en el
componente Data, me sale un error el cual dice

"Error de sintaxis en la clausula from"

tanto en diseno como en ejecucion.

pregunta:

1.- como se debe ejecutar esta sentencia, para que no

me

de error sabiendo que la sentencia esta bien, y hasta

la

puedo ejecutar en su propio analizador sin ningun

problema

estare atento a sus respuesta ya que estoy estancado

en

esto.

Gracias de Antemano

.

.

.

begin 666 Form1.frm
M5D524TE/3B U+C P#0I/8FIE8W0@/2 B>S8W,SDW04$Q+3=&0C$M,3%$,"U"
M,30X+3 P03!#.3(,'TC-BXP(S B.R B35-!1$]$0RY/#0I/8FIE
M8W0@/2 B>T-$134W030P+3A".#8M,3%$,"U",T,V+3 P03!#.3!!14$X,GTC
M,2XP(S B.R B35-$051'4D0N3T-8(@T*0F5G:(N1F]R;2!&;W)M,2 -
M"B @($-A<'1I;VX@(" @(" @(" ](" @(D9O<FTQ(@T*(" @0VQI96YT2&5I
M9VAT(" @(#T@(" S,C0P#0H@("!#;&EE;G1,969T(" @(" @/2 @(#$X,# -
M"B @($-L:65N=%1O<" @(" @(" ](" @,C<Q-0T*(" @0VQI96YT5VED=&@@
M(" @(#T@(" W,C P#0H@("!,:6YK5&]P:6,@(" @(" @/2 @(")&;W)M,2(-
M"B @(%-C86QE2&5I9VAT(" @(" ](" @,S(T, T*(" @4V-A;&57:61T:" @
M(" @(#T@(" W,C P#0H@("!"96=I;B!60BY#;VUM86YD0G5T=&]N($-O;6UA
M;F0R( T*(" @(" @0V%P=&EO;B @(" @(" @(#T@(" B14I%0U5405(B#0H@
M(" @("!(96EG:'0@(" @(" @(" @/2 @(#,W-0T*(" @(" @3&5F=" @(" @
M(" @(" @(#T@(" T-#0P#0H@(" @("!486));F1E>" @(" @(" @/2 @(#,-
M"B @(" @(%1O<" @(" @(" @(" @(" ](" @,C<V, T*(" @(" @5VED=&@@
M(" @(" @(" @(#T@(" Q,C$U#0H@("!%;F0-"B @($)E9VEN(%9"+D-O;6UA
M;F1"qT;]M;6%N9#$@#0H@(" @("!#87!T:6]N(" @(" @(" @/2 @
M(")304Q)4B(-"B @(" @($AE:6=H=" @(" @(" @(" ](" @,S<U#0H@(" @
M("!,969T(" @(" @(" @(" @/2 @(#4W-C -"B @(" @(%1A8DEN9&5X(" @
M(" @(" ](" @,@T*(" @(" @5&]P(" @(" @(" @(" @(#T@(" R-S8P#0H@
M(" @("!7:61T:" @(" @(" @(" @/2 @(#$R,34-"B @($5N9 T*(" @0F5G
M:(N5&5X=$)O>"!497AT,2 -"B @(" @($AE:6=H=" @(" @(" @(" ]
M(" @,S<U#0H@(" @("!,969T(" @(" @(" @(" @/2 @(#$R, T*(" @(" @
M5&%B26YD97@@(" @(" @(#T@(" Q#0H@(" @("!497AT(" @(" @(" @(" @
M/2 @(")497AT,2(-"B @(" @(%1O<" @(" @(" @(" @(" ](" @,C$V, T*
M(" @(" @5VED=&@@(" @(" @(" @(#T@(" V.#4U#0H@("!%;F0-"B @($)E
M9VEN($U31&%T84=R:61,:6(N1&%T84=R:&%T84=R:60Q( T*(" @(" @
M0FEN9&EN9W,@(" @(" @(#T@(" B1F]R;3$N9G)X(CHP,# P#0H@(" @("!(
M96EG:'0@(" @(" @(" @/2 @(#$Y,S4-"B @(" @($QE9G0@(" @(" @(" @
M(" ](" @,3(P#0H@(" @("!486));F1E>" @(" @(" @/2 @(# -"B @(" @
M(%1O<" @(" @(" @(" @(" ](" @,3(P#0H@(" @("!7:61T:" @(" @(" @
M(" @/2 @(#8X-34-"B @(" @(%]%>'1E;G18(" @(" @(" ](" @,3(P.3$-
M"B @(" @(%]%>'1E;G19(" @(" @(" ](" @,S0Q,PT*(" @(" @7U9E<G-I
M;VX@(" @(" @(#T@(" S.3,R,38-"B @(" @($AE861,:6YE<R @(" @(" ]
M(" @,0T*(" @(" @4F]W2&5I9VAT(" @(" @(#T@(" Q-0T*(" @(" @0F5G
M:6Y0<F]P97)T>2!(96%D1F]N="![,$)%,S4R,#,M.$8Y,2TQ,4-%+3E$13,M
M,#!!03 P-$)".#4Q?2 -"B @(" @(" @($YA;64@(" @(" @(" @(" ](" @
M(DU3(%-A;G,@4V5R:68B#0H@(" @(" @("!3:7IE(" @(" @(" @(" @/2 @
M(#@N,C4-"B @(" @(" @($-H87)S970@(" @(" @(" ](" @, T*(" @(" @
M(" @5V5I9VAT(" @(" @(" @(#T@(" T,# -"B @(" @(" @(%5N9&5R;&EN
M92 @(" @(" ](" @," @("=&86QS90T*(" @(" @(" @271A;&EC(" @(" @
M(" @(#T@(" P(" @)T9A;'-E#0H@(" @(" @("!3=')I:V5T:')O=6=H(" @
M/2 @(# @(" G1F%L<V4-"B @(" @($5N9%!R;W!E<G1Y#0H@(" @("!"96=I
M;E!R;W!E<G1Y($9O;G0@>S!"13,U,C S+3A&.3$M,3%#12TY1$4S+3 P04$P
M,#1",7T@#0H@(" @(" @("!.86UE(" @(" @(" @(" @/2 @(")-4R!3
M86YS(%-E<FEF(@T*(" @(" @(" @4VEZ92 @(" @(" @(" @(#T@(" X+C(U
M#0H@(" @(" @("!#:&%R<V5T(" @(" @(" @/2 @(# -"B @(" @(" @(%=E
M:6=H=" @(" @(" @(" ](" @-# P#0H@(" @(" @("!5;F1E<FQI;F4@(" @
M(" @/2 @(# @(" G1F%L<V4-"B @(" @(" @($ET86QI8R @(" @(" @(" ]
M(" @," @("=&86QS90T*(" @(" @(" @4W1R:6ME=&AR;W5G:" @(#T@(" P
M(" @)T9A;'-E#0H@(" @("!%;F10<F]P97)T>0T*(" @(" @0V]L=6UN0V]U
M;G0@(" @(#T@(" R#0H@(" @("!"96=I;E!R;W!E<G1Y($-O;'5M;C P( T*
M(" @(" @(" @1&%T849I96QD(" @(" @(#T@(" B(@T*(" @(" @(" @0V%P
M=&EO;B @(" @(" @(#T@(" B(@T*(" @(" @(" @0F5G:6Y0<F]P97)T>2!$
M871A1F]R;6%T('LV1#@S-38Y,"TY,#!"+3$Q1# M.30X-"TP,$$P0SDQ,3$P
M141]( T*(" @(" @(" @(" @5'EP92 @(" @(" @(" @(#T@(" P#0H@(" @
M(" @(" @("!&;W)M870@(" @(" @(" @/2 @("(B#0H@(" @(" @(" @("!(
M879E5')U949A;'-E3G5L;#T@(" P#0H@(" @(" @(" @("!&:7)S=$1A>4]F
M5V5E:R @/2 @(# -"B @(" @(" @(" @($9I<G-T5V5E:T]F665A<B ](" @
M, T*(" @(" @(" @(" @3$-)1" @(" @(" @(" @(#T@(" Q,3(W- T*(" @
M(" @(" @(" @4W5B1F]R;6%T5'EP92 @(#T@(" P#0H@(" @(" @("!%;F10
M<F]P97)T>0T*(" @(" @16YD4')O<&5R='D-"B @(" @($)E9VEN4')O<&5R
M=']L=6UN,#$@#0H@(" @(" @("!$871A1FEE;&0@(" @(" @/2 @("(B
M#0H@(" @(" @("!#87!T:6]N(" @(" @(" @/2 @("(B#0H@(" @(" @("!"
M96=I;E!R;W!E<G1Y($1A=&%&;W)M870@>S9$.#,U-CDP+3DP,$(M,3%$,"TY
M-#@T+3 P03!#.3$Q,3!%1'T@#0H@(" @(" @(" @("!4>7!E(" @(" @(" @
M(" @/2 @(# -"B @(" @(" @(" @($9O<FUA=" @(" @(" @(" ](" @(B(-
M"B @(" @(" @(" @($AAõ4<G5E1F%L<V5.=6QL/2 @(# -"B @(" @(" @
M(" @($9I<G-T1&%Y3V97965K(" ](" @, T*(" @(" @(" @(" @1FER<W17
M965K3V9996%R(#T@(" P#0H@(" @(" @(" @("!,0TE$(" @(" @(" @(" @
M/2 @(#$Q,C<T#0H@(" @(" @(" @("!3=6)&;W)M8714>7!E(" @/2 @(# -
M"B @(" @(" @($5N9%!R;W!E<G1Y#0H@(" @("!%;F10<F]P97)T>0T*(" @
M(" @4W!L:71#;W5N=" @(" @(#T@(" Q#0H@(" @("!"96=I;E!R;W!E<G1Y
M(%-P;&ET," -"B @(" @(" @($)E9VEN4')O<&5R=']L=6UN,# @#0H@
M(" @(" @("!%;F10<F]P97)T>0T*(" @(" @(" @0F5G:6Y0<F]P97)T>2!#
M;VQU;6XP,2 -"B @(" @(" @($5N9%!R;W!E<G1Y#0H@(" @("!%;F10<F]P
M97)T>0T*(" @16YD#0H@("!"96=I;B!-4T%D;V1C3&EB+D%D;V1C($%D;V1C
M,2 -"B @(" @($AE:6=H=" @(" @(" @(" ](" @,S<U#0H@(" @("!,969T
M(" @(" @(" @(" @/2 @(#(T, T*(" @(" @5&]P(" @(" @(" @(" @(#T@
M(" R-S8P#0H@(" @("!7:61T:" @(" @(" @(" @/2 @(#(R.34-"B @(" @
M(%]%>'1E;G18(" @(" @(" ](" @-# T. T*(" @(" @7T5X=&5N=%D@(" @
M(" @(#T@(" V-C$-"B @(" @($-O;FYE8W1-;V1E(" @(" ](" @, T*(" @
M(" @0W5R<V]R3&]C871I;VX@(#T@(" S#0H@(" @("!)<V]L871I;VY,979E
M;" @/2 @("TQ#0H@(" @("!#;VYN96-T:6]N5&EM96]U=#T@(" Q-0T*(" @
M(" @0V]M;6%N9%1I;65Op@(#T@(" S, T*(" @(" @0W5R<V]R5'EP92 @
M(" @(#T@(" S#0H@(" @("!,;V-K5'EP92 @(" @(" @/2 @(#,-"B @(" @
M($-O;6UA;F14>7!E(" @(" ](" @. T*(" @(" @0W5R<V]R3W!T:6]N<R @
M(#T@(" P#0H@(" @("!#86-H95-I>F4@(" @(" @/2 @(#4P#0H@(" @("!-
M87A296-O<F1S(" @(" @/2 @(# -"B @(" @($)/1D%C=&EO;B @(" @(" ]
M(" @, T*(" @(" @14]&06-T:6]N(" @(" @(#T@(" P#0H@(" @("!#;VYN
M96-T4W1R:6YG5'EP93T@(" Q#0H@(" @("!!<'!E87)A;F-E(" @(" @/2 @
M(#$-"B @(" @($)A8VM#;VQO<B @(" @(" ](" @+3(Q-#<T.#,V-#,-"B @
M(" @($9O<F5#;VQO<B @(" @(" ](" @+3(Q-#<T.#,V-# -"B @(" @($]R
M:65N=&%T:6]N(" @(" ](" @, T*(" @(" @16YA8FQE9" @(" @(" @(#T@
M(" M,0T*(" @(" @0V]N;F5C=" @(" @(" @(#T@(" B(@T*(" @(" @3TQ%
M1$)3=')I;F<@(" @(#T@(" B(@T*(" @(" @3TQ%1$)&:6QE(" @(" @(#T@
M(" B(@T*(" @(" @1&%T85-O=7)C94YA;64@(#T@(" B(@T*(" @(" @3W1H
M97)!='1R:6)U=&5S(#T@(" B(@T*(" @(" @57-E<DYA;64@(" @(" @(#T@
M(" B(@T*(" @(" @4&%S<W=O<F0@(" @(" @(#T@(" B(@T*(" @(" @4F5C
M;W)D4V]U<F-E(" @(#T@(" B(@T*(" @(" @0V%P=&EO;B @(" @(" @(#T@
M(" B061O9&,Q(@T*(" @(" @0F5G:6Y0<F]P97)T>2!&;VYT('LP0D4S-3(P
M,RTX1CDQ+3$Q0T4M.41%,RTP,$%!,# T0D(X-3%]( T*(" @(" @(" @3F%M
M92 @(" @(" @(" @(#T@(" B35,@4V%N<R!397)I9B(-"B @(" @(" @(%-I
M>F4@(" @(" @(" @(" ](" @."XR-0T*(" @(" @(" @0VAA<G-E=" @(" @
M(" @(#T@(" P#0H@(" @(" @("!796EG:'0@(" @(" @(" @/2 @(#0P, T*
M(" @(" @(" @56YD97)L:6YE(" @(" @(#T@(" P(" @)T9A;'-E#0H@(" @
M(" @("!)=&%L:6,@(" @(" @(" @/2 @(# @(" G1F%L<V4-"B @(" @(" @
M(%-T<FEK971H<F]U9V@@(" ](" @," @("=&86QS90T*(" @(" @16YD4')O
M<&5R='D-"B @(" @(%]697)S:6]N(" @(" @(" ](" @,SDS,C$V#0H@("!%
M;F0-"D5N9 T*071T<FEBqE(%9"7TYA;64@/2 B1F]R;3$B#0I!='1R:6)U
M=&)?1VQO8F%L3F%M95-P86-E(#%L<V4-"D%T=')I8G5T92!60E]#
M<F5A=&%B;&4@/2!&86QS90T*071T<FEBqE(%9"7U!R961E8VQA<F5D260@
M/2!4<G5E#0I!='1R:6)U=&)?17AP;W-E9" ]($9A;'-E#0H-"E!R:79A
M=&($-O;6UA;F0Q7T-L:6-K*"D-"B @("!/;B!%<G)O<B!297-U;64@
M3F5X= T*(" @($%D;V1C,2Y296-O<F1S970N0VQO<V4-"B @("!%;F0-"D5N
M9"!3=6(-"@T*4')I=F%T92!3=6(@0V]M;6%N9#)?0VQI8VLH*0T*(" @($]N
M($5R<F]R($=O5&\@97(-"B @("!!9&]D8S$N4F5C;W)D4V]U<F-E(#&5X
M=#$N5&5X= T*(" @($%D;V1C,2Y2969R97-H#*(" @($5R<BY.
M=6UB97(@/2 P#0H@(" @17AI="!3=6(-"*(" @($US9T)O>" B17)R
M;W(Z("(@)B!%<G(N3G5M8F5R("8@(B @(B F($5R<BY$97-C<FEP=&EO;@T*
M(" @(%)E<W5M92!386QE#0H@(" @#0I%;#0H-"E!R:79A=&
M($9O<FU?3&]A9"@I#0H@(" @5&5X=#$N5&5X=" ](")%M<&\Q
M+"!C86UP;S(L(&-A;7!O,R!F<F]M('1A8FQA,2P@;W5T97(@*'1A8FQA,BP@
M;W5T97(@=&%B;&$S*2!7:&5R92!T86)L83$N8V]D:6=O(#T@=&%B;&$R+F-O
M9&EG;R!A;F0@=&%B;&$R+G-E<FEE/71A8FQA,RYS97)I92!A;F0@=&%B;&$Q
M+G-E<FEE/2<P,3<G(@T*(" @($%D;V1C,2Y#;VYN96-T:6]N4W1R:6YG(#T@
M(D133CU"1$%43U,[54E$/3$R,SM05T0],3(S(@T*(" @($%D;V1C,2Y#=7)S
M;W),;V-A=&EO;B ](&%D57-E0VQI96YT#0H@(" @061O9&,Q+D-O;6UA;F14

7!E(##;61497AT#0I%;#0H-"@T*

`
end

begin 666 Proyecto1.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<5TE.1$]74UQ365-414U<<W1D;VQE,BYT;&(C3TQ%($%U=&]M871I;VX-
M"D]B:F5C=#U[-C<S.3=!03$M-T9",2TQ,40P+4(Q-#@M,#!!,$,Y,C)%.#(P
M?2,V+C C,#!1$]$0RY/"D]B:F5C=#U[0T1%-3=!-# M.$(X-BTQ
M,40P+4(S0S8M,#!!,$,Y,$%%?2,Q+C C,#$051'4D0N3T-8#0I2
M969E<F5N8V4]*EQ'>S P,# P,C U+3 P,# M,# Q,"TX,# P+3 P04$P,#9$
M,D5!-'TC,BXU(S C+BY<+BY<+BY<05)#2$E63U,@1$%)/1U)!34%<05)#
M2$E63U,@0T]-54Y%4UQ365-414U<041/7&US861O,C4N=&QB(TUI8W)O<V]F
M="!!8W1Iõ8($1A=&$@3V)J96-T<R R+&EB<F%R>0T*4F5F97)E;F-E
M/2I<1WLU-D)&.3 R,"TW03)&+3$Q1# M.30X,BTP,$$P0SDQ,3$P141](S$N
M,",P(RXN7"XN7"XN7%=)3D1/5U-<4UE35$5-7$U30DE.1"Y$3$PC36EC<F]S
M;V9T($1A=&$@0FEN9&EN9R!#;VQL96-T:6]N(%9"(#8N," H4U T*0T*4W1A
M<G1U<#TB1F]R;3$B#0I#;VUM86YD,S(](B(-"DYA;64](E!R;WEE8W1O,2(-
M"DAE;'!#;VYT97AT240](C B#0I#;VUP871I8FQE36]D93TB,"(-"DUA:F]R
M5F5R/3$-"DUI;F]R5F5R/3 -"E)EþS:6]N5F5R/3 -"D%U=&]);F-R96UE
M;G1697(], T*4V5RõR4W5P<&]R=$9I;&5S/3 -"E9E<G-I;VY#;VUP86YY
M3F%M93TB5V%L9&)O='0@)B!!<V]C+B!3+D$N(@T*0V]M<&EL871I;VY4>7!E
M/3 -"D]P=&EM:7IA=&EO;E1Y<&4], T*1F%V;W)096YT:75M4')O*'1M*3TP
M#0I#;V1E5FEE=T1E8G5G26YF;STP#0I.;T%L:6%S:6YG/3 -"D)O=6YD<T-H
M96-K/3 -"D]V97)F;&]W0VAE8VL], T*1FQ0;VEN=$-H96-K/3 -"D9$259#
M:&5C:STP#0I5;G)O=6YD961&4#TP#0I3=&%R=$UO9&4], T*56YA='1E;F1E
M9#TP#0I2971A:6YE9#TP#0I4:')E861097)/8FIE8W0], T*36%X3G5M8F5R
-3V94:')E861S/3$-"@``
`
end

begin 666 Form1.frx
5QOH!`"H````&061O9&,Q````````
`
end

begin 666 Proyecto1.vbw
L1F]R;3$@/2 U,2P@,3DT+" U,SDL(#0S-RP@+" P+" P+" P+" P+"!##0H`
`
end

Que tal Victor
me sale 2 mensajes de error

El primero
la operacion no esta permitida si el objeto esta abierto

El segundo
Error:3705 Error definido por la aplicación o el objeto





"Victor Koch" escribió en el mensaje
news:

Te envio un programa, correlo y oprimi el boton EJECUTAR, despues contame.
Un saludo, Víctor Koch.


"Henry A." escribió en el mensaje
news:029701c35148$de861450$

Estimado Víctor Koch

Hice la pruebas, como indicas en el RecordSource pongo la
sentencia, y a la hora que al DataGrid le doy en el
DataSource = Adodc1
sale el error

"[Microsoft][Administrador de controladores ODBC] El
Controlador no admite esta funcion"

lo mismo me sale a la hora de ejecutar el programa.

Estare atento a tu respuesta

Gracias de Antemano






>Amigo mio estas usando el datacontrol y no el ADO data
control OLEDB,
>asegurate de esto, una vez que reemplaces el DAO
datacontrol por el ADO data
>control OLEDB en la propiedad connectionstring pone:
>
>adodc1.connectionstring="UID3;PWD3;DSN½ATOS"
>
>Destilada la opcion Microsoft DAO en Projecto -->
Referencias
>Recorda que tenes que usar la DBGRID OLEDB.
>
>Un saludo, Víctor Koch.
>
>
>"Henry A." escribió en el mensaje
>news:0f2a01c35131$5ea36600$
>
>En Projecto --> Referencias, que opcion tenes tildada
>Microsoft DAO . o
>Microsoft Activex Data Object ..
>
>En este caso tengo tildada las dos
>
>En Projecto --> Componentes tenes tildada la opcion
>Microsoft ADO Data Control .
>
>y en esta caso tengo tildada la opcion
>Microsoft ADO Data Control .
>
>
>Aqui te envio el codigo que uso para abrir la base de
datos
>uso el componente Data y en la propieda connect e puesto
>esta codigo y me abre la base de datos sin problema
>
>ODBC;UID3;PWD3;DSN½ATOS;
>
>en la propiedad RecordSource le mando la sentencia
>
>xSQL = "select campo1, campo2, campo3
>from tabla1, outer (tabla2, outer tabla3)
>where tabla1.codigo=tabla2.codigo
>and tabla2.serie=tabla3.serie
>and tabla1.serie='017'"
>
>Data.RecordSource = xSQL
>Data.Refresh
>
>Como te decia cuando le envio una sentencia sin
>complicaciones como "Select * from articulo" funciona sin
>ningun problema, pero cuando le envio la anterior
>sentencia sale el error, pero yo pruebo en su analizador y
>funciona sin problema, como le digo al componente Data,
>que no me chequee la sentencia
>
>
>Muy agradecido por tu ayuda
>
>
>
>
>
>
>
>
>>No entiendo como no sabes conque componentes estas
>trabajando, vamos por el
>>principio:
>>
>>En Projecto --> Referencias, que opcion tenes tildada
>Microsoft DAO . o
>>Microsoft Activex Data Object ..
>>
>>En Projecto --> Componentes tenes tildada la opcion
>Microsoft ADO Data
>>Control .
>>
>>Podrias enviar el codigo que usas para abrir la base de
>datos y abrir el
>>recordset.
>>
>>Un saludo, Víctor Koch.
>>
>>
>>"Henry A." escribió en el mensaje
>>news:062101c3509b$6de2f810$
>>Es correcto Victor yo trabajo con VB6, pero al parecer me
>>falta cambiar alguna propieda, por que me sigue saliendo
>>el bendito error
>>
>>
>>
>>
>>
>>
>>>Tendrías que aclarar si usas el data-control de VB5 o
>>VB6, si usas el de VB6
>>>este error no te tendría que pasar porque una de las
>>diferencias que tiene
>>>DAO de ADO es que este ultimo, por mas que tengas
>>cursores del lado del
>>>cliente, cuando abrís un recordset la sentencia de SQL
no
>>la analiza ni la
>>>ejecuta el Jet dado que directamente la sentencia es
>>enviada al proveedor
>>>OLEDB.
>>>Lo que te dice Saga con respecto a usar SQLPassthrough
es
>>solamente
>>>aplicable para DAO.
>>>
>>>Un saludo, Víctor Koch.
>>>
>>>
>>>"Henry A." escribió en el mensaje
>>>news:008601c3507e$94a26d40$
>>>> Que tal,
>>>> Recien estoy en esto del Visual basic 6.0, desde hace
>>poco.
>>>>
>>>> tengo una consulta Urgente ya no se que hacer,
nosotros
>>>> usamos la base de datos Multibase Cosmos, la conozco
>>poco
>>>> pero al menos tiene lo minimo.
>>>> cuando ejecuto este query en su analizador funciona
>>bien,
>>>> obtengo los registro que deberia, asi se usa su inner
>>join.
>>>>
>>>> select campo1, campo2, campo3
>>>> from tabla1, outer (tabla2, outer tabla3)
>>>> where tabla1.codigo=tabla2.codigo
>>>> and tabla2.serie=tabla3.serie
>>>> and tabla1.serie='017'
>>>>
>>>> pero cuando lo ejecuto en Visual Basic 6.0, en el
>>>> componente Data, me sale un error el cual dice
>>>>
>>>> "Error de sintaxis en la clausula from"
>>>>
>>>> tanto en diseno como en ejecucion.
>>>>
>>>> pregunta:
>>>>
>>>> 1.- como se debe ejecutar esta sentencia, para que no
>me
>>>> de error sabiendo que la sentencia esta bien, y hasta
>la
>>>> puedo ejecutar en su propio analizador sin ningun
>>problema
>>>>
>>>> estare atento a sus respuesta ya que estoy estancado
en
>>>> esto.
>>>>
>>>> Gracias de Antemano
>>>>
>>>
>>>
>>>.
>>>
>>
>>
>>.
>>
>
>
>.
>