Boa tarde, muito obrigado M6.
Ainda estou a verificar o problema em questão.
Mas tenho outro problema, por favor de podem me ajudar.
Grava tudo certo, porém na tabela sql tem campos valor e total de tipo money.
Quando grava, os valore estão assim 1854700, quero que grave assim 185,47, ou eja, não grava a vígula(,)
Já tentei mudar para int, mas nada.
Eis meu codigo:
Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click
If TxtTotalDiferença.Text = "0,00" Then
conexion = New SqlConnection("data source=PC1\SQLEXPRESS;initial catalog=GLSQL1;integrated security=SSPI")
comandos = New SqlCommand("INSERT INTO GL VALUES (@produto,@valor,@total)", conexion)
conexion.Open()
Try
For Each fila In DataGridViewRegistros.Rows
comandos.Parameters.Clear()
comandos.Parameters.AddWithValue("@produto", Convert.ToString(fila.Cells("produto").Value))
comandos.Parameters.AddWithValue("@valor", Convert.ToString(fila.Cells("valor").Value)) ' o campo no sql é tipo money
comandos.Parameters.AddWithValue("@total", Convert.ToString(fila.Cells("total").Value)) '' o campo no sql é tipo money
DataGridViewRegistros.AllowUserToAddRows = False
comandos.ExecuteNonQuery()
Next
Me.LabelConfir_Gravado.Visible = True
LabelConfir_Gravado.Text = " Documento" & TxtLote.Text
conexion.Close()
DataGridViewRegistros = Nothing
Catch ex As Exception
MsgBox("Erro : " & ex.Message)
End Try
ElseIf TxtTotalDiferença.Text <> "0" Then
MsgBox("há diferença")
End If
End Sub
↧