[Resolvido] Visualizando e Inserindo Dados Vi ADODC

[Franklim 0]

Boa Tarde!

 

Vou explicar melhor..

tenho um form com:

2-TextBox(Nome e Número)

1-Objeto ADODC

Que,com o botão direito do mouse clico em Properties, Na aba General Use connection string botão build

que eu vou definir me provedor no caso microsof jet 4.0 ok! Avançar automáticamente ele vai para a aba

conexão e é onde vou mostrar onde se enontra meu bancode dados. Testada a conexão retornamos a property pages

e em record source eu indicarei como serão os dados seserão tabela,texto ou definido por SQL certo? OK!

Agora , No meu banco de dados tenho dois campos (Nome e Numero)que eu vou associar ao ADODC em Datasource

e aos campos (textbox1 campo nome e textbox2 campo numero)pela propriedade DataField. Funciona para Visualizar os dados!

 

O que quero saber é justamente isso!

Adicionarei mais dois textbox e um botão de comando por exemplo para incluir os dados!

Tenho que declarar novo record set ou connection string ou outras opções???

Como devo proceder nesse caso????

[Nilson Cl. 0]

Bom dia Franklin

 

Estou postando um exemplo com banco de dados access 2003

 

no link baixo:

 

Neste exemplo esta gravando, Pesquisando, e Editando os registro.

 

Para poder usar o exemplo em outro projeto você vai ter que fazer referencia a um class de acesso a dados.

 

Microsoft ActiveX Data Objects 2.0 Libraly

 

Segue codigo do projeto que esta no link

 

www.ncmd.com.br/download/Exemplovb.zip

 

Dim Conexao As New ADODB.Connection

'Edita o restro no banco de dados
Private Sub btEditar_Click()
    Dim rs As New ADODB.Recordset
    
    rs.Open "Select * From Cliente Where Codigo=" & Me.txtCodigo.Text, Conexao, adOpenDynamic, adLockPessimistic
    rs.Update
        rs(1).Value = Me.txtNome.Text
        rs(2).Value = Me.txtNumero.Text
    rs.UpdateBatch adAffectCurrent
    
    
    Limpar
End Sub

'Grava um novo registro no banco de dados
Private Sub btGravar_Click()
    Dim rs As New ADODB.Recordset
    
    rs.Open "Cliente", Conexao, adOpenDynamic, adLockPessimistic
    rs.AddNew
        rs(1).Value = Me.txtNome.Text
        rs(2).Value = Me.txtNumero.Text
    rs.UpdateBatch adAffectCurrent
    
    
    Limpar
    
End Sub

Sub Limpar()
    Me.txtCodigo = ""
    Me.txtNome = ""
    Me.txtNumero = ""
    Me.txtNome.SetFocus
    
End Sub

'Coloca os valores nos campos para serem editados
Private Sub btVisualzar_Click()
    If IsNumeric(Me.DataGrid1.Columns(0).Value) Then
        Me.txtCodigo.Text = Me.DataGrid1.Columns(0).Value
        Me.txtNome.Text = Trim(Me.DataGrid1.Columns(1).Value)
        Me.txtNumero.Text = Me.DataGrid1.Columns(2).Value
        Me.txtNome.SetFocus
    Else
        MsgBox "Não a valore para ser visualizados", vbInformation
    End If
    
End Sub

Private Sub Command1_Click()
    Filtra Adodc1, DataGrid1, "Select * From Cliente Where Nome Like '" & Me.Text1.Text & "%'"
End Sub

Private Sub Form_Load()
    'Dim Strin As String
    'Strin = Adodc1.ConnectionString
    'Debug.Print Strin
    Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Banco.MDB;Persist Security Info=False"
    Conexao.Open
    
    
    Filtra Adodc1, DataGrid1, "Select * From Cliente"
End Sub

'funçaõ para fintrar os dados (( E faz a atualização do datagrid ))
Sub Filtra(Data As Adodc, Grade As DataGrid, STRINGSQL As String)
        On Error GoTo ERRO
            
            Data.ConnectionString = Conexao.ConnectionString
            Data.LockType = adLockReadOnly
            Data.RecordSource = STRINGSQL
            Set Grade.DataSource = Data
            Data.Refresh
            Grade.Refresh
        
            MsgBox "Total de Registro Encontrados é de " & Data.Recordset.RecordCount, vbInformation
            
        
        Exit Sub
        
ERRO:   If Err.Number <> 0 Then
          
          MsgBox "Erro : " & Err.Description, vbCritical
          
        End If
End Sub

[Franklim 0]

Valeu Nilson!!!!!!!!!!!

 

 

Eu fiz umas pequenas modificações pra se adequar ao meu projeto mas, ficou muito bom Véio!!!!!!!!!!!!!!

eu fiz assim!

'Dim cnn As New ADODB.Connection

 

'Private Sub btFechar_Click()

'Unload Me

'End Sub

 

'Private Sub btGravar_Click()

'Dim rs As New ADODB.Recordset

' rs.Open "Nomes", cnn, adOpenDynamic, adLockPessimistic

' rs.AddNew

' rs(0).Value = txtNome.Text

' rs(1).Value = txtNumero.Text

' rs.UpdateBatch adAffectCurrent

' Adodc1.Refresh

'limpar

'

'

'

'End Sub

'

'Private Sub btLimpar_Click()

'txtNome.Text = Empty

'txtNumero.Text = Empty

'txtNome.SetFocus

'End Sub

'Private Sub Form_Load()

'Dim rs As String

'rs = Adodc1.ConnectionString

'Debug.Print rs

'cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\Teste1.MDB;Persist Security Info=False"

'cnn.Open

 

 

 

 

'End Sub

'Private Sub limpar()

'txtNome.Text = Empty

'txtNumero.Text = Empty

'End Sub

 

Ficou exatamente como eu queria !!!

Valeu mmmmmmmmmmeeeeeeeeeeeeeeeeerrrrrrrrrrrrrrrrrrmmmmmmmmmmmooooooooooooo!!!!!!!!