Jump to content

Acesso a base de dados access


Leudassdf
 Share

Recommended Posts

Boa pessoal

Estou a tentar saber qual o tamanho das linhas do nome na base de dados aplicando assim:

aqltext = "select count(nome) from contactos"

        commando.CommandText = aqltext

        commando.Connection = ligacao

no entanto nao estou a conseguir aplicar esse codigo sql. nunca programei com base de dados por isso peço ajuda a quem entender do assunto

Obrigada pela voça atençao

Link to comment
Share on other sites

Mostra o código.

Imports System.Data.OleDb


Public Class Form1
    Dim ligacao As New OleDbConnection
    Dim aqltext As String
    Dim commando As New OleDbCommand
    Dim dados As New DataSet
    Dim adaptador As New OleDbDataAdapter
    Dim posiçao = 0
    Dim nome As String
    Dim n As Integer = 0

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ligacao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Agenda.accdb"
        ligacao.Open()
        'comando de sql que permite selecionar os dados pretendidos
        aqltext = "Select * from contactos "
        'carregar o dataset
        adaptador = New OleDb.OleDbDataAdapter(aqltext, ligacao)
        adaptador.Fill(dados, "Pesquisa access")

        'mostrar dados no formulario
        TXT_Nome.Text = dados.Tables("Pesquisa access").Rows(0).Item(0)
        TXT_Idade.Text = dados.Tables("Pesquisa access").Rows(0).Item(5)
        TXT_Telemovel.Text = dados.Tables("Pesquisa access").Rows(0).Item(2)
        TXT_Telefone.Text = dados.Tables("Pesquisa access").Rows(0).Item(3)
        TXT_Email.Text = dados.Tables("Pesquisa access").Rows(0).Item(1)
        TXT_Morada.Text = dados.Tables("Pesquisa access").Rows(0).Item(7)
        TXT_DAta_Nascimento.Text = dados.Tables("Pesquisa access").Rows(0).Item(4)
        TXT_Tipologia.Text = dados.Tables("Pesquisa access").Rows(0).Item(8)

        ligacao.Close()

    End Sub

    Private Sub BTN_Pesquisar_Click(sender As System.Object, e As System.EventArgs) Handles BTN_Pesquisar.Click
        ligacao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Agenda.accdb"
        ligacao.Open()
        'comando de sql que permite selecionar os dados pretendidos
        aqltext = "Select telemovel from contactos where nome= '" & TXT_Nomeapesquisar.Text & "'"
        'executa a instruçao de sql
        commando.CommandText = aqltext
        'faz coneccçao a variavel ligaçao
        commando.Connection = ligacao
        ' o comando e executescalar executa o que esta na variavel comando
        'MsgBox(commando.ExecuteScalar())


        ligacao.Close()
    End Sub

    Private Sub BTN_Proximo_Click(sender As System.Object, e As System.EventArgs) Handles BTN_Proximo.Click
        n = n + 1
        aqltext = "select count(nome) from contactos"
        commando.CommandText = aqltext
        commando.Connection = ligacao

        MsgBox(aqltext)
        TXT_Nome.Text = dados.Tables("Pesquisa access").Rows(n).Item(0)
        TXT_Idade.Text = dados.Tables("Pesquisa access").Rows(n).Item(5)
        TXT_Telemovel.Text = dados.Tables("Pesquisa access").Rows(n).Item(2)
        TXT_Telefone.Text = dados.Tables("Pesquisa access").Rows(n).Item(3)
        TXT_Email.Text = dados.Tables("Pesquisa access").Rows(n).Item(1)
        TXT_Morada.Text = dados.Tables("Pesquisa access").Rows(n).Item(7)
        TXT_DAta_Nascimento.Text = dados.Tables("Pesquisa access").Rows(n).Item(4)
        TXT_Tipologia.Text = dados.Tables("Pesquisa access").Rows(n).Item(8)



    End Sub
End Class

Refiro-me a parte de BTN_proximo_click

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.