|
|
|
|
|
|
|
|
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
|
|
|
|
|
