none
cargar los nombres de los campos de una tabla en visual basic 6.0

    Question

  • Tengo el siguiente codigo, quiero que los nombres de los campos aparezcan en el combo para manejar mejor mis filtros en vb 6.0

    Haber si alguien me da la solucion

     Private Sub Form_Load()      
        ' ConnectionString
        Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=server”
        With Adodc1
            .CommandType = adCmdText
            .RecordSource = "Select * From oficina"
            .Refresh
            Set DataGrid1.DataSource = Adodc1.Recordset                
            .Visible = False
        End With
        With Combo1
            Combo1.Text = "Oficina"
        End With
        Text1 = ""


    maculdes
    Thursday, October 20, 2011 8:20 PM

All replies

  • Hola, intenta con funcion openschema del objeto conecion(ADO) que devuelve un RecordSet; lo que hace es obtener informacion de la BD como por ejemplo las tablas,campos,indices entre otros.

    usa esta rutina:

     

    Set rs=conecion.openschema(adSchemaColumns,array("TuBD","TuUser","TuTabla"))

    while not rs.eof

    combo.additem rs(0)

    rs.movenext

    end while

    PD:Los parametros del openschema varian entre motores de BD.

    Suerte...

    Tuesday, November 08, 2011 5:32 AM