[AJUDA] COM BANCO DE DADOS

ROARENA 17/10/2009 00:06:29
#325529
Bom pessoal eu estou desenvolvendo um sistema de vendas, e eu tenho um campo chamado [Ô]Código de Venda[Ô], gostaria de saber como eu posso pesquisar esse código digitando ele em uma inputbox e os campos do form que pertencem ao banco de dados atualizarem de acordo com o código de vendas.
Agradeço desde já!
Abraços!
ROARENA 17/10/2009 00:35:09
#325531
Vixi, só me complicou mais IOADHSADIOSHADSIH
Mas valeu mesmo asssim ;]
Help Plz ;]
Abraçoos!
TECLA 17/10/2009 09:49:35
#325541
Qual é o BANCO DE DADOS?
Como é feito o ACESSO à ele?
Qual é o TIPO DE DADOS do campo informado?

Poste parte do código que utiliza para efetuar a conexão.
MARCELO.TREZE 17/10/2009 11:17:00
#325558
ë como seria possivel ajudar sem saber o banco, o tipo de conexão e a estrutura da tabela.

e lógico qual seu nivel de conhecimento?
ROARENA 17/10/2009 11:20:31
#325559
Desculpe a ignorancia ;]]
Mas meu conhecimento não é tão amplo assim, comecei a programar tem pouco tempo...
vou anexar o projeto inteiro aqui..
TECLA 17/10/2009 11:38:18
#325560
Seguem as alterações que precisa fazer:

1. Altere o MODULE conforme abaixo
Public rs As Recordset
Public db As Database
Public Tipoes As Integer


2. Copie o código abaixo e cole no projeto (no botão procurar código de venda)
Private Sub cmdprocu_Click()
Dim CodVenda As String
CodVenda = InputBox([Ô]Informe o código da venda[Ô], [Ô]Venda[Ô])
If Trim(CodVenda) = [Ô][Ô] Or Val(CodVenda) = 0 Then
    MsgBox [Ô]Código inválido[Ô]
Else
    rs.Close
    Set rs = db.OpenRecordset([Ô]SELECT * FROM VendasTab WHERE Código=[Ô] & CodVenda)
    If Not rs.EOF Then Call Iniciar
End If
End Sub


O resto é contigo!
ROARENA 17/10/2009 11:59:51
#325565
Ae Tecla muito obrigado mesmo funcionou..
mas me explica uma duvida?
por que eu tive que usar o nome da minha data base como db?
não pode ser outro?
Duvida besta mas se puder responder vou agradecer!
TECLA 17/10/2009 12:12:39
#325567
Escolha QUALQUER NOME para a variável, mas... UTILIZE o nome que escolher.
Você havia declarado a variável com UM NOME, e utilizou um OUTRO NOME.
é isso!
MARCELO.TREZE 17/10/2009 12:23:29
#325568
só completandoa explicção do Tecla

voce definiu o nome como Banco, porem usou db como o nome este era um odos problemas


entào no seu modulo estava assim

Public banco As Database


porém ao abrir vc usava assim

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & [Ô]\Vendas.mdb[Ô])
Set rs = db.OpenRecordset([Ô]VendasTab[Ô], dbOpenDynaset)
Call Iniciar
End Sub

quanto teria de ser assim

Private Sub Form_Load()
Set banco = Workspaces(0).OpenDatabase(App.Path & [Ô]\Vendas.mdb[Ô])
Set rs = banco.OpenRecordset([Ô]VendasTab[Ô], dbOpenDynaset)
Call Iniciar
End Sub

ou lógico da maneira sugerida pelo colega tecla

conseguiu perceber
ROARENA 17/10/2009 12:34:47
#325569
Ahh agora sim ;]
Vivo cometendo esses erros bobos...
Mas ae valeu mesmo pela ajuda de vocês
Obrigado, Abraços!
TECLA 17/10/2009 12:36:56
#325570
Problema resolvido, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar