|
|
Postada em 08/01/2005 20:24 hs
Estou desenvolvendo um pequeno software de advocacia no VB com banco Access. Mas não estou conseguindo fazer a parte de acompanhamento processual, pois, para colocar os andamentos do processo precisarei criar nova tabela para cada pessoa, já que não consigo colocar todos os andamentos em um campo. Se tiverem alguma idéia para me ajudar agradeço desde já. |
|
|
|
|
|
FredMP
|
SÃO PEDRO DA ALDEIA
RJ - BRASIL
|
|
Postada em 08/01/2005 20:50 hs
Vc poderia usar um pouco de normalização.
Criando por exemplo as seguintes tabelas:
Clientes ( codigo, nome, telefone, etc )
Processos ( codigo, descrição )
Andamentos ( codigo, codigo_cliente, cod_processo, descrição, data )
Cada andamento teria o código do processo a que pertence e do cliente, então vc pode buscar todos os andamentos de um processo de determinado cliente usando um simples While. Te aconselho a usar o ADO p/ fazer isso.
Att,
Fred
|
|
|
|
|
|
Postada em 09/01/2005 18:20 hs
valew, você poderia me mostrar como eu usaria o laço while para separar os andamentos do processo de um e de outro. Obrigado |
|
|
|
FredMP
|
SÃO PEDRO DA ALDEIA
RJ - BRASIL
|
|
Postada em 09/01/2005 20:20 hs
Digamos que vc queira (usando ADO) achar todos os andamentos de um processo de um cliente:
Dim BD as ADODB.Connection
Dim tbClientes as ADODB.RecordSet
Dim tbProcessos as ADODB.RecordSet
Dim tbAndamentos as ADODB.RecordSet
Function achaAndamentos ( )
Dim cod_cliente as Integer
Dim cod_processo as Integer
cod_cliente = InputBox ("Digite o código do cliente:")
cod_processo = InputBox ("Digite o código do processo:")
tbAndamentos.Open "SELECT * FROM Andamentos WHERE codigo_cliente = " & cod_cliente & " AND cod_processo = " & cod_processo, BD, adOpenStatic, adLockOptimistic
Text1.Text = "Cliente: " & cod_cliente & vbTab & "Processo: " & cod_processo
Do While tbAndamentos.EOF <> True
Text1.Text = Text1.Text & vbCrlf & _
tbAndamentos(0) & vbTab & tbAndamentos(3) & vbTab & _
tbAndamentos(4)
tbAndamentos.MoveNext
Loop
End Function
Acho que isso pode te ajudar!
Att,
Fred
|
|
|
|
|
|
Postada em 10/01/2005 08:29 hs
|
|
|
|
