none
Erro na conexão com o banco de dados sql server - vb .net RRS feed

  • Pergunta

  •  

    Sou iniciante em programação, favor me ajudarem:

     

    Segue o código:

     

     

    Protected Sub btnSalvar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

    Dim nome As String

    nome = txtCaracteristica.Text

    Dim id_departamento As Integer

    id_departamento = ddlDepartamento.SelectedItem.Value

    Dim conexao As SqlConnection

    conexao = New SqlConnection("Data Source=10.100.0.77;Initial Catalog=commercesistti;Persist Security Info=True;User ID=sa;Password=sisttisqlnew")

    conexao.Open()

    Dim comando As SqlCommand

    comando = New SqlCommand("INSERT INTO dbo.loja_subcategoria (id_categoria) VALUES (@id_categoria) WHERE id = @id", conexao)

    comando.Parameters.Add("@id_departamento", SqlDbType.Int).Value = id_departamento

    comando.Parameters.Add("@nome", SqlDbType.string).Value = nome

    comando.ExecuteNonQuery()

    conexao.Close()

    End Sub

    terça-feira, 11 de novembro de 2008 20:01

Respostas


  • Precisariamos da mensagem de erro pra ajudar melhor, mas percebi algumas coisas no codigo
    Na parte em que adiciona parametros, observei que os parametros do seu comando SQL não sao os mesmos que estão sendo adicionados pelo Parameters.Add()

    Segue abaixo uma sugestão de codigo
    Se quiser, poste seu erro pra ajudarmos melhor

    []s

     

     

    Code Snippet

    Dim conexao As SqlConnection = New SqlConnection("Data Source=10.100.0.77;Initial Catalog=commercesistti;Persist Security Info=True;User ID=sa;Password=sisttisqlnew")

    Dim comando As SqlCommand = New SqlCommand()

    comando.Connection = conexao

    comando.CommandType = Data.CommandType.Text

     

    comando.CommandText = "INSERT INTO TABELA ( COLUNA1 ) VALUES ( @COLUNA1 )"

    'Adiciona parametros e ja preenche valores

    comando.Parameters.AddWithValue("@COLUNA1", valor )


    Try

    ' Abre conexao e executa insert

    conexao.Open()

    comando.ExecuteNonQuery()

    Catch exSql As SqlException

    'Trata Exception do SQL

    Catch ex As Exception

    'Trata Exception generica

    Finally

    ' Caso a conexao esteja aberta, fecha

    If conexao.State = Data.ConnectionState.Open Then

    conexao.Close()

    End If

    End Try

    ' Libera recursos

    comando.Dispose()

    conexao.Dispose()

     

     

    domingo, 16 de novembro de 2008 19:43