SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ISABELMIS en Viernes 24 de Junio de 2005, 21:08

Título: Principiante En Access
Publicado por: ISABELMIS en Viernes 24 de Junio de 2005, 21:08
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
Título: Re: Principiante En Access
Publicado por: eliza_marti en Sábado 25 de Junio de 2005, 00:54
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!..
Título: Re: Principiante En Access
Publicado por: Shiquilla en Martes 28 de Junio de 2005, 11:51
Creo que entendí la pregunta, bueno, sería algo así:

Código: Text
  1. Option Explicit
  2.  
  3. Private goConexion As ADODB.Connection
  4.  
  5. Public Property Get goBD() As Connection
  6. Dim lsCadenaConexion As String
  7.  
  8.     lsCadenaConexion = "Driver={Microsoft Access Driver (*.mdb)};"
  9.     lsCadenaConexion = lsCadenaConexion & "Dbq=" & App.Path & "\BaseDeDatos.mdb;"
  10.     lsCadenaConexion = lsCadenaConexion & "Uid=Admin; Pwd="
  11.  
  12.     If goConexion Is Nothing Then
  13.         Set goConexion = New ADODB.Connection
  14.         goConexion.Open lsCadenaConexion
  15.         goConexion.CommandTimeout = 30
  16.     Else
  17.         If goConexion.State = 0 Then goConexion.Open lsCadenaConexion
  18.     End If
  19.     Set goBD = goConexion
  20.     
  21. End Property
  22.  
  23. Private Sub Command1_Click()
  24.     If Trim(lblEtiqueta.Caption) <> "" Then
  25.         msGenerarConsulta 'Aquí es dónde llamaríamos a que consulte en la BD
  26.     End If
  27. End Sub
  28.  
  29. Private Sub msGenerarConsulta()
  30. Dim lsSQL As String
  31. Dim loRS As ADODB.Recordset
  32.  
  33.     text1.Text = ""
  34.     text2.Text = ""
  35.     text3.Text = ""
  36.     text4.Text = ""
  37.     text5.Text = ""
  38.     
  39.     lsSQL = "SELECT * FROM Tabla "
  40.     lsSQL = lsSQL & " WHERE Campo = '" & lblEtiqueta.Caption & "'"
  41.     
  42.     Set loRS = New ADODB.Recordset
  43.     loRS.Open lsSQL, goBD, adOpenKeyset, adLockOptimistic
  44.     If Not loRS.EOF Then
  45.         text1.Text = IIf(Not IsNull(loRS!Campo1), loRS!Campo1, "")
  46.         text2.Text = IIf(Not IsNull(loRS!Campo2), loRS!Campo2, "")
  47.         text3.Text = IIf(Not IsNull(loRS!Campo3), loRS!Campo3, "")
  48.         text4.Text = IIf(Not IsNull(loRS!Campo4), loRS!Campo4, "")
  49.         text5.Text = IIf(Not IsNull(loRS!Campo5), loRS!Campo5, "")
  50.     End If
  51.     If loRS.State = 1 Then loRS.Close
  52.     Set loRS = Nothing
  53. End Sub
  54.  

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,