none
Instrução Access RRS feed

  • Pergunta

  • Imports System.Windows.Forms

    Public Class Form1

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            TextBox1.Select()
            Dim conn As New OleDbConnection()
            conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador\Desktop\AGENDA\cadastro.mdb"

            conn.Open()

            Dim cmd As OleDbCommand = New OleDbCommand("select * from cliente", conn)
            Dim reader As OleDbDataReader = cmd.ExecuteReader()
            If reader.HasRows Then
                reader.Read()
                TextBox1.Text = reader("nome").ToString()
                TextBox2.Text = reader("endereco").ToString()
                TextBox3.Text = reader("cidade").ToString()
                TextBox4.Text = reader("estado").ToString()
                TextBox5.Text = reader("telefone").ToString()
               

                
            End If
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
                Dim conn As New OleDbConnection()
                conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\Administrador\Desktop\AGENDA\cadastro.mdb"
                conn.Open()


                Dim cmd As OleDbCommand = New OleDbCommand("insert into cliente where nome=@nome, endereco=@endereco, cidade=@cidade, estado=@estado, telefone=@telefone", conn)

                cmd.Parameters.AddWithValue("nome", TextBox1.Text)
                cmd.Parameters.AddWithValue("endereco", TextBox2.Text)
                cmd.Parameters.AddWithValue("cidade", TextBox3.Text)
                cmd.Parameters.AddWithValue("estado", TextBox4.Text)
                cmd.Parameters.AddWithValue("telefone", TextBox5.Text)


                cmd.ExecuteNonQuery()
                conn.Close()


            Catch ex As Exception
                MsgBox("Erro ao cadastrar")
            End Try
            

        End Sub
    End Class


    qual seria a instrução para registrar os dados


    e como faço para inserir o proximo registro ?
    quinta-feira, 21 de janeiro de 2010 19:27

Respostas

Todas as Respostas