| |
|
142
|
Programación / Programación Visual Basic / Re: SELECT DISTINCT, IN ()
|
en: 20 Noviembre 2006, 15:50 pm
|
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í. "SELECT DISTINCT MADRID * FROM Clientes WHERE NOMBRE='MARTHA'" AYUDA POR FAVOR. O ALGUNA SUGERENCIA DE COMO OBTENER ESE RESULTADO.. GRACIAS |
|
|
|
|
143
|
Programación / Programación Visual Basic / SELECT DISTINCT, IN ()
|
en: 20 Noviembre 2006, 13:49 pm
|
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. "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.. "SELECT * DISTINCT FROM Cliente Where Nombre='MARTHA, SEXO='M', EDAD=18'" Ayuda por favor.... Gracias. |
|
|
|
|
145
|
Programación / Programación Visual Basic / Re: EMPEZANDO CON BASE DE DATOS
|
en: 24 Octubre 2006, 12:50 pm
|
|
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)
|
|
|
|
|
146
|
Programación / Programación Visual Basic / Re: EMPEZANDO CON BASE DE DATOS
|
en: 24 Octubre 2006, 12:45 pm
|
|
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
|
|
|
|
|
147
|
Programación / Programación Visual Basic / Re: EMPEZANDO CON BASE DE DATOS
|
en: 24 Octubre 2006, 12:33 pm
|
No te compliques.. haslo por codifo.. 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.. |
|
|
|
|
149
|
Programación / Programación Visual Basic / Re: Tabstrip
|
en: 24 Octubre 2006, 12:24 pm
|
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.. Private Sub TabStrip1_Click()
Frame1(TabStrip1.SelectedItem.Index).ZOrder 0
End Sub Frame1(1)
Frame1(2)
Frame1(3) |
|
|
|
|
|
| |
|
Mostrar Mensajes