VB: Como rodar query com ADOX???

[pedrokarneiro 0]

Oi, pessoal.Tenho esse código para linkar dois bancos Access pelo código VB.Preciso rodar umas queries que estão no banco, mas está dando erro.Como posso rodar queries (consultas internas do banco) usando esse ADOX?Se não der, como posso manter a nova tabela linkada no banco principal, fechar a conexao ADOX e, com outra conexao rodar as minhas queries nesse banco principal? Dim oCat As ADOX.Catalog Dim oTable As ADOX.Table Dim sConnString As String ' ADOX connection to main database Set oCat = New ADOX.Catalog oCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\AgInfo\BeefLink\" & strPropriedade & "\AgInfoEvents.mdb;" sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\WBOVINOS\CONVERSION\1234_PARA_BOVLINK.mdb;" ' Create Table Set oTable = New ADOX.Table With oTable .Name = "Events" Set .ParentCatalog = oCat .Properties("Jet OLEDB:Create Link") = True .Properties("Jet OLEDB:Remote Table Name") = "Events" .Properties("Jet OLEDB:Link Provider String") = sConnString End With oCat.Tables.Append oTable oCat.Tables.Refresh '*** Aqui eu quero rodar as minhas queries: ?????????????? ??????????????[]s,Pedro.

[Veber 0]

Voce nao pode abrir o BD usando ADO convencional através de ODBC para evitar coflito de aberturae usardim rstConsulta as ADODB.RecordSetset rstConsulta = vCon.execute("SELECT * FROM Consulta")ou voce quer rodar consultas de atualizacao/exclusao etc?Flows

[Veber 0]

e pra executar Insert/Delete/Update queriesusevcon.execute "nomeDaQuery"

[pedrokarneiro 0]

Oi, Veber.Antes de tudo, muito obrigado pela ajuda.Desculpe. Eu não entendi direito.Daquele código que postei, devo usar o oCat ou o Conn como conexão?Quem é a variável vCon?Estou aguardando a sua resposta.[]s,Pedro.

[Veber 0]

desculpe, o vCon é nome que eu tava usando nos testes

 

lá vai, quando eu uso o Microsoft.Jet.OLEDB.4.0 para usar mais que uma conexao a um BD access normalmente eu recebo erros, entao eu sempre uso o ODBCTOOL.DLL ( ODBC Driver & Data Source Name Functions {dentro do REFERENCES, baxe o DLL da net} )

com ele eu crio por codigo uma conexao ODBC ao banco de dados que quero usar, assim:

 

Dim myDSN As ODBCTool.DsnSet myDSN = New ODBCTool.DsnmyDSN.CreateDSN "dsn_name", "Microsoft Access Driver (*.mdb)", "", "", "Admin", "Do not put password here", "Description", True, "DBQ=D:\myDatabase\database.mdb"

Então, crio uma nova variavel de conexao usando

 

Dim vCon As ADODB.ConnectionSet vCon = New ADODB.ConnectionvCon.Provider = "MSDASQL.1"vCon.Open "dsn_name", "Admin", "USE REAL PASSWORD HERE"

ai voce roda as suas queries usando

 

VCON.EXECUTE "query_name"

certo mano?

 

sacou?

 

Flows

[pedrokarneiro 0]

Valeu, Veber. (y)