Mensajes

QUE NO ME SALE ESA CONSULTA POR ERROR DE SINXIS

Creo que si funciona con lo que me propusiste. Solo que no he llegado obtener lo que necitaba.. pues vera se trata de que la consulta se haga solo con un campo.

ID     ID_CIUDAD        NOMBRE     SEXO     EDAD
1              MAD           PEDRO          H          15
2              LIM             JUAN            H          18
3              BOG           MARTHA        H          20
4              MAD           MARTHA        M          18
5              MAD           MARTHA        M          18

Mi objetivo es listar las ciudades, sin repeticiones, pero que el campo sea igual a MARTHA. es deicir + ó - así.

Código [Seleccionar] Expandir

"SELECT  DISTINCT MADRID * FROM Clientes WHERE NOMBRE='MARTHA'"

AYUDA POR FAVOR. O ALGUNA SUGERENCIA DE COMO OBTENER ESE RESULTADO..

GRACIAS

Hola, amigos..  veran lo que quiero hacer es selecionar los campos de una tabla pero que no se repitan los campos que son iguales... por ejemplo..

ID     NOMBRE     SEXO     EDAD
1       PEDRO          H          15
2       JUAN             H          18
3       PEDRO          H          20
4       MARTHA        M          18
5       MARTHA        M          18

Sellecionar a todos los que NOMBRE=MARTHA, SEXO=M, EDAD=18. PERO QUE SI HAY MAS DE 1 NO SE REPITAN.

Lo normarl es lo de abajo, pero me lista los registros con ID 4 y 5, porque ambos cumplen con el criterio. Lo que deseo es hace los mismo, pero que una ves ya encontrado no me repita en el listado.

Código [Seleccionar] Expandir

"Select * FROM Cliente Where Nombre='MARTHA, SEXO='M', EDAD=18'"

Estuve intentando con "SELECT DISTINCT", pero no se como como emplearlo o me sale error..

Código [Seleccionar] Expandir

"SELECT * DISTINCT FROM Cliente Where Nombre='MARTHA, SEXO='M', EDAD=18'"

Ayuda por favor....
Gracias.

Gracias, lo leeré y luego cuento como me fue..

Considerar esoto....

list_item.SubItems(1) = IIf(IsNull(RsClientes!Cliente), "", RsClientes!Cliente)
list_item.SubItems(2) = IIf(IsNull(RsClientes!Telefono), "", RsClientes!Telefono)
list_item.SubItems(3) = IIf(IsNull(RsClientes!Ciudad), "", RsClientes!Ciudad)

Mejor Prueba con un ListView. Es lo mejor. A lar larga yo prefiero as.i

With Form1
    .ListView1.ListItems.Clear
    .ListView1.ColumnHeaders.Clear
    .ListView1.ColumnHeaders.Add 1, "A", "Codigo", 1300, 0
    .ListView1.ColumnHeaders.Add 2, "B", "Fecha", 1100, 0
    .ListView1.ColumnHeaders.Add 3, "C", "Cliente", 2300, 0
    .ListView1.ColumnHeaders.Add 4, "D", "Teléfonos", 1500, 0
    .ListView1.ColumnHeaders.Add 5, "E", "Ciudad", 1000, 0
    .ListView1.View = lvwReport
   
    Dim RsClientes As New Recordset
    RsClientes.Open "Select * From Clientes Where Codigo like '%" & Text1.Text  & "%'", DBConex, adOpenStatic, adLockOptimistic
    If RsClientes.RecordCount > 0 Then
       RsClientes.MoveFirst
       For i = 1 To RsClientes.RecordCount
            Set list_item = .ListView1.ListItems.Add(, , RsClientes!Codigo)
            list_item.SubItems(1) = IIf(IsNull(RsClientes!Cliente), "", RsClientes!Cliente)
            list_item.SubItems(1) = IIf(IsNull(RsClientes!Telefono), "", RsClientes!Telefono)
            list_item.SubItems(1) = IIf(IsNull(RsClientes!Ciudad), "", RsClientes!Ciudad)   
       RsClientes.MoveNext
   Next i
    Else
   Msgbox "Comentario", VBExClamation, "Titulo"
    End If
    RsClientes.Close
End With

No te compliques.. haslo por codifo..

Código [Seleccionar] Expandir

Dim RsClientes As New Recordset
RsPaises.Open "Select * From Clientes Where Clave='"& Text1.Text &"' Order By Pais", DBConex, adOpenStatic, adLockOptimistic

Una ves que tengas abierto la table pues llenas en un ListView, por ejemplo..

Peronda... lo de tres botones y tres frames es solo como ejemplo. Podes poner todo lo quieras..

Saludos...

Aqui tienes la solucion: con Frames

Prueba con poniendo 03 frames con index y creas tres botones en tu TabStrip y agregas el codigo al TabStrip en el evento CLik..

Código [Seleccionar] Expandir

Private Sub TabStrip1_Click()
Frame1(TabStrip1.SelectedItem.Index).ZOrder 0
End Sub

Código [Seleccionar] Expandir

Frame1(1)
Frame1(2)
Frame1(3)

Hola, a todos.. aqui nuevamente...

Resulta que quiero imprimir unos recibos con el DataReport de Vb,  pero mi problema es  que quiero hacer la conexion desde codigo al connection1 y al datareport1

Favor de ayudarme con cualquier sugerencia.

Saludos,
Pedro J.