mostrar datos en una dbgrid

[pilar_tellez]

Hola a todos necesito ayuda pa mostrar informacion en un dbgrid, que es infomacion de dos tablas en access, una de empresa y otra donde sale comunas.

donde empresa tiene:
id_rut
id_comu
razon_social

comuna tiene:
id_comuna
nom_comuna

en el formulario tengo un data1 y un dbgrid1 en donde quiero que se muestren los datos de razon social y nombre de la comuna en mi grilla.

para eso en tiempo de ejecucion puse el siguiente codigo:

form_load

carga_base(llama o carga la base de dato)
Data1.DatabaseName = App.path & "\negocios.mdb"
carga_grilla


carga_grilla()
Data1.DatabaseName = App.path & "\quimica.mdb"
Data1.RecordSource = "SELECT empresa.razon_social, comuna.nom_comuna" + _
"FROM tipo INNER JOIN (comuna INNER JOIN empresa ON comuna.id_comuna = empresa.id_comuna) ON tipo.id_tipo = empresa.id_tipo;"
DBGrid1.DataSource = Data1
Data1.Refresh


y me aparece un error que dice:

ERROR 430 EN TIEMPO DE EJECUCION, ESTA CLASE NO ADMITE AUTORIZACION O NO ADMITE LA INTERFAZ ESPERADA

trabajo con DAO, please si alguien sabe por favor ayuda.....

[ValentinoMolinari]

hazlo de la siguiente manera

Set DBGrid1.DataSource = Data1

y va a funcionar ;)
saludos

una sujerencia deberias trabajar con ADO ya que es una tecnología superior a DAO
cuentame como te fue

[pilar_tellez]

pucha mala noticia, no me funciono, el colocar esa linea de codigo, al ejecutar el programa me aparece el mismo error, y cuando depuro, en esa linea de codigo me dice "SE REQUIERE UN OBJETO"

Data1.DatabaseName = App.path & "\quimica.mdb" , en esa linea de codigo me lee la base de datos....

Data1.RecordSource = "SELECT empresa.razon_social, comuna.nom_comuna" + _
"FROM tipo INNER JOIN (comuna INNER JOIN empresa ON comuna.id_comuna = empresa.id_comuna) ON tipo.id_tipo = empresa.id_tipo;", en esa otra me lee la consulta tal cual como esta ahi, pero el la siguente no hay caso que pase la informacion del data al dbgrid, puede que a lo mejor en algunas de las propiedades tanto del data con del dbgrid aya que poner algo mas.....

[Avellaneda]

Iniciado por pilar_tellez

pucha mala noticia, no me funciono, el colocar esa linea de codigo, al ejecutar el programa me aparece el mismo error, y cuando depuro, en esa linea de codigo me dice "SE REQUIERE UN OBJETO"

Data1.DatabaseName = App.path & "\quimica.mdb" , en esa linea de codigo me lee la base de datos....

....

Primero tienes que abrir una conexión a la base de datos.

Prueba así:

Código:

Dim db As Database
    Set db = OpenDatabase(App.Path & "\quimica.mdb")
    sql = "SELECT empresa.razon_social, comuna.nom_comuna" + _
"FROM tipo INNER JOIN (comuna INNER JOIN empresa ON comuna.id_comuna = empresa.id_comuna) ON tipo.id_tipo = empresa.id_tipo;"
    With Data1
        .DatabaseName = db.Name
        .RecordSource = sql
        .Refresh
    End With

Supongo que la consulta te funciona ¿no?