Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Fala povo, seguinte...
Eu comecei a trampar recentemente em uma empresa que praticamente só produz com VB6, e eu não sabia nada de VB, apenas de C e um pouco de Java.
COmo o negócio é produção, fui logo olhando uns programa que eles tinham guardado e tal para ver como é e peguei o jeito da coisa....
Depois de um tempo eu fui pesquisar em materiais e dai fiquei meio confuso, afinal, o que eu estou fazendo aqui? É a maneira certa de guardar as informação e fazer as pesquisas em BD?
Olhem:
Private Sub OK_Click()
nome = DBCombo1.Text
compara = "NOME = '" & nome & "'"
Datac.Recordset.FindFirst (compara)
If Datac.Recordset.NoMatch = True Then
Datac.Recordset.AddNew
Datac.Recordset("NOME") = DBCombo1.Text
Datac.Recordset("CPF") = Text4.Text
Datac.Recordset("RG") = Text5.Text
Datac.Recordset("END") = Text2.Text
Datac.Recordset("N") = Text3.Text
Datac.Recordset("BAIRRO") = Text8.Text
Datac.Recordset("UF") = Combo1.Text
Datac.Recordset("CEP") = Text9.Text
Datac.Recordset("REFER") = Text10.Text
Datac.Recordset("EMAIL") = Text11.Text
Datac.Recordset("TEL1") = Text6.Text
Datac.Recordset("CEL") = Text7.Text
Datac.Recordset("TEL2") = Text12.Text
Datac.Recordset.Update
Datac.Refresh
Else
Datac.Recordset.Edit
Datac.Recordset("NOME") = DBCombo1.Text
Datac.Recordset("CPF") = Text4.Text
Datac.Recordset("RG") = Text5.Text
Datac.Recordset("END") = Text2.Text
Datac.Recordset("N") = Text3.Text
Datac.Recordset("BAIRRO") = Text8.Text
Datac.Recordset("UF") = Combo1.Text
Datac.Recordset("CEP") = Text9.Text
Datac.Recordset("REFER") = Text10.Text
Datac.Recordset("EMAIL") = Text11.Text
Datac.Recordset("TEL1") = Text6.Text
Datac.Recordset("CEL") = Text7.Text
Datac.Recordset("TEL2") = Text12.Text
Datac.Recordset.Update
Datac.Refresh
End If
End Sub
Esse código é ao clicar no CommandButton, ele pesquisa o que está e um campo do Form, logo ele não encontrando..cria, do contrário, edita....
Está certo fazer assim? Eu vi nos livros e apostilas maneiras bem diferentes, usando aqueles treco de referenciar o banco de dados com aquelas Strings e tal.....( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _)
Eu esotu utilizando os "DATA" da vida para carregar os dados(o que caracteriza DAO certo?)
Alguém poderia me dar uma Luz?
Outra pergunta c for possível responder.....como utlizar os Relacionamentos dos BDs (de preferência Access) no momento das buscas? Eu faço aqui é criar em cada tabela algum campo que sei que tem em outra tabela e dai eu pego de uma e pesquiso na outra, ta certo?
Abraçoss e aguardo respostas =D
Carregando comentários...