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

pedromgantunes

[Resolvido] Base de dados

Recommended Posts

pedromgantunes

Estou iniciando a programação de bases de dados com o VB 2008.

Como inicio estava a tentar fazer um pequeno teste que vi num livro de VB 2008 da FCA

Depois de ter ter criado uma base de dados simples chamada RH.mdf, estava a tentar fazer um pequeno programa que me iria indicar a versão do SQL Server, no entanto o mesmo programa não funciona.

Agradecia que alguém me desse uma ajuda, uma vez que eu apenas estou iniciando o VB.

O código é o seguinte:

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form_load()
        Dim dados As String
        Const dados As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Pantun.DURA_CAPT\Os meus documentos\RH.mdf";Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim db As New SqlConnection(dados)
        db.Open()
        MsgBox("A versão do SQL Server é " & db.ServerVersion, MsgBoxStyle.Information)
    End Sub

End Class

Obrigado

🤔

Share this post


Link to post
Share on other sites
pedromgantunes

Já descobri qual era o erro.

De qualquer forma Obrigado.

O código ficou assim

Imports System.Data.SqlClient


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connstr = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Pantun.DURA_CAPT\Os meus documentos\RH.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim db As New SqlConnection(connstr)
        db.Open()
        MsgBox("A versão do SQL Server é " & db.ServerVersion, MsgBoxStyle.Information)
        MsgBox("Estado Base de dados: " & db.State.ToString(), MsgBoxStyle.MsgBoxHelp)
        db.Close()
        MsgBox("Estado Base de Dados: " & db.State.ToString(), MsgBoxStyle.MsgBoxHelp)

    End Sub
End Class

:wallbash:

Share this post


Link to post
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

×

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.