Programación General > Visual Basic 6.0 e inferiores

 Principiante En Access

(1/1)

ISABELMIS:
Hola ...Buenas tardes, necesito ayuda,  estoy comenzando a progrmar en Access.

Tengo un problemita;

No se como hacer para que de una base de datos que esta puesta en un texbox, me muestre informacion de la misma base de datos, pero filtrada sobre lo que selecione en el texbox en la etiqueta(Label)

Alguien me puede ayudar.

Porfavor  

De antemano Muchas GRACIAS

eliza_marti:
Hola ISABELMIS  :hola: ..mmm..la verdad es que no te entiendo muy bien....tienes una base de datos en un texbox?.. :huh: ..mmm..me imagino que lo que quieres es que en un combobox se seleccione el filtro de la base y en otro presentar solo la solicitud requerida?..es eso?.. :unsure: ...

Si me aclaras un poquito ...de pronto y te puedo hechar una manito..jiji.. :P
Bueno..Bye.. :hola:  suerte!..

Shiquilla:
Creo que entendí la pregunta, bueno, sería algo así:


--- Código: Text ---Option Explicit Private goConexion As ADODB.Connection Public Property Get goBD() As ConnectionDim lsCadenaConexion As String     lsCadenaConexion = "Driver={Microsoft Access Driver (*.mdb)};"    lsCadenaConexion = lsCadenaConexion & "Dbq=" & App.Path & "\BaseDeDatos.mdb;"    lsCadenaConexion = lsCadenaConexion & "Uid=Admin; Pwd="     If goConexion Is Nothing Then        Set goConexion = New ADODB.Connection        goConexion.Open lsCadenaConexion        goConexion.CommandTimeout = 30    Else        If goConexion.State = 0 Then goConexion.Open lsCadenaConexion    End If    Set goBD = goConexion    End Property Private Sub Command1_Click()    If Trim(lblEtiqueta.Caption) <> "" Then        msGenerarConsulta 'Aquí es dónde llamaríamos a que consulte en la BD    End IfEnd Sub Private Sub msGenerarConsulta()Dim lsSQL As StringDim loRS As ADODB.Recordset     text1.Text = ""    text2.Text = ""    text3.Text = ""    text4.Text = ""    text5.Text = ""        lsSQL = "SELECT * FROM Tabla "    lsSQL = lsSQL & " WHERE Campo = '" & lblEtiqueta.Caption & "'"        Set loRS = New ADODB.Recordset    loRS.Open lsSQL, goBD, adOpenKeyset, adLockOptimistic    If Not loRS.EOF Then        text1.Text = IIf(Not IsNull(loRS!Campo1), loRS!Campo1, "")        text2.Text = IIf(Not IsNull(loRS!Campo2), loRS!Campo2, "")        text3.Text = IIf(Not IsNull(loRS!Campo3), loRS!Campo3, "")        text4.Text = IIf(Not IsNull(loRS!Campo4), loRS!Campo4, "")        text5.Text = IIf(Not IsNull(loRS!Campo5), loRS!Campo5, "")    End If    If loRS.State = 1 Then loRS.Close    Set loRS = NothingEnd Sub 
Espero que te sirva.

PD: Acabo de leer mejor.. y creo que preguntabas cómo sería esto programando con Access... bueno, yo lo dejo aquí, aunque esto sería desde VB.

Saludos,

Navegación

[0] Índice de Mensajes