[Resolvido] Não insere na tabela (VB2005 + SQL2005)

[J4P0N315 0]

Olá, pessoal...

 

Gostaria muito que você me ajudassem num sisteminha que eu estou montando.

 

Eu tenho a seguinte tabela:

 

create table produtos(
id_prod int identity(1,1) not null,
nome_prod varchar(30) not null,
descricao_prod varchar(100),
corredor_prod varchar(10),
prateleira_prod varchar(10),
qtde_prod int not null,
qtdeMin_prod int,
fornecedores_id_forn int not null
)
alter table produtos add constraint pk_id_prod primary key(id_prod)
alter table produtos add constraint fk_fornecedores_id_forn foreign key(fornecedores_id_forn) references fornecedores(id_forn)

 

Montei o seguinte form para inserir dados nesta tabela:

Private Sub cmdCadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCadastrar.Click
        sqlconnection = New SqlConnection(conexao)
        stringsql = "insert into produtos values ('" & txtNome.Text & "','" & txtDescricao.Text & "','" & txtCorredor.Text & "','" & txtPrateleira.Text & "'," & txtQtde.Text & "," & txtQtdeMin.Text & "," & txtIdForn.Text & ")"
        sqlcommand = New SqlCommand(stringsql, sqlconnection)
        Try
            sqlcommand.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            sqlconnection.Close()
        End Try
    End Sub

O engraçado é que não insere dados de jeito nenhum nesta tabela, não retorna nenhuma msg de erro e não aparece nada na "Error List" do VB. Outros forms inserem dados em outras tabelas.

 

A única coisa de diferente entre elas é que nesta tabela existem dados do tipo Integer. Mas como vocês podem ver, eu não coloquei as "aspas simples" nas TextBox que irão receber os valores numéricos.

 

Além disso, já tentei inserir os dados destas TextBox em variáveis Integer, inserir em variáveis do tipo String e converter com o Cint, etc... mas nada faz inserir.

Tentei seguir as dicas do tópico abaixo, mas não tinha muito a ver!

http://scriptbrasil.com.br/forum/index.php?showtopic=141831

 

Sinceramente, não sei o que está acontecendo. Não retornar nenhuma msg de erro me deixou intrigado!

Sou iniciante se tratando de desenvolvimento, mas gosto muito!

 

Espero que vocês consigam me ajudar...

 

Desde já, agradeço! :)

[quintelab 91]

Poste aqui o valor dessa variável: stringsql

 

Abraços...

[J4P0N315 0]

OK, amigo...

Assim que eu colocar a mão no sistema, retorno uma resposta aqui no fórum...

Agora, estou no trabalho...

 

:)

 

Muito obrigado...

[J4P0N315 0]

Poste aqui o valor dessa variável: stringsql

 

Abraços...

 

O conteúdo da variável stringsql é a seguinte: insert into produtos values ('aaa','aaa','aaa','aaa',111,111,2)

 

Aparentemente, tudo correto...

 

:S

[J4P0N315 0]

Consegui resolver o meu problema! :)

 

Ao retirar o bloco "Try, Catch e Finally", o VB me retornou a seguinte mensagem de erro:

The INSERT statement conflicted with the FOREIGN KEY constraint "fk_fornecedores_id_forn". The conflict occurred in database "estocando1.0", table "dbo.fornecedores", column 'id_forn'.
The statement has been terminated.

Como a tabela "Produtos" tem uma foreign key de um campo da tabela "Fornecedores", resolvi adicionar um cadastro na tabela "Fornecedores".

Resultado: O erro foi solucionado.

 

Um erro muito besta, por sinal! :S

 

Mas é isso aí! Se não desse erro, não teria graça! :)

 

Agradeço imensamente a todos pela valiosa ajuda! :D

 

Abraços...