BOA TARDE, COMO FAÇO UMA MACRO QUE BUSQUE OS DADOS EM FORMA DE GRID PRO CALC? OU SEJA, QUERO UMA MACRO QUE A PARTIR DO QUE EU DIGITAR EU CONSIGA BUSCAR TAIS INFORMAÇOES DO BASE. JA FIZ ISSO BUSCANDO DO PROPRIO CALC, MAS POR SEGURANÇA QUERO BUSCAR DE UM BANCO EXTERNO.
SEGUE O MODELO (ADAPTADO) DO INSERT QUE PEGUEI AQUI MESMO, MAS NAO CONSEGUI ADAPTAR PRO SELECT. PEÇO POR GENTILEZA, QUEM PUDER ME AJUDAR, EU AGRADEÇO.
Sub SalvarDadosBD()
Dim oDBC As Object
Dim oBD As Object
Dim oConexao As Object
Dim oDeclaracao As Object
Dim sBancoDados As String
Dim sSQL As String
oDoc = ThisComponent
oCadas = oDoc.Sheets.getByName( "teste" )
sBancoDados = "bim" '<< Nome do banco de dados registrado'
oDBC = createUnoService( "com.sun.star.sdb.DatabaseContext" )
oBD = oDBC.getByName( sBancoDados )
oConexao = oBD.getConnection( "","" )
oDeclaracao = oConexao.createStatement()
VALOR1 = oCadas.getCellRangeByName( "A1").String
VALOR2 = oCadas.getCellRangeByName( "B1").String
VALOR3 = oCadas.getCellRangeByName( "C1").String
sNome_Tabela = " ""cliente"" " '<< Nome da tabela'
sCampos =" ""nome"",""end"", ""fone"" " '<< Nome dos Campos'
sValores = "('" & VALOR1 &"'),('" & VALOR2 &"'),('" & VALOR3 &"')" '<< Valores para os campos'
sSQL = "INSERT INTO " & sNome_Tabela & "(" & sCampos & ") VALUES (" & sValores & ")"
oDeclaracao.executeUpdate( sSQL )
oDeclaracao.close()
oConexao.close()
oDeclaracao = Nothing
oConexao = Nothing
MsgBox "Concluído!",0,"Salvar Dados"
End Sub