Visual Basic - Consulta SQL corregido

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 86 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta SQL corregido

Publicado por Matias (136 intervenciones) el 21/09/2007 22:19:24
Buenas chicos miren tengo estas tres tablas

esta consulta estaba mal escrita asique al pongo de neuvo...gracias
sucursal
-------------
codsucu codigo de la sucursal
codbanco codigo del banco al que pertenece la sucursal
sucursal codigo de la localidad de la sucursal

banco
----------
codbanco codigo del banco
nombre nombre del banco

loclaidades
-----------------

codpostal codigo de la ciudad
nombre nombre de la ciudad

el tema es que tengo en un combo3 todos los bancos y e el evento click del combo quiero agregar todas las sucursales de ese banco al combo4 (las sucursales son ciudades)
entonces hago esto

Private Sub Combo3_Click()
Dim strsql As String
strsql = "select * from banco, localidades, sucursal where banco.nombre='" & Combo3.Text & "' "
strsql = strsql & " and banco.codbanco = sucursal.codbanco and sucursal.sucursal = localidades.codpostal"
Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.EOF = True Then
mensaje = "No hay sucursales de este banco cargadas"
If MsgBox(mensaje, vbInformation + vbOKOnly, "No existen sucursales") = vbOK Then
Combo4.Clear
Exit Sub
End If
End If
Combo4.Clear
While rs.EOF = False
Combo4.AddItem rs!localidad.nombre
rs.MoveNext
Wend

End Sub

mi duda es como hago para que la linea
Combo4.AddItem rs!localidad.nombre, me agregue estas localidades probe hacerlo con alias pero no me funciono

es decir el error me lo da aqui rs!localidad.nombre

Bueno muchas gracias espero su respuesta !!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta SQL corregido

Publicado por Séneca (23 intervenciones) el 22/09/2007 09:38:59
llama al campo así

Combo4.AddItem rs.Fields("localidades.nombre")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar