Visual Basic - Urgente : para q no salgan valores repetidos

Life is soft - evento anual de software empresarial
 
Vista:

Urgente : para q no salgan valores repetidos

Publicado por lokita (22 intervenciones) el 30/10/2003 16:29:29
como se puede hacer para q no me salgan valores repetidos en una lista, segun la opcion q escoja en un combobox???

(si en la base de datos tengo 3 registros, con provincia "Asturias", en la lista me sale 3 veces asturias y necesito q solo me salga una)

Muxas Graciass

Esto es lo q tengo puesto:

Private Sub Combo1_Click()
Dim db As Database
Dim tb As TableDef
Dim rc As Recordset
Dim unitem As ListItem

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\tienda.mdb")
Set tb = db.TableDefs("tiendas")
Set rc = tb.OpenRecordset()

List1.Clear
Do While Not rc.EOF
If Combo1.List(Combo1.ListIndex) = "Código Postal" Then
List1.AddItem rc![CodPostal]
ElseIf Combo1.List(Combo1.ListIndex) = "Provincia" Then
List1.AddItem rc![provincia]
Else
List1.AddItem rc![poblacion]
End If
rc.MoveNext
Loop
End Sub

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:Urgente : para q no salgan valores repetidos

Publicado por doc ciber (91 intervenciones) el 30/10/2003 17:25:09
hola
como veo tu codigo de acceso es este
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & \"\\tienda.mdb\")
Set tb = db.TableDefs(\"tiendas\")
Set rc = tb.OpenRecordset()

para comenzar veo que trabajas con DAO
supongo que la linea 3 (db.tabledefs(\"tiendas\") se refiere a la tabla que usas, si es asi pues deberias utilizar una sentencia SQL en la cual especificas la columna que quieres y la palabra DISTINCI para eliminar los valores repetidos, asi cuando selecciones los registros solo te aparecera 1 valor de cada registro, en tu caso solo un registro con el nombre de \"asturias\"

la sintaxis es asi:

\"select DISTINCI [nombre_columna] from tiendas\"

y al final actualizas el Dao

espero te sirva de algo
aunque tambien me gustaria que dieras un vistaso a los manuales de sql ya que te simplifican muchas cosas, y aun mas si deseas trabajar con ADO para sistemas multiusuario...
bueno que tengas un buen dia
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