Problema VB + SQL

[waldgeist]

Olá, eu estou desenvolvendo um programa em VB para testar inserção de registros em um banco de dados SQL Server 2000 por meio de stored procedures. Porém, ao invés do programa incluir as linhas digitadas no textbox, ele sempre inclui as mesmas linhas estranhas (como na foto abaixo).

O código fonte é esse :

Se alguem puder ajudar, agradeço.

Obrigado.

[fariajp]

Poste o código em VB, da stored procedure e o select da tabela (no query analyzer tem um "results as text" tbém) direto em texto. As imagens foram miniaturizadas e não dá pra ver nada.

Não esqueça de usar as tags <code> </code> (só troque os <> por []) para o seu código ficar legível

JP

[waldgeist]

Opa... desculpe pela gafe... é q nunca tinha postado uma imagem no fórum antes, então não sabia como ia ficar...

segue abaixo os códigos.

VB:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As SqlConnection
        Dim cmd As New SqlCommand
        Try
            Dim mr As SqlDataReader
            Dim retorno As Integer
            cn = New SqlConnection("Server=(local);uid=sa;pwd=123456;database=4IA")
            cn.Open()
            With cmd
                .Connection = cn
                .CommandTimeout = 0
                .CommandText = "SP_INCLUSAO2"
                .CommandType = CommandType.Text.StoredProcedure
                .Parameters.Add("@Produto", TextBox1.ToString)
                .Parameters.Add("@Descricao", TextBox2.ToString)
                .Parameters.Add("@Tipo", TextBox3.ToString)
                .Parameters.Add("@Preco", TextBox4.ToString)
                Label1.Text = "inclusao com sucesso"
            End With
            retorno = cmd.ExecuteNonQuery
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub 

Stored Procedure:

CREATE PROCEDURE SP_INCLUSAO2
(
@PRODUTO CHAR(4) OUTPUT,
@DESCRICAO CHAR(30),
@TIPO CHAR(3),
@PRECO CHAR(4)
)
AS
INSERT INTO DBPRODUTOS
(PRODUTO,DESCRICAO,TIPO,PRECO)VALUES(@PRODUTO,@DESCRICAO,@TIPO,@PRECO) 

E a linha que estou utilizando no query analyzer é:

 select * from DBPRODUTOS 

onde DBPRODUTOS é o nome de uma tabela já criada que havia no banco de dados 4IA.

Agradeço a ajuda.

Paulo

[fariajp]

Hum, acho que o erro é só isso aqui:

.Parameters.Add("@Produto", TextBox1.ToString)

que deveria ser

.Parameters.Add("@Produto", TextBox1.Text)

Se mesmo assim não der, poste o retorno do teu select (os dados que estão sendo inseridos).

JP

[waldgeist]

Aeeee... "Aleluia cumpádi".

Funcionou direitinho agora... valeu mesmo pela ajuda cara, me resolveu 2 semanas de dores d cabeça. hehe

Abraços,

Paulo