Jump to content
Yakuza936

gravar\inserir ficheiro a BD por VB

Recommended Posts

Yakuza936

Boas sou novo por aqui, não sei se já há algum tópico criado a cerca deste assunto.

Gostaria saber como faço para inserir\ guardar informação, para uma base de dados Access através do VB 2010?

Share this post


Link to post
Share on other sites
Yakuza936

Tive a ver esse link

ao principio pensei que ia funcionar mas nao consegui por a funcionar.

nao guarda a informação na base de dados.

Share this post


Link to post
Share on other sites
Caça

Está a dar erro?

Mostra o que já tens feito.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Mostra o código que estas a usar


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Yakuza936
Private Sub T_SoftwareBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_SoftwareBindingNavigatorSaveItem.Click

        Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\BD.mdb")
        Dim query As String = "INSERT INTO Clientes([iD_Software], [Designação_Software]) VALUES (@ID_Software, @Designação_Software)"

        Dim command As New OleDbCommand(query, ConnectionString)

        command.Parameters.Add("@ID_Software", OleDbType.VarChar).Value = ID_SoftwareTextBox.Text
        command.Parameters.Add("@Designação_Software", OleDbType.VarChar).Value = Designação_SoftwareComboBox.Text

        ConnectionString.Open()

        Dim x As Integer = command.ExecuteNonQuery()

        If x < 1 Then
            MessageBox.Show("Erro ao inserir", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            MessageBox.Show("Registo inserido com sucesso!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

        ConnectionString.Close()
        
        command = Nothing


    End Sub

Share this post


Link to post
Share on other sites
Caça

Ok, e depois? Está a dar erro?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Yakuza936

erro nao dá, mas escrevo a informação que quero e nao esta a guardar na BD

Share this post


Link to post
Share on other sites
Andrepereira9

Estas a usar qual versão do Acess? 2003 ou 2007?

Se tiveres o Acess 2007, experimenta alterar esta linha

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\BD.mdb")

por esta

Dim ConnectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\BD.accdb")


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

@Yakuza936, estás a usar Wizards? Não é recomendável usar Wizards e código em simultâneo...


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Não conseguimos ver isso... Faz o upload da imagem através do ImageShack e coloca ai


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Andrepereira9

Mete o link entre as tags [ url ] [ /url ]  sem os espaços

Ex:

[url=http://www.google.pt]Google[/url]


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Yakuza936

nao consigo ir ai, como estou no trabalho, diz que por questões de segurança nao posso aceder

Share this post


Link to post
Share on other sites
Caça

Então mostra a mensagem de erro


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Yakuza936

Não foi possível encontrar o ficheiro 'C:\Users\Pedro\Documents\Visual Studio 2010\Projects\projecto infonerd\projecto infonerd\bin\Debug\BD.accdb'

e com o .mdb também aparece

Share this post


Link to post
Share on other sites
Caça

Isso não te quer dizer nada?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Claro, é normal...

O erro é bem claro, copia para lá a BD.


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

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