1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Dificuldade em ligar base de dados access a VB10

Discussão em 'Programação' iniciada por Absolomb, 20 de Dezembro de 2012. (Respostas: 1; Visualizações: 603)

  1. Boas pessoal, estou aqui com um problema.
    Aprendi a ligar base de dados a access na escola de uma maneira bastante simples, e tenho o codigo dessa forma.
    Nao sei porque, mas dessa maneira nao estou a conseguir ligar a base de dados porque me dá erro devido as tables e views.
    Entao comecei a escrever o codigo de outra maneira, mas nao sei substituir as seguintes linhas de codigo. Em baixo deixo o codigo ja escrito ate agora, para ver se vos ajuda a perceber o que quero dizer. Obrigado.

    Me.ContasBindingSource.EndIt() Me.TableAdapterManager.UpdateAll(ds)

    Código:
    [/COLOR]
    Public Class Contas    Dim dbProvider As String    Dim dbSource As String    Dim con As New OleDb.OleDbConnection    Dim da As OleDb.OleDbDataAdapter    Dim Sql As String = "SELECT * FROM Contas"    Dim ds As New DataSet    Dim i As Integer    Dim len As Integer    Dim ind As Integer = 0    Dim arrNumbers() As String    Dim no As Integer    'Dim binding As BindingSource    'Dim am As TableAdapterManager    Private Sub Contas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load        dbProvider = "Provider=Microsoft.ACE.OLEDB.12.0;"        dbSource = "Data Source=D:\Users\Andre\Desktop\WCCORR\db\ContasCCOR.accdb"        con.ConnectionString = dbProvider & dbSource        con.Open()        da = New OleDb.OleDbDataAdapter(Sql, con)        da.Fill(ds, "ContasCCOR")        len = da.Fill(ds, "ContasCCOR")    End Sub    Private Sub nav()        txtNconta.Text = ds.Tables("ContasCCOR").Rows(i).Item(1)        txtBanco.Text = ds.Tables("ContasCCOR").Rows(i).Item(2)        txtNib.Text = ds.Tables("ContasCCOR").Rows(i).Item(3)        txtIban.Text = ds.Tables("ContasCCOR").Rows(i).Item(4)        txtDcriacao.Text = ds.Tables("ContasCCOR").Rows(i).Item(5)    End Sub    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click        i = 0        nav()    End Sub    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click        If (i = 0) Then            MsgBox("Este já é a primeira conta.")        Else            i = i - 1            nav()        End If    End Sub    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click        If (i = 1) Then            MsgBox("Este já é a última conta.")        Else            i = i + 1            nav()        End If    End Sub    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click        i = len - 1        nav()    End Sub    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click        Dim sql1 = InputBox(" Nrconta:*", "Search", "")        Dim no As Integer        Dim found As Boolean = False        For no = 0 To len - 1            If ds.Tables("ContasCCOR").Rows(no).Item(1).ToString.ToLower = sql1.ToString.ToLower Then                i = no                nav()                found = True            End If        Next        If (found = True) Then            MsgBox("Não foram encontrados resultados.")        End If    End Sub    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click        'TODO: This line of code loads data into the 'Base_de_Dados1DataSet.Tabela1' table. You can move, or remove it, as needed.        da.Fill(ds, "ContasCCOR")        'Se algum campo estiver em branco, pedir para escrever alguma coisa nesse campo'        If txtBanco.Text = "" Or txtDcriacao.Text = "" Or txtIban.Text = "" Or txtNconta.Text = "" Or txtNib.Text = "" Then            MsgBox("Introduza um valor")        Else            MsgBox("Cliente atualizado")        End If        Me.Validate()        Me.ContasBindingSource.EndIt()        Me.TableAdapterManager.UpdateAll(ds)    End Sub    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        i = len + 1        nav()        txtBanco.Clear()        txtDcriacao.Clear()        txtIban.Clear()        txtNconta.Clear()        txtNib.Clear()    End SubEnd Class[COLOR=#EDEDED]
     
    Última edição: 20 de Dezembro de 2012

Partilhar esta Página