Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

rjsma

Botoes da binding navigator[resolvido]

Mensagens Recomendadas

rjsma

boas

Estou a tentar fazer os botões da binding navigator, já consegui fazer quase todos mas só não estou a conseguir fazer o botão do gravar.

Pensava que era assim

Me.AgendaBindingSource.EndEdit()

abraço

:)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

era mesmo isso que faltava.Agora descobri que o meu botao para apagar os dados tambem nao funciona.

tenho assim

Me.AgendaBindingSource.remove

neste caso tambem vou de acrescentar o mesmo codigo para o botao do gravar?

abraço

:)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

era isso, eliminar o registo que está seleccionado.Mas tipo tenho 2 forms uma para fazer o registo dos dados e outro para mostrar os dados em textboxs.Na form para mostrar os dados tenho la um botao para editar os dados ja gravados e queria que ele abrisse a form para registar os dados com as textboxs preenchidas com os dados da pessoa.Sabes como posso fazer isto?

Fui claro ou está um bocado confuso?  :P

abraço

:)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

E foi o que eu disse.

Esse ID deve estar numa textbox, senão tiver, outro dado qualquer vai estar, portanto fazes um SELECT a um desses dados.

Algo como:

SELECT xpto FROM tabela WHERE ID = " & textbox1.text

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

Se tens o nome numa textbox (por exemplo) podes procurar pelo nome. Contudo, uma query por ID (integer)  é muito mais rápido do que uma query por String.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

fiz uma coisa assim e mesmo assim diz que o end of statement of expected

 SELECT nome FROM agenda WHERE Nome = " & textbox1.text"
        End Select

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ByMySlf

O que faz esse End Select aí?

O select...

 SELECT nome FROM agenda WHERE Nome = " & textbox1.text"

...é uma query à base de dados que nada tem a ver com um Select...Case Statement.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

O que faz esse End Select aí?

O select...

 SELECT nome FROM agenda WHERE Nome = " & textbox1.text"

...é uma query à base de dados que nada tem a ver com um Select...Case Statement.

assim tambem não dá, como não estava a dar experimentei por o end select mas parece que não tem nada a ver para esta situação

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

O que faz esse End Select aí?

O select...

 SELECT nome FROM agenda WHERE Nome = " & textbox1.text"

...é uma query à base de dados que nada tem a ver com um Select...Case Statement.

Também é por causa disso, mas não só.

O "End of statement of expected" também deriva devido ao código que tens, em vez de:

SELECT nome FROM agenda WHERE Nome = " & textbox1.text"

Tens de ter:

 SELECT nome FROM agenda WHERE Nome = " & textbox1.text & ""

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

assim tambem não dá, eu utilizei o select end por causa tambem estava a a dar este erro

'Select Case' must end with a matching 'End Select'.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

assim tambem não dá, eu utilizei o select end por causa tambem estava a a dar este erro

'Select Case' must end with a matching 'End Select'.

O SELECT que eu te falei, é uma instrução do SQL.

Tu precisas de uma ligação (tudo via código) à base de dados, precisas de criar uma query à base de dados (Aquele SELECT que eu te disse), precisas de estipular os dados a serem mostrados...

Procura no google, encontras montes de tutoriais. Qualquer coisa apita!  :P

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

bom exemplo,isto é para uma base de dados sql ou tenho de adaptar para access?Como na parte da ligação da base de dados está la isto 'C:\myDatabase.mdf'penso que é a mesma coisa para a bd access, estou certo?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

Não, para o Access é:

Dim BaseDeDados As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & My.Application.Info.DirectoryPath & "\BaseDados.mdb';Persist Security Info=True;"

Btw, para isto funcionar, tens de ter a tua BD na pasta debug da aplicação.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

Sim, em cima tens de fazer o imports do access, neste caso é: Imports system.data.OleDb

Depois nas conexões etc, em vez de SqlConnection é OleDbConnection

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rjsma

cá estou eu outra vez :P

Já passei quase tudo para access mas continua haver aqui alguma partes a não bater certo, consultei este topico onde tem um exemplo para o access e fui por aqui que me guiei

http://www.portugal-a-programar.pt/index.php?showtopic=21684

' Texto de ligação à base de dados
        Dim connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & My.Application.Info.DirectoryPath & "\Agenda.mdb';Persist Security Info=True;"

        ' Selecção à  tabela "MyTable" em que o campo "username"
        ' será passado através de parâmetros posteriormente
        Dim SQL As String = "SELECT * FROM agenda WHERE nome = @username"

        ' Cria uma nova ligação à base de dados
        Dim connection As New OleDbConnection(ConnString)

        ' Criação do comando indicando a instrução e a ligação
        Dim command As New OleDbConnection(OleDb, connection)

        ' Indicação dos parâmetros da selecção
        command.Parameters.Add("@username", OleDbType.VarChar).Value = "agenda"

        ' Abre a ligação
        connection.Open()

        ' Executa o comando colocando num SqlDataReader os resultados
        Dim reader As OleDblDataReader = command.ExecuteReader()

        ' Caso existam rows (linhas)
        If reader.HasRows Then

            ' Executa um ciclo nas linhas existentes mostrando o campo “username”
            While reader.Read()
                Debug.WriteLine(reader.Item("username"))
            End While

        End If

        ' Fecha a ligação e limpa as variáveis
        connection.Close()
        connection = Nothing
        command = Nothing
    End Sub

As seguintes partes do codigo são os que estão a dar-me problemas mas não sei porque, eu já passei para o access

' Criação do comando indicando a instrução e a ligação
        Dim command As New OleDbConnection(OleDb, connection)

' Indicação dos parâmetros da selecção
        command.Parameters.Add("@username", OleDbType.VarChar).Value = "agenda"

' Executa o comando colocando num SqlDataReader os resultados
        Dim reader As OleDblDataReader = command.ExecuteReader()

Para ser sincero só consegui perceber só metade do codigo pois parece haver partes que que não são necessários neste caso. :)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.