Jump to content

alterar conteudo de uma base de dados


j.mendes24
 Share

Recommended Posts

eu tenho uma BD com o nome de "bot", essa BD tem apenas uma tabela chamada "controlo", e essa tabela tem apenas um campo com o nome de "cod_controlo"

como e que eu apenas por codigo consigo alterar esse conteudo? como e que consigo aceder a base de dados e alterar o conteudo desse campo?

agradecia respostas, √© urgente, help me! please. ūüėõ

Link to comment
Share on other sites

Assim por alto para te dar umas pistas para a pesquisa:

http://vbtuga.blogspot.com/2008/04/vbnet-gesto-de-dados-em-sql-server.html

Este código pode ser quase todo aproveitado....

O que muda? A concetionstring, e os objectos relacionados com base de dados, que em vez de SQL.... dever√£o ser OLEDB....

Tenta fazer qq coisa, e depois posta de novo... com erros específicos...

Quando te pedirem peixe.... ensina-os a Pescar!!Hum..l√°l√°l√°l√°!!

Link to comment
Share on other sites

Imports System.Data.OleDb

Public Class Form1

    Dim myConnectionString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename='C:\myDatabase.mdf';" & ";Integrated Security=True;User Instance=True"

    Dim access As String = "UPDATE controlo_bot.accbd SET [cod_controlo] = @cod_controlo,"

    Dim connection As New OleDbConnection(myConnectionString)

    Dim command As New OleDbCommand(access, connection)

    command.Parameters.Add("@cod_controlo", OleDbType.VarChar).Value = "2"

    'é aqui no comand que me da erros, e dava mais em outros sitios mas ja os corrigi. agora é ai

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        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

        connection.Close()

        connection = Nothing

        command = Nothing

    End Sub

End Class

Link to comment
Share on other sites

Imports System.Data.OleDb

Public Class Form1

    Dim myConnectionString As String = Provider=Microsoft.ACE.OLEDB.12.0;Data Source= "C:\Documents and Settings\jorge mendes\Os meus documentos\controlo_bot.accdb';" & ";Integrated Security=True;User Instance=True"

    Dim access As String = "UPDATE controlo_bot.accbd SET [cod_controlo] = @cod_controlo,"

    Dim connection As New OleDbConnection(myConnectionString)

    Dim command As New OleDbCommand(access, connection)

    command.Parameters.Add("@cod_controlo", OleDbType.VarChar).Value = "2"

    'Provider=Microsoft.ACE.OLEDB.12.0;Data Source="C:\Documents and Settings\jorge mendes\Os meus documentos\controlo_bot.accdb"




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        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

        connection.Close()

        connection = Nothing

        command = Nothing



    End Sub
End Class

ja esta e agora ja me podes ajudar? como ves nao era com pouca pesquisa. agora da erro na connectionstring e no command.

Link to comment
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
 Share

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