3 replies to this topic

[Bocaw]

e ai....

bem para vc mandar os cadastro para o banco de dados

faça o seguinte


se vc estiver usando um textbox intaw ligue com o Banco de Dados usando o utilitário Data.

Para Ligar o Data va em DataBaseName e coloque o caminho do Banco de Dados, depois va em RecordSource e coloque o nome da tablea do Banco de Dados.

Bem depois disto

ligue a textbox em DataSource coloque o Name do Data e depois va em DataField e colque o campo desejado.

bem faça isso e tudo.

agora para gravar no banco de dados.....

crie um botão Novo para adicionar o cadastro, no botão cmd_novo coloque o seguinte código.

Data.Recordset.AddNew

bem ai vc preenche todos os campos e no botão gravar vc coloca o seguinte código.

MsgBox("Deseja salvar novo CLiente", vbInformation + vbYesNo, "ATENÇÃO") = vbYes Then

Data.UpdateRecord
Data.Recordset.Bookmark = DT_CAD_CD.Recordset.LastModified

ai blz seu cadastro esta gravado

Agora para ver se vc não esta repetindo o cadastro bem eu não tenhu certeza mas coloque um IF ai. Exemplo.:
Dim Pesquisa as string

Pesquisa = "CPF = " ' & textbox & " ' "

if textbox = pesquisa then
msgbox (" Cliente ja Cadastrado" , vcinformation, "Atenção")
end if

Bem acho q é isso mas qualquer duvida da um toque ai bl


falo

Edição feita por: Bocaw, 20/11/2003, 16:05.

[Leo_30]

Ao lêr essa explicação até parece fácil.

"ligue com o Banco de Dados usando o utilitário Data" - até aki sem problemas.

"Ligar o Data va em DataBaseName e coloque o caminho do Banco de Dados" - sem problemas, vamos em frente......

"va em RecordSource e coloque o nome da tablea do Banco de Dados." - e pronto....... problemas......

Só dá erro.

Unrecognized database format '......\teste.mdb' - PQ???????

Com ADODC ligo sem problemas.

[Kurt]

Ao lêr essa explicação até parece fácil.

"ligue com o Banco de Dados usando o utilitário Data" - até aki sem problemas.

"Ligar o Data va em DataBaseName e coloque o caminho do Banco de Dados" - sem problemas, vamos em frente......

"va em RecordSource e coloque o nome da tablea do Banco de Dados." - e pronto....... problemas......

Só dá erro.

Unrecognized database format '......\teste.mdb' - PQ???????

Com ADODC ligo sem problemas.

Esse erro ocorre pq o vb soh aceita BDs do access de versao 97 ou + antiga. Caso vc naum tenha o Access 97, naum tem problema, basta converte-lo para esta versao. Para isso, abra seu Banco de Dados e va no menu: Ferramentas>Utilitario de banco de dados>Convertar banco de dados>Para versão do Access 97. Pronto! o BD foi convertido e agora sim o VB vai aceitar. Flw