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)
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: