Conexao Com Banco De Dados

[mestre fyoda]

VB(microsoft visual basic 6.0), gostaria de incluir dados do campo : nome e sobre_nome para o banco de dados Banco.mdb da tabela usuarios .

Por favor gente me ajudem , sou iniciante , passem o codigo passo a passo e com a explicação da linha o que ela faz . Por favor.

Muito grato .

[Graymalkin]

Existem duas maneiras simples de se fazer isso. Uma delas é utilizando um Recordset e a outra maneira é utilizando apenas SQL. Vou colocar aqui exemplos das duas formas (na opção References... do menu Project marque o Microsoft ActiveX Data Objects 2.x Library, onde o ".x" representa a versão mais nova que você tiver disponível aí):

'No General Declarations:

dim cn as new ADODB.Connection
dim rs as new ADODB.Recordset

'No Load do form:

cn.CursorLocation = adUseClient 'Define o cursor como local
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\pasta\arquivo.mdb" 'Abre o BD
rs.Open "SELECT * FROM usuarios", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"

'No evento Click de um botão (considerando que você tem duas textboxes, chamadas txtNome e txtSobrenome de onde virão os valores a serem inseridos):

rs.addnew 'Adiciona um registro em branco
rs.fields("nome").value = txtNome.text 'Preenche um campo
rs.fields("sobre_nome").value = txtSobrenome.text 'Preenche o outro campo
rs.update 'Salva o registro

Isso acima é um exemplo inteiro. O outro seria (conservando apenas a declaração do "cn" no General Declarations e a abertura do banco de dados no evento Load, ou seja, tudo relacionado ao "rs" desaparece): 'No evento Click de um botão (considerando que você tem duas textboxes, chamadas txtNome e txtSobrenome de onde virão os valores a serem inseridos):

dim sql as string
sql = "INSERT INTO usuarios (nome, sobre_nome) VALUES ('" & txtNome.text & "', '" & txtSobrenome.text & "');"
cn.Execute sql

Bom, qualquer dúvida, posta aí.

Abraços,

Graymalkin