Visual Basic - Bases de Datos

Life is soft - evento anual de software empresarial
 
Vista:

Bases de Datos

Publicado por shaomi (8 intervenciones) el 27/10/2003 11:31:12
Buenas, tengo un problema con una BD. He creado un formulario, entre otras cosas tiene 5 cuadros combinados que beben los datos de una misma tabla. Por ejemplo cc1: apellidos; cc2: nombre; cc3: calle; cc4: poblacion; cc5: CP. Lo que intento es que al seleccionar los apellidos del primer cuadro combinado, en el segundo cuadro combinado me aparezcan los "NOMBRES" que tienen eses apellidos. Al seleccionar el nombre me aparezca las calles posibles, ... Así sucesivamente. Si alguien me puede ayudar!!!
GRACIAS.

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:Bases de Datos

Publicado por mikiburg (14 intervenciones) el 27/10/2003 11:59:28
Creo que lo mejor sería hacer una búqueda con parámetros en cada combobox.
Me imagino que te estarás conectando a la base de datos con código, no con ADODC.

Private Sub BUSCARNOMBRES()
dim M as integer
Set CmComando = New Command
CmComando.ActiveConnection = CnCon
CmComando.CommandType = adCmdTable
Set P1 = CmComando.CreateParameter _
("Pa1", adVarChar, adParamInput, 10)
CmComando.Parameters.Append P1
CmComando.Parameters(0).Value = CboBuscar.ItemData(CboBuscar.ListIndex)
'CmComando.Parameters(0).Size = Len(CboBuscar.ItemData(CboNombres.ListIndex))
CmComando.CommandText = "BusquedaconParametros" 'este es el nombre de la consulta k has creado
Set RsRec = New Recordset 'abro el recordset
Set RsRec = CmComando.Execute

If Not RsRec.EOF Then
For M = 0 To CboBuscar.ListCount - 1
If CboBuscar.ItemData(M) = RsRec!nombre Then
CboBuscar.ListIndex = M
End If
Next M
Else
MsgBox "Registro No encontrado", vbInformation
End If
Set CmComando = Nothing
Set RsRec = Nothing

Recuerda que tienes que crearte una consulta para cada caso en Access y en el apartado de criterios colocar [Pa1] debajo de según donde busques (nombre,apellidos...)
[Pa1] es el nombre del parámetro que le he dado yo...para cada uno, uno distinto claro.

Espero haberme expicado algo..es más fácil de lo k parece.
Saludos
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