USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Inserir dados em uma tabela utilizando conexão ADO!
Postada em 16/6/2002 por CristianoAlbano            
Duas formas para inserir dados numa tabela utilizando uma conexão ADO!

No module, digite:
Dim banco as ADODB.Connection
Dim TABELA as ADODB.Recordset

No Load do Form, digite:
Set banco = New ADODB.Connection
banco.Open "Provider=MSDASQL.1;Password=suasenha;Persist Security Info=False;Data Source=DSNNOME"

'-Observação
'-DSNNOME deve ser criada com o caminho do bano de dados
'-Para cria-lá: Painel de Controle -> Ferramentas Administrativas
'->Fontes de Dados (ODBC)

Set TABELA = New ADODB.Recordset
TABELA.Open "SELECT * FROM TABELA", banco, , adLockOptimistic

'-Uma das formas é:
TABELA.AddNew
TABELA("CAMPO1") = txtCampo1.text
TABELA("CAMPO2") = txtCampo2.text
TABELA.Update

'-Outra forma é:
banco.Execute ("insert into TABELA(CAMPO1,CAMPO2)_
values('" & txtCampo1.Text & "','" & txtCampo2.Text & "')")

TABELA.Close
banco.Close
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página