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 !!!!
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


0