Como fazer um formulário para cadastro ?

[nathanf 0]

Olá, Estou aprendendo a fazer programas no visual basic !

 

 

Acabei de fazer uma conexão com meu banco de dados via "Wampserver", uma conexão que lista pra mim tudo que tem dentro da tabela.

 

Agora queria saber como faço para que um formulário de cadastro armazene os dados em meu banco, se puder me mandar um exemplo posso estudar a partir do mesmo !!

 

Obrigado !

[sNniffer 1]

Bom, como já conseguiu listar os dados, já fez conexão com o banco...

Para cadastrar é bem simples:

 

Dim SQL As String
Set prs = New ADODB.Recordset
SQL = "Select cod,descricao From tipo" ''Tabela Tipo
prs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText
    With prs
       .AddNew
       .Fields("cod") = txtCod.Text
       .Fields("descricao") = txtDescricao.Text
       .Update
       MsgBox "Operação Realizada", vbInformation + vbOKOnly, "Cadastro..."
   End With

 

A partir disso poderá fazer muita coisa.

[nathanf 0]

Cara...não estou conseguindo com esse código

 

eu fiz um aki no visual basic 2010

 

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim SQL As String
       Dim conn As New teste_dbDataSet

       conn.Open()

       SQL = "INSERT INTO tb_teste VALUES (" & txtnome.Text & "," & txtsobrenome.Text & "," & txtidade.Text & "," & txtendereco.Text & ")" ''Tabela Tipo
       SQL = conn

       conn.Close()

   End Sub
End Class

 

tem alguma coisa errada ??

[sNniffer 1]

O código que postei é para o VB6.

 

Qual erro está dando no seu código?

[nathanf 0]

não esta inserindo os dados em minha tabela...

 

estou usando o vb 2010, e um banco de dados usando o wampserver...

 

meu banco: teste_db

minha tabela: tb_teste

colunas: ID, NOME, SOBRENOME, IDADE, ENDERECO

 

formulario no vb:

 

label1:nome textbox1:txtnome

label2:sobrenome textbox2:txtsobrenome

label3:idade textbox3:txtidade

label4:endereço textbox4:txtendereco

 

Button1: Cadastrar