Jump to content
Sign in to follow this  
Chamuanza

Inserir Dados em Tabela

Recommended Posts

Chamuanza

Oi Pessoal

Estou a tentar inserir dados numa BD que criei via VB2008,no entanto da-me erro na linha "  connection.Open()"

An attempt to attach an auto-named database for file D:\ProjectoTotoMilhoes\TotoMilhões\TotoMilhoes.sdf failed. A database with the same name exists, or specified file cannot be opened, or it is located on UNC share.

O Código que estou a utilizar

 ' Texto de ligação à base de dados 
        Dim myConnectionString As String = _
          "Data Source=.\SQLEXPRESS;AttachDbFilename='D:\ProjectoTotoMilhoes\TotoMilhões\TotoMilhoes.sdf';" & _
          ";Integrated Security=True;User Instance=True"

        ' Comando que irá inserir dados na tabela "JogadosEuromilhoes" em que os campos 
        ' "Data" e "diasemana" são passados através de parâmetros 
        Dim SQL As String = "INSERT INTO JogadosEuromilhoes([Aposta], [Data], [DiaSemana], [N1], [N2], [N3], [N4], [N5],[E1], [E2]) VALUES (@Aposta, @Data, @DiaSemana, @N1, @N2, @N3, @N4, @N5, @E1, @E2);"

        ' Cria uma nova ligação à base de dados 
        Dim connection As New SqlConnection(myConnectionString)
        ' Criação do comando indicando a instrução e a ligação 
        Dim command As New SqlCommand(SQL, connection)

        ' Indicação dos parâmetros que serão inseridos 
        command.Parameters.Add("@Aposta", SqlDbType.VarChar).Value = ContaNumeroAposta
        command.Parameters.Add("@Data", SqlDbType.DateTime).Value = MonthCalendar1.SelectionRange
        command.Parameters.Add("@Diasemana", SqlDbType.VarChar).Value = "Terça-Feira"
        command.Parameters.Add("@N1", SqlDbType.VarChar).Value = ListBox1.Items.Item(0)
        command.Parameters.Add("@N2", SqlDbType.VarChar).Value = ListBox1.Items.Item(1)
        command.Parameters.Add("@N3", SqlDbType.VarChar).Value = ListBox1.Items.Item(2)
        command.Parameters.Add("@N4", SqlDbType.VarChar).Value = ListBox1.Items.Item(3)
        command.Parameters.Add("@N5", SqlDbType.VarChar).Value = ListBox1.Items.Item(4)

        command.Parameters.Add("@E1", SqlDbType.VarChar).Value = ListBox2.Items.Item(0)
        command.Parameters.Add("@E2", SqlDbType.VarChar).Value = ListBox2.Items.Item(1)



        ' Abre a ligação, executa o comando e guarda em "x" o número de registos inseridos 
        connection.Open()

        Dim x As Integer = command.ExecuteNonQuery()
        If x < 1 Then
            MessageBox.Show("A operação efectuada não retomou qualquer resultado.")
        End If

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

agradecia uma ajudinha

Share this post


Link to post
Share on other sites
Caça

Como podes ler, já existe outra BD a correr com o mesmo nome.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Chamuanza

Então e agora o que devo fazer?

Alterar o nome da BD ou fazer uma nova com outro nome?

Share this post


Link to post
Share on other sites
Chamuanza

Oi Caça

Dá-me lá uma explicação, então eu atraves do Database Explorer vou a tabela e preencho os campos manualmente.

Share this post


Link to post
Share on other sites
Caça

Não podes ter duas db com o mesmo nome, se ja tens uma a correr no servidor e estás a tentar anexar outra com o mesmo nome, é óbvio que vai dar erro..


Pedro Martins

Não respondo a duvidas por PM

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
Sign in to follow this  

×
×
  • 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.