CODIGO DOS BOTOES

GESSINGER 11/04/2011 09:11:16
#371029




Meu codigo esta assim

Imports System.Data.OleDb

Public Class Form1

Dim data As DataSet
Dim adap As OleDbDataAdapter
Dim con As String
Dim conexao As OleDbConnection
Dim sql As String
Dim comando As OleDbCommand

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

con = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & Application.StartupPath & [Ô]\Dados.mdb[Ô] [ô]define a string de conexão com o banco de dados
conexao = New OleDbConnection(con) [ô]define o objeto OledbConnection usando a string de conexão
adap = New OleDbDataAdapter [ô]Cria o objeto DataAdapter
sql = [Ô]SELECT * FROM Tab[Ô]
comando = New OleDbCommand(sql, conexao) [ô]cria o objeto OleDbCommand
adap.SelectCommand = comando
data = New DataSet() [ô]Cria o objeto DataSet
adap.Fill(data, [Ô]Tab[Ô]) [ô]preenche o dataset
[ô]Carrega as txt
txtNome.DataBindings.Add([Ô]Text[Ô], data, [Ô]Tab.Nome[Ô]) [ô]Vincula os controles no dataset
txtTel.DataBindings.Add([Ô]Text[Ô], data, [Ô]Tab.Tel[Ô])
txtCel.DataBindings.Add([Ô]Text[Ô], data, [Ô]Tab.Cel[Ô])

End Sub

Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click
Me.BindingContext(data, [Ô]Tab[Ô]).Position += 1
End Sub

Private Sub btnFechar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFechar.Click
Me.Close()
End Sub

Private Sub btnAnterior_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
Me.BindingContext(data, [Ô]Tab[Ô]).Position -= 1
End Sub
End Class
GESSINGER 11/04/2011 09:17:58
#371030
preciso do codigo dos outros botoes,
RODRIGOFERRO 11/04/2011 10:08:25
#371034
veja abaixo...



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Me.BindingContext(Me.dsAuthors1, [Ô]authors[Ô]).Position -= 1 [ô]retrocede um registro

    mostra_dados_atual()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Me.BindingContext(Me.dsAuthors1, [Ô]authors[Ô]).Position += 1 [ô]avança um registro

   mostra_dados_atual()

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

   Me.BindingContext(Me.dsAuthors1, [Ô]authors[Ô]).Position = 0 [ô]vai para o inicio do arquivo

  mostra_dados_atual()

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

    Me.BindingContext(Me.dsAuthors1, [Ô]authors[Ô]).Position = Me.BindingContext(dsAuthors1, [Ô]authors[Ô]).Count - 1

   mostra_dados_atual()  [ô]vai para o fim do arquivo

End Sub
RODRIGOFERRO 11/04/2011 10:11:50
#371036
Segue link Macoratti !

http://www.macoratti.net/vbnet_7.htm

Abraços
GESSINGER 11/04/2011 11:32:09
#371063
Preciso dos codigos dos botoes Gravar, Excluir e Alterar

Obrigado
GESSINGER 11/04/2011 11:45:36
#371066
pra ninguem dizer q eu não to correndo atras , ja estou quase conseguindo pois,
ja codifiquei o botão gravar e quando eu clico em gravar, ele grava nas txt e no grid.
So quando eu fecho o form e abro de novo, desaparece...por tanto percebo q não esta gravando no banco.


Alguem pode ajudar....so preciso finalizar

o zip ta ai pra quem quiser dar uma olhada

Gostaria de saber tb se é possivel fazer isso sem usar modulo
RODRIGOFERRO 11/04/2011 12:09:59
#371067
CONEXAO COM BANCO ACCESS // Comandos envolvidos.: INSERT, UPDATE e DELETE

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=9011

é so adaptar....
Página 3 de 3 [27 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar