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
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


0