VISUAL BASIC / DATAGRIDVIEW / COLUNA COM RESULTADO

GILBERTOJW 18/12/2012 11:37:22
#416132
Caros participantes tenho o código abaixo :

Try
cmd = Con.CreateCommand
Con.Open()

With cmd

.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO orcando ( produto,precoproduto,foto,comodo,numorc,qtdade)VALUES ( [ô][Ô] & strProduto & [Ô][ô], [ô][Ô] & douPrecoproduto & [Ô][ô], [ô][Ô] & strFoto & [Ô][ô], [ô][Ô] & ComboBox1.Text & [Ô][ô],[Ô] & Label4.Text & [Ô], [Ô] & TextBox2.Text & [Ô])[Ô]
.Parameters.Add([Ô]@produto[Ô], OleDbType.VarChar)
.Parameters([Ô]@produto[Ô]).Value = strProduto
.Parameters.Add([Ô]@precoproduto[Ô], OleDbType.VarChar)
.Parameters([Ô]@precoproduto[Ô]).Value = douPrecoproduto
.Parameters.Add([Ô]@foto[Ô], OleDbType.VarChar)
.Parameters([Ô]@foto[Ô]).Value = strFoto
.Parameters.Add([Ô]@comodo[Ô], OleDbType.VarChar)
.Parameters([Ô]@comodo[Ô]).Value = ComboBox1.Text
.Parameters.Add([Ô]@numorc[Ô], OleDbType.Integer)
.Parameters([Ô]@numorc[Ô]).Value = Label4.Text
.Parameters.Add([Ô]@qtdade[Ô], OleDbType.Integer)
.Parameters([Ô]@qtdade[Ô]).Value = TextBox2.Text
.ExecuteNonQuery()
End With
Con.Close()
Catch
MsgBox([Ô]Incluido com sucesso.[Ô])
End Try


Preciso gravar no meu banco de dados access mais uma coluna, que deverá conter a multiplicação do preco e da quantidade. Como fazer isso ??
ALEVALE 18/12/2012 11:59:25
#416140
Ja tentou assim ?
Parameters([Ô]@qtdade[Ô]).Value = (TextBox2.Text * douPrecoproduto)

Ou pode multiplicar antes de fazer o update
GILBERTOJW 18/12/2012 13:56:04
#416152
Caro ALEVALE foi minha primeira tentativa, mas não funcionou. Será que eu deixei de colocar alguma linha adicional em algum lugar ?
Além da linha [Ô]Parameters[Ô] eu até tentei colocar algo na linha da instrução INSERT INTO, mas não funcionou.
Favor indicar para mim como ficaríam as linhas que há necessidade de serem mudadas. Talvez eu não esteja fazendo correto.
GILBERTOJW 19/12/2012 18:08:56
#416210
Pessoal meu projeto tá parado porque eu ainda não consegui resolver esse problema. Alguém tem uma idéia ? Preciso desta coluna com soma total de cada ítem.

Agradeço se tiverem uma sugestão. Bye
OMAR2011 19/12/2012 18:38:44
#416211
Vou mandar um certo,espere.
KERPLUNK 19/12/2012 19:21:54
#416213 Resposta escolhida
Amigo, não há nenhum parâmetro na sua query. Deveria ser algo assim:

                        .CommandType = CommandType.Text
                        .CommandText = [Ô]INSERT INTO orcando ( produto,precoproduto,foto,comodo,numorc,qtdade)VALUES (@produto,@precoproduto,@foto,@comodo,@numorc,@qtdade)[Ô]
                        .Parameters.Add([Ô]@produto[Ô], OleDbType.VarChar)
                        .Parameters([Ô]@produto[Ô]).Value = strProduto
                        .Parameters.Add([Ô]@precoproduto[Ô], OleDbType.VarChar)
                        .Parameters([Ô]@precoproduto[Ô]).Value = douPrecoproduto
                        .Parameters.Add([Ô]@foto[Ô], OleDbType.VarChar)
                        .Parameters([Ô]@foto[Ô]).Value = strFoto
                        .Parameters.Add([Ô]@comodo[Ô], OleDbType.VarChar)
                        .Parameters([Ô]@comodo[Ô]).Value = ComboBox1.Text
                        .Parameters.Add([Ô]@numorc[Ô], OleDbType.Integer)
                        .Parameters([Ô]@numorc[Ô]).Value = Label4.Text
                        .Parameters.Add([Ô]@qtdade[Ô], OleDbType.Integer)
                        .Parameters([Ô]@qtdade[Ô]).Value = TextBox2.Text
OMAR2011 19/12/2012 19:46:49
#416214
Tai,verifique.
GILBERTOJW 20/12/2012 18:08:19
#416284
Caros Kerplunk e Omar hoje não tive tempo de ver as sugestões de vocês, mas assim que analisar dou uma posição para vocÊs. Por enquanto agradeço a ajuda

Bye;
GILBERTOJW 21/12/2012 09:08:39
#416309
Caros senhores agradeço. Kerplunk sua observação resolveu meu problema.
ALEVALE também esteve correto na sua colocação, mas até então minha query estava sem parâmetros.
E as colocações de Omar também se aplicaram.
Agradeço à todos.
Obrigado;
Tópico encerrado , respostas não são mais permitidas
Voltar