Acesso a base de dados access

[Leudassdf]

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

[Caça]

Que problema é que estas a ter?

[Leudassdf]

Que problema é que estas a ter?

ele em vez de devolver o numero de linhas que o nome tem devolve o texto que esta entre ""

[Caça]

Mostra o código.

[Leudassdf]

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

[Caça]

Não estas a executar a query. Faz como tens no Load.

[Leudassdf]

Não estas a executar a query. Faz como tens no Load.

como assim? nao percebi o que queres dizer...

[Caça]

Troca

MsgBox(aqltext)

Por

MsgBox(commando.ExecuteScalar())