• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ccmcg234

Conexão á Base de dados sqlserver

9 mensagens neste tópico

Boas,

Tenho um problema e gostava de saber se alguém me pode ajudar.

Estou a desenvolver um projectozito no qual tenho que escrever numa textbox um nome de um paciente e o seu telefone e os mesmos serem colocados na tabela de pacientes no sqlserver nos campos respectivos(Nome e telefone)

Alguem me pode dizer que código ou como faço a ligação á base de dados?

Obrigado

E Bom Natal aos demais.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Existem muitas formas de fazeres isso.... a mais facil é por bindings.

Mas dá uma olhade-la na wiki e no vbtuga, provavelmente encontras lá alguma coisa sobre isso. Na revista programar saiu um artigo sobre isso, mas de cabeça não te sei dizer qual a edição. Dá uma olhade-la

O codigo que te deixo abaixo é para Mysql.


        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=127.0.0.1;user id=root;password=paskey;database=minhabd"
        myCommand.CommandText = "select * from tabela"
        SQL = myCommand.CommandText

        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = SQL

                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)

                DataGrid1.DataSource = myData
                DataGrid1.ColumnHeadersVisible = True
            Catch myerror As MySqlException
                MsgBox("Erro a ler da base de dados " & myerror.Message)
            End Try
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Erro a ligar à base de dados : " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
        conn.Close()

Neste link encontras uma maneira muito mais simples de fazer o que queres, sem ter de usar tanto condigo, utilizando bindings http://www.macoratti.net/vbn5_adm.htm

Cumprimentos

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ccmcg234 se precisares de ajuda para fazer  bindings diz qualquer coisa,eu ajudo te

cumps

:P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Azevedo,

Sim vou precisar da tua ajuda, muito obrigado por me ajudares.

cumps,

ccmcg

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

olha envie te uma mensagem com o meu mail

falamos pelo o msn e melhor para te ajudar e mais rapido

cumps

:ipool:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O que está errado. Ao menos comuniquem-se por PM... não digas isso aqui para todos :nono:

Faz parecer que isto é um ponto de encontro B)

No mínimo, pedia-te que quando já souberes fazer, vem cá explicar como conseguiste lá chegar, para todos os que "procuram o mesmo que procuraste ao vir cá procurar".  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas Ribeiro55

Fica descansado quando souber venho aqui explicar o que fiz para as outras pessoas ficarem esclarecidas!

Cumps,

Cláudia

0

Partilhar esta mensagem


Link 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