COMO FAZER O SELECT DE UM BANCO DO BASE PARA O CALC?

perguntadas 2017-06-06 18:47:13 +0200

imagem do gravatar de tarcisiopimenta07

updated 2017-06-06 18:50:44 +0200

imagem do gravatar de Olivier

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
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

O que extamente vc vai digitar? Não entendi.

imagem do gravatar de GrafenoGrafeno ( 2017-06-10 17:00:39 +0200 )editar