Este es el codigo que carga el combo de provincias:
'****Carga el Combo de Provincias****
Private Sub CargarListaProvincias()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim n As Integer
n = -1
cnn.ConnectionString = StrConn
cnn.Open
rst.Open "SELECT * FROM PROVINCIAS where EstadoProvincia = 'Habilitado'",
cnn, adOpenDynamic, adLockOptimistic
While Not rst.EOF
comboprovincias.AddItem rst.Fields("Provincia").Value, n + 1
rst.MoveNext
Wend
Set rst = Nothing
Set cnn = Nothing
End Sub
Eduardo Acuña
Jefe de Área Operativa
Los Tres Cerros Ltda.
Paraguay 776 Piso 11 (1057)
CABA Argentina
54-011-4312-8810
[email protected] <blocked::mailto:[email protected]>
_____
De: [email protected] [mailto:[email protected]] En nombre de Daniel
Calvin
Enviado el: Viernes, 16 de Enero de 2009 03:19 p.m.
Para: vbusers List Member
Asunto: [vbusers] Problemas con sintaxis
Eduardo
Ese texto lo saca de la combo, es el text correspondiente al item
seleccionado en el momento de invocar la función:
CargarListaComercializadores()
Asi que debe haber algo que te esta cambiando el select index de
comboprovincias.
Podrias para verificar hacer lo que te digo, en el evento click de
comboprovincias hace un:
Debug.print comboprovincias.listindex, comboprovincias.text
asi veras si luego de la selección algo hace que cambie el listindex de tu
combo a 0, que debe ser el item que te esta tomando.
Daniel Calvin
El 16 de enero de 2009 14:05, Eduardo - Los Tres Cerros Ltda.
<[email protected]> escribió:
La linea que me tira es esta: SELECT * FROM COMERCIALIZADORES where
EstadoComercializador = 'Habilitado' AND ProvinciaPertenece='Seleccione
Provincia'
-Por lo que veo no me esta tomando el valor del combo donde selecciono la
provincia.
-Si ejecuto la consulta desde access, agregandole valor a la provincia, me
retorna los valores correctamente.
Eduardo Acuña
Jefe de Área Operativa
Los Tres Cerros Ltda.
Paraguay 776 Piso 11 (1057)
CABA Argentina
54-011-4312-8810
[email protected]
_____
De: [email protected] [mailto:[email protected]] En nombre de Daniel
Calvin
Enviado el: Viernes, 16 de Enero de 2009 02:53 p.m.
Para: vbusers List Member
Asunto: [vbusers] Problemas con sintaxis
Hace lo siguiente:
agrega esta linea:
debug.print "SELECT * FROM COMERCIALIZADORES where EstadoComercializador =
'Habilitado' AND ProvinciaPertenece='" & comboprovincias.Text & "'"
Y fijate que te pone en la ventana de inmediato.
otra cosa, luego del open haces:
If rst.EOF = False Then
rst.MoveFirst
End If
Esto tiene sentido, solo se posicionará en eof luego del open se el
recordset esta vacio.
Fijate que retorna el Debug.print, incluso podes copiar el resulatdo y
tratar de ejecutarlo contra la database desde el analizador de consultas si
es SQL o como una consulta si es access.
Contame
Daniel Calvin
El 16 de enero de 2009 13:46, Eduardo - Los Tres Cerros Ltda.
<[email protected]> escribió:
El Query es el siguiente:
'****Carga el Combo de Comercializadores****
Private Sub CargarListaComercializadores()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim n As Integer
n = -1
cnn.ConnectionString = StrConn
cnn.Open
rst.Open "SELECT * FROM COMERCIALIZADORES where EstadoComercializador =
'Habilitado' AND ProvinciaPertenece='" & comboprovincias.Text & "'", cnn,
adOpenDynamic, adLockOptimistic
If rst.EOF = False Then
rst.MoveFirst
End If
While Not rst.EOF
comboComercializador.AddItem rst.Fields("Comercializador").Value, n + 1
rst.MoveNext
Wend
Set rst = Nothing
Set cnn = Nothing
End Sub
Eduardo Acuña
Jefe de Área Operativa
Los Tres Cerros Ltda.
Paraguay 776 Piso 11 (1057)
CABA Argentina
54-011-4312-8810
[email protected]
_____
De: [email protected] [mailto:[email protected]] En nombre de Daniel
Calvin
Enviado el: Viernes, 16 de Enero de 2009 02:38 p.m.
Para: vbusers List Member
Asunto: [vbusers] Problemas con sintaxis
Hola Eduardo
Me parece que tu problema es otro, vb no es sensible may/min. Podes tener
una variable declarada con ese nombre o mal escrito el nombre de la combo.
Te recomeindo que le habilites a todos los modulos el option explicit y
trates de compilar, ahi te va a decir claramente que te eta pasando, o
debería....
Fijate, si no es eso no se me ocurre... podes copiar las lineas donde armas
el query para que lo veamos???
Saludos
Daniel Calvin
2009/1/16 Eduardo - Los Tres Cerros Ltda. <[email protected]>
Hola a todos!
Quisiera hacerles una consulta, tengo un form con varios combos, uno se
llama comboProvincias, el problema es que al referenciarlo en una query, por
alguna razon automáticamente se cambia a comboprovincias (p minúscula)
entonces no me resuelve la Query.
Alguien sabe que puede estar pasando?
Saludos, buen finde y gracias a todos!
Eduardo Acuña
Jefe de Área Operativa
Los Tres Cerros Ltda.
Paraguay 776 Piso 11 (1057)
CABA Argentina
54-011-4312-8810
[email protected]
--
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional
--
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional
--
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional
