Date: prev next · Thread: first prev next last
2016 Archives by date, by thread · List index


Olá!
Seguem alguns trechos de código que achei e talvez te ajudem.
Adapte ao que você precisa.
Mas acho que você pode pesquisar para tentar fazer o que precisa sem o uso
de macros se não tem prática de programação, pois o caminho é árduo e há
muitos detalhes técnicos de implementação.
Boa sorte!

A macro abaixo faz pesquisa de um campo CPF em um banco de dados portaria.
Ele é digitado em uma caixa de entrada.

Sub Pesquisar_CPF
Dim sFrase As String
sFrase = InputBox ("Digite o CPF:", "Prezado usuário", "1")
If sFrase <> "" Then
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("portaria")
Conn=DB.getConnection("portaria","portaria")
Stmt=Conn.createStatement()
Doc = ThisComponent
DrawPage = Doc.DrawPage
Form = DrawPage.Forms.GetByIndex(0)
Form.Filter = "UPPER(""CPF"") LIKE " + "UPPER('%"+sFrase+"%')"
Form.ApplyFilter = True
Form.Reload
End If
End Sub

' ------------------------------------
' FILTRA AS VISITAS DO DIA

Mostra as visitas do dia no formulário
' ------------------------------------
Sub Filtra_Data (Event as Object)
Dim Form as Object
Dim dt_hoje as Date
Doc = ThisComponent
DrawPage = Doc.DrawPage
Form = DrawPage.Forms.getbyIndex(0)
dt_hoje=date(now)
dt_hoje=date(now)
strHoje=Format(dt_hoje,"yyyy-mm-dd")
Form.Filter = "UPPER(""DTVISITA"") LIKE " + "('" + strHoje + "')"
Form.ApplyFilter = True
Form.Reload
end Sub

' ----------------------------------
' CONEXÃO AO BD
' ---------------------------------
Function getConnection(DBName As String,Optional UserName As
String,Optional Password As String) As Object
Dim Context As Object
Dim DB As Object

If IsMissing(UserName) Then
UserName="portaria"
End If
If IsMissing(Password) Then
Password="portaria"
End If
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName(DBName)
getConnection=DB.getConnection(UserName,Password)

End Function

' -------------------------------
'  CARREGA FORM Visitantes
' -------------------------------
sub OpenForm_FVisitantes( oev as variant )
sFormName = "portaria.visitantes"
OpenForm1( getFormsTC, getConnectionTC, sFormName )
end sub



Em 28 de abril de 2016 22:20, sp24horas <sp24horas@gmail.com> escreveu:

Olá! Faça uma pesquisa no google por noelson duarte. Tem uma apostila
dele  de basic que deve te ajudar. Estou em época de provas e sem muito
tempo agora.
Boa sorte!
Em 28/04/2016 22:01, "Leonardo Alexandre de Campos" <leocam10@gmail.com>
escreveu:

Amigo, deu tudo certo aqui depois que li o seu artigo, com pequenas
modificações. Valeu pela contribuição! Gostaria de pedir mais ajuda, se
possível! Ocorre que tenho uma base de dados denominada DADOS.odb. Nesse
arquivo há um formulário, "formulário_cartas". Eu criei uma macro "
retorna_registro" que retorna um resultado string, cujo mesmo eu gostaria
de inserir em campo de texto no mencionado formulário, txtREGISTRO, que se
comunica com uma coluna REGISTRO no banco de dados. Porém eu não sei e não
tô encontrando nada muito claro como o texto retornado pela macro será
captado pelo campo de texto txtREGISTRO nesse formulário. De igual modo, eu
também gostaria de implementar nesse formulário uma rotina que retorna um
endereço após ser digitado o CEP! Mas eu também não sei como fazer a
leitura desse CEP digitado para acionar uma outra macro que estou criando.
Desculpa incomodá-lo, mas não é que não sou especialista em informática,
minha área é o Direito. Sou mais é curioso mesmo! Se puder dar uma força! A
ajuda que peço é como criar um código  em Basic que leia o conteúdo de um
campo de texto no formulário e, de igual modo, um código que insira/escreva
um conteúdo em um campo de texto.

Cordialmente,

Leonardo
Em 15/04/2016 16:54, "Leonardo Alexandre de Campos" <leocam10@gmail.com>
escreveu:

Opa! Obrigado, amigo!!!
Em 15/04/2016 16:28, "sp24horas" <sp24horas@gmail.com> escreveu:

Olá!
Há um artigo que escrevi na revista LibreOffice Magazine 15. Está
disponível em modo pdf e grátis no site.
http://pt-br.libreoffice.org/projetos/revista/
Lista de Conteúdos das revistas:

https://wiki.documentfoundation.org/Marketing/Magazine/IssuesLibOMag/pt-br

Boa sorte!


Em 14 de abril de 2016 23:15, Leonardo Alexandre de Campos <
leocam10@gmail.com> escreveu:

Boa noite! Vi uma postagem sua de um banco de dados odb funciona do em
rede com possibilidade de acesso por vários usuários... Estou precisando
muito dessa solução. Poderia me dar uma ajuda?


-- 
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+unsubscribe@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.