[resuelto]hacer una consultade una bd de access 2003 con un datagrid vb6

[ernestoelunico]

Hola otra vez de pregunton solo asi aprendo algo

Yo quiero hacer una consulta de una tabla es decir visualizar una tabla en un formulario de visual basic 6 sp6 yo se que lo puedo hacer con este objeto y en combinacion con el adodc

pero si yo tengo un combobox con el nombre de tres tablas diferentes y yo quiciera llamar una tabla seleccionandola del combobox como hago para definir esto ya que en el objeto adodc solo puedo seleccionar una tabla usando microsoft jet 4

como le digo que cambie de tabla segun lo que elija el usuario

[vlad]

Pues cerras las conexión que tenes y la volves a abrir con otra tabla....

Supongamos que rs es el recordset y adodb1 es el conector, ademas que "Ernestos" es la tabla 1 y "Unicos" la tabla 2:

El usuario selecciona "Ernestos" en el combobox:
rs.Close
rs.Open "Ernestos", adodb1

-El usuario selecciona "Unicos" en el combobox:
rs.Close
rs.Open "Unicos", adodb1


Otra forma mas apropiada seria usando el Recordsource, haciendo un "SELECT * FROM tabla_que_queres"

[JGuillen™]

Hey no es por nada pero creo que no hay necesidad de hacer un Thread por cada duda, un mismo thread basta.... has colocado ufff muchos thread por cada dudita q tengas porq mejor no haces un solo tema..

http://www.svcommunity.org/forum/index.php?topic=63486.0;topicseen
http://www.svcommunity.org/forum/index.php?topic=64246.0;topicseen

[vlad]

Hey no es por nada pero creo que no hay necesidad de hacer un Thread por cada duda, un mismo thread basta.... has colocado ufff muchos thread por cada dudita q tengas porq mejor no haces un solo tema..

http://www.svcommunity.org/forum/index.php?topic=63486.0;topicseen
http://www.svcommunity.org/forum/index.php?topic=64246.0;topicseen

Ya se intento antes, pero se tuvieron que volver a separar porque se hace un solo relajo :S

[ernestoelunico]

bueno provando algo difernte porque no habia leido su respuesta lo hice de esta forma y me funciono la coloco por si alguien algun dia la utiliza

Private Sub Combo1_Click()
         DataGrid1.Caption = Combo1.text

       If Combo1.text = "Compras" Then
          Adodc1.RecordSource = Compra
          frmconsultacompra.Caption = "Consulta de Compras"

       End If

     If Combo1.text = "Devoluciones y Rebajas sobre compra" Then
          Adodc1.RecordSource = Devoluciones_rebajas_compras
         frmconsultacompra.Caption = "Consulta Devoluciones y rebajas sobre compras"
     End If
End Sub

Private Sub Command1_Click()
    Unload frmconsultacompra
    FrmConsulta.Show
End Sub

Private Sub Form_Load()
        DataGrid1.ClearFields
End Sub

el formulario solo contiene un boton comando un datagrid un adodc1 y un combo box

con el adodc se establece la coneccion atravez de las propiedades y en el datagrid se visualiza la tabla que esta en access 2003
se usa el microsoft jet 4 sp8 y dao3.6 object library