[pt-br-usuarios] Re: AJUDA! Banco de dados ODB em Rede

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/