Visual Basic - no carga datos numericos

Life is soft - evento anual de software empresarial
 
Vista:

no carga datos numericos

Publicado por txetxo (88 intervenciones) el 03/12/2005 19:23:16
Hola

Estoy intentando aprender a configurar B.D con adodc, el tema es que tengo el siguiente codigo, pero los datos numericos no me los carga.

Private Sub Command1_Click()
Dim equip As String
equip = Text2.Text
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\josetxo\Escritorio\pruebas VB y BD\datos convertidos.mdb;Persist Security Info=False"
Adodc1.CursorType = adOpenDynamic
Adodc1.RecordSource = "jugadores"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst

Dim i As Long
For i = 0 To 2
Set Label1(i).DataSource = Adodc1
i = i + 1
Next
Label1(0).DataField = "Dorsal"
Label1(1).DataField = "nombre"
Label1(2).DataField = "goles"
Label1(3).DataField = "equipo"
While Not Adodc1.Recordset.EOF
If RTrim(Adodc1.Recordset.Fields("equipo")) = equip Then
If RTrim(Adodc1.Recordset.Fields("nombre")) = "Igor Babaze" Then
Label1(0).Caption = Adodc1.Recordset.Fields("Dorsal")
Label1(1).Caption = Adodc1.Recordset.Fields("nombre")
Label1(2).Caption = Adodc1.Recordset.Fields("goles")
Label1(3).Caption = Adodc1.Recordset.Fields("equipo")
End If
End If
Adodc1.Recordset.MoveNext
Wend
End Sub

¿Alguien me puede ayudar?

¿Con adodc como se hacen busquedas de datos sin tener que recorrer toda la B.D? ¿Del mismo modo que con control data?

Gracias de antemano
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
sin imagen de perfil

RE:no carga datos numericos

Publicado por Iñaki (502 intervenciones) el 04/12/2005 22:27:34
Hola Txetxo, los datos que no te cargan posiblemente es porque en las comparaciones no busca el dato , (diferencias de mayusculas, minusculas, acentos, etc.). Puedes cambiar el operador " = " por " LIKE ".
En cuanto a buscar un dato sin recorrer toda la BD, si es posible utilizando "FIND"

strnombre = "IGOR BABAZE"
Adodc1.Find "nombre like ' " & strnombre & " ' "
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