CRUD_BOTOES

WILTONVB 21/05/2012 10:37:14
#402384
Ola pode me mostrar como codificar esses botoes pra mim :
Proximo, anterior, editar e excluir ?

desde ja agradeço
ALTAIR148 21/05/2012 10:57:00
#402386
Bom dia,

Veja se o link abaixo lhe ajuda.

http://www.macoratti.net/vbn_uctr.htm
GESSINGER 21/05/2012 11:37:40
#402391
não gostaria q fosse controle vinculado...e faltou o edjtar e excluir
alguem pode ajudar ?
WILTONVB 21/05/2012 15:48:15
#402404
Preciso q seja em codifo, se alguem poder codificar esses botoes, menos o NOVO e GRVAR q ja est[ô]ao codificados
Valew
OMAR2011 21/05/2012 17:37:11
#402409
Imports System.Data.OleDb
Imports System
Public Class Form1
Private ds As DataSet
Dim connec As OleDbConnection
Private da As OleDbDataAdapter
Private dt As DataTable
Private registro As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

[ô]declara a variavel de conexao, passando ao String
[ô]Dim connec As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cadastro.mdb[Ô])
connec = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Cadastro.mdb[Ô])
[ô]abre a conexao ao banco
connec.Open()
Dim cm As String = ([Ô]SELECT * FROM dados;[Ô])
Try
ds = New DataSet
da = New OleDbDataAdapter(cm, connec)

da.Fill(ds, [Ô]Dados[Ô])
dt = ds.Tables([Ô]Dados[Ô])



If dt.Rows.Count > 0 Then
registro = 0
btnPrimeiro_Click(Nothing, Nothing)
Else
registro = -1

End If
Catch ex As Exception
MessageBox.Show([Ô]Erro: [Ô] & ex.Message, [Ô]Sem conexão[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try

[ô]instrução sql para selecionar todos os registros da tabela clientes

[ô]preenche o datagridView
Grid.DataSource = ds.Tables(0)

[ô]fecha a conexao com o banco
connec.Close()

End Sub

Private Sub exibirDados(ByVal m As Integer)

Dim i As Integer = dt.Rows.Count - 1

If m < 0 OrElse i < 0 Then Exit Sub

Dim dr As DataRow = dt.Rows(m)
[ô]txtCod.Text = dr(0)
txtNome.Text = [Ô][Ô] & dr(1)
mskTel.Text = [Ô][Ô] & dr(2)
mskCel.Text = [Ô][Ô] & dr(3)
End Sub
Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
registro = registro - 1
If registro < 0 Then registro = 0
exibirDados(registro)
End Sub
Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click
Dim i As Integer = dt.Rows.Count - 1
registro = registro + 1
If registro > i Then registro = i
exibirDados(registro)
End Sub

Private Sub btnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUltimo.Click
registro = dt.Rows.Count - 1
exibirDados(registro)
End Sub

Private Sub btnPrimeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimeiro.Click
registro = 0
exibirDados(registro)
End Sub

A minha cabeça não está funcionando legal hoje.
Preguiça Mental.
Este código é do FAMIGERADO Macoratti.
WILTONVB 22/05/2012 09:54:13
#402431
a conexão eu ja tenho, so preciso dos botoes

eu testei esse codigo e os botoes não funcionou, alguem pode ajudar ?
Obrigado

OMAR2011 22/05/2012 14:05:55
#402474
Verifique.
Tópico encerrado , respostas não são mais permitidas
Voltar