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

j.mendes24

introduzir dados numa basse dados em instruções sql.

2 mensagens neste tópico

bem pessoal a duvida e a seguinte.

ja criei uma base de dados ja fiz as conecções e isso tudo.

tambem ja consigo ir buscar dados a base de dados.

mas nao os consigo incrementar.

eu tenho o seguinte codigo associado a um botao:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lig_bd As New SqlConnection
        Dim bd_comando As New SqlCommand

        lig_bd.ConnectionString = My.Settings.bd_find_the_differencesConnectionString

        Try
            lig_bd.Open()
            bd_comando.Connection = lig_bd
            'bd_comando.CommandText = "insert into tabela_pontucoes(jogador,pontos) values (" & "textbox_1.text" & "," & "label_pontos"")"
            bd_comando.CommandText = "INSERT INTO tabela_pontucoes(jogador, pontos) VALUES ('teste', 10000)"
            MsgBox(bd_comando.CommandText)
            bd_comando.ExecuteNonQuery()
            lig_bd.Close()

        Catch ex As SqlException
            MsgBox("erro" + ex.Message)
            lig_bd.Dispose()

        End Try
    End Sub

ele não incrementa. mas tambem nao da erro nenhum.

alguem me podia ajudar?

:hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Exprimenta este bloco:

        Dim ConnString As String = My.Settings.bd_find_the_differencesConnectionString
        Dim Query As String = "INSERT INTO tabela_pontucoes(jogador, pontos) VALUES ('teste', 10000)"

        Dim SQLConn As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnString)
        Dim SQLCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand(Query, SQLConn)
        SQLCommand.CommandType = Data.CommandType.Text

        SQLConn.Open()
        Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLCommand)
        Dim DT As New DataTable
        DT.Locale = System.Globalization.CultureInfo.InvariantCulture
        DA.Fill(DT)
        SQLConn.Close()

Esse bloco já te preenche o resultado da query (se houver algum) para uma DataTable, o que é ideal.

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