Inclusão de Registro!

[Anakia 0]

Private cn As ADODB.Connection

Private rs As ADODB.Recordset

Private Sub cmdOk_Click()

 

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

 

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Banco.mdb;Persist Security Info=False"

cn.Open

 

sql = "select * from Login where Nome = '" & txtNome.Text & "' and Senha = '" & txtSenha.Text & "'"

rs.Open sql, cn

 

 

If rs.EOF Then

MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro"

Else

 

frmGerenciamento.Show

Unload Me

 

End If

 

rs.Close

cn.Close

 

 

 

End Sub

este é o codigo q eu uso para fazer o login

como eu faria pra fazer um codigo de inclusão INSERT INTO?

[Ernane Ramos 0]

Anakia

No Caso você queria inserir quais dados no banco de dados?

[Giovanni Ritchie 0]

Essa é a unica forma que você conhece pra connectar base de dados Access com o VB??

Gostaria de aprender uma mais simples???

[scorpio 7]

Essa é a unica forma que você conhece pra connectar base de dados Access com o VB??

Gostaria de aprender uma mais simples???

Não...

da uma olhada aqui http://www.macoratti.net/dao.htm

[Anakia 0]

nao estou conseguindo fazer um formulario de registro simples e eu so tenho aquela conexão do login mais atraves dela eu nao consigo fazer uma inclusão com INSERT INTO, alguem pode me explicar passo a passo como que faz por que eu nao sei nada por favor?

[Anakia 0]

por favor alguem me ajuda...

[faelwan 0]

Bom... se eu entendi bem, você precisa de um formulário que possa inserir registros no BD...

A forma mais simples que eu conheço é assim, um exemplo bobo que guarda o valor de duas textboxes em uma Tabela do BD

 

Primeiro monta-se o formulário com as caixas de texto e um botão (Gravar, por exemplo)

Depois você deve declarar as seguintes variáveis como Privadas no Option Explicit(Primeira linha do editor de códigos)

Private cnLoja As New ADODB.Connection
'Pra fazer referência à conexão com o Banco de Dados, no caso eu usei como exemplo um BD chamado "Loja"

Private rsCliente As New ADODB.Recordset
'Pra fazer referência à tabela do BD, no caso eu usei como exemplo uma tabela chamada "Cliente"

Em seguida insere-se esses códigos no evento Load do form

cnLoja.ConnectionString = "Provider=Microsoft.jet.oledb.4.0"
cnLoja.Open "C:\BancodeDados\Loja.mdb"
'Para abrir a conexão com o BD, e atribuí-la à variável cnLoja,(lembrar de fazer a referência corretado banco de dados, URL)

rsCliente.Open "Cliente", cnLoja, adOpenKeyset, adLockOptimistic, adCmdTable
'Para atribuir a tabela Cliente do Banco de dados à variável rsCliente

Pra finalizar... no evento Click do botão Gravar, você insere os seguintes códigos:

 

rsCliente.AddNew
'Para adicionar um registro em branco na tabela Cliente, para poder editá-lo

rsCliente("nome_Cliente") = txtNomedoCliente.text
'Onde nome_Cliente representa um campo da tabela Cliente, e txtNomedoCliente representa a caixa de texto onde o usuário insere o nome do Cliente

rsCliente("telefone_Cliente") = txtTelefonedoCliente.text
'Onde telefone_Cliente representa um campo da tabela Cliente, e txtTelefonedoCliente representa a caixa de texto onde o usuário insere o telefone do Cliente

rsCliente.Update
'Para enfim salvar o registro

Pronto!

Não sei se está muito complicado, mas qualquer dúvida posta aí!

 

 

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif um abraço T+