Visual Basic - problema con un vector

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 19 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

problema con un vector

Publicado por Matias (136 intervenciones) el 26/05/2007 18:09:28
Buenas como estan?
Bueno mi problema es que en una clase tengo un procedimiento que carga en 3 vectores el nombre, direccion y localidad de un socio los cuales estan subindicados por otro vector que se incrementa a medida que el ciclo avanza. El tema es que como en la tabla tengo el codigo postal de la localidad tengo que ir a sbucar a otro tabla "localidad" su nombre y lo hago de la siguiente manera:

Public Sub s_cantidad()
Dim strsql As String
strsql = "Select * from socios"
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = DB
Rs.Open (strsql), DB, adOpenDynamic, adLockOptimistic

Rs.MoveFirst
Do While Rs.EOF = False
vector_socios.cant = vector_socios.cant + 1
vector_socios.nombre(vector_socios.cant) = Rs!nombre
s_codloc
vector_socios.localidad(vector_socios.cant) = nombrel
vector_socios.direccion(vector_socios.cant) = Rs!direccion
Rs.MoveNext
Loop

End Sub

cuando se ejecuta el procedimiento s_codloc que es el que esta aquia abajo me tira esto
ERROR DE COMPIPLACION
NO COINCIDEN LOS TIPOS

Private Sub s_codloc()

Dim strsql As String

strsql = "select * from localidades" & "where codpostal =" & vector_socios.localidad

Set Rs = New ADODB.Recordset
Rs.ActiveConnection = DB
Rs.Open (strsql), DB, adOpenDynamic, adLockOptimistic
nombrel = Rs!nombre


End Sub

bueo espero su respuesta desde ya muchas gracias
chauuuu

pd: alguien me puede decir que hace el comando LIKE
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