SISTEMA DE PRECIFICACAO

FERNANDOCTRLC 06/11/2012 19:56:59
#413649
Segue print do meu grid
http://upload.crazzy.com.br/show-image.php?id=b53ea80e18c93549f33586eb62225de8

Obrigado Pela ajuda
ALTAIR148 06/11/2012 19:59:08
#413650
Citação:

:
Bom Dia

Sim, meu grid esta com 7 colunas mesmo
somente esses dados que eu preciso para atualizar o preço de venda das mercadorias

Obrigado Pela ajuda



Amigo aonde seu grid tem 7 colunas? ele tem 6... Aí dessa forma não vai nem [Ô]chutado[Ô], tente com o código abaixo:

 Dim myConnectionString As String = [Ô]Server=notefernando\sqlexpress;Database=conemp_empresa_00;User Id=sa;Password=9632;[Ô]
        [ô] Cria uma nova ligação à base de dados 
        Dim connection As New SqlConnection(myConnectionString)
        Dim cmd As SqlCommand = connection.CreateCommand

        Try

            With DataGridView1

                If .Rows.Count = 0 Then
                    MsgBox([Ô]Não há itens![Ô])
                Else

                    For i = 0 To .Rows.Count - 1

                        cmd.CommandText = [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos]  SET [Preço 1] = [ô][Ô] + .Rows(i).Cells(5).Value + [Ô][ô]      WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]
                     
                        cmd.ExecuteNonQuery()

                    Next i
                End If

            End With

        Catch erro As Exception
            MsgBox([Ô]Erro [Ô] & vbCrLf & erro.ToString, MsgBoxStyle.Critical, [Ô]Erro ao Atualizar tabela de preços[Ô])
        End Try
FERNANDOCTRLC 06/11/2012 20:13:21
#413652
O erro mudou porem continua
Segue print

http://upload.crazzy.com.br/show-image.php?id=664d2d8495f7f9deb459200e7183154e

mais uma ves obrigado pela ajuda

Valeu pela ajuda
FERNANDOCTRLC 06/11/2012 21:06:45
#413654
Alguem tem alguma ideia de como resolver esse problema??
ADHEL 06/11/2012 21:41:49
#413658
Altere essa linha

Citação:

cmd.CommandText = [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos] SET [Preço 1] = [ô][Ô] + .Rows(i).Cells(5).Value + [Ô][ô] WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]



Por essa

cmd.CommandText =  [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos]  SET [Preço 1] = [ô][Ô] + Replace(Replace(.Rows(i).Cells(5).Value, [Ô].[Ô], [Ô][Ô]), [Ô],[Ô], [Ô].[Ô]) + [Ô][ô]      WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]


Tenta aí
FERNANDOCTRLC 07/11/2012 08:51:47
#413680
Muinto Obrigado a Todos pela ajuda
estou sintindo que estamos chegando lá, agora a mensagem aparentemente esta disendo que a conexao com o sqlserver nao esta aberta mas eu ja revisei ao codigo e esta igual a conexao usada na consulta.

segue print

http://upload.crazzy.com.br/show-image.php?id=52679840e9aca1474d87bf172bca41f0

meu codigo de atualização esta assim
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Dim myConnectionString As String = [Ô]Server=notefernando\sqlexpress;Database=conemp_empresa_00;User Id=sa;Password=9632;[Ô]
[ô] Cria uma nova ligação à base de dados
Dim connection As New SqlConnection(myConnectionString)
Dim cmd As SqlCommand = connection.CreateCommand

Try

With DataGridView1

If .Rows.Count = 0 Then
MsgBox([Ô]Não há itens![Ô])
Else

For i = 0 To .Rows.Count - 1

[ô]cmd.CommandText = [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos] SET [Preço 1] = [ô][Ô] + .Rows(i).Cells(5).Value + [Ô][ô] WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]
cmd.CommandText = [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos] SET [Preço 1] = [ô][Ô] + Replace(Replace(.Rows(i).Cells(5).Value, [Ô].[Ô], [Ô][Ô]), [Ô],[Ô], [Ô].[Ô]) + [Ô][ô] WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]
cmd.ExecuteNonQuery()

Next i
End If

End With

Catch erro As Exception
MsgBox([Ô]Erro [Ô] & vbCrLf & erro.ToString, MsgBoxStyle.Critical, [Ô]Erro ao Atualizar tabela de preços[Ô])
End Try


End Sub


_________________________-

Agradeço a todos pelo apóio
ALTAIR148 07/11/2012 08:55:52
#413681
Tente assim:


   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim myConnectionString As String = [Ô]Server=notefernando\sqlexpress;Database=conemp_empresa_00;User Id=sa;Password=9632;[Ô]
        [ô] Cria uma nova ligação à base de dados 
        Dim connection As New SqlConnection(myConnectionString)

        Dim cmd As SqlCommand = connection.CreateCommand

        Try
connection.Open
            With DataGridView1

                If .Rows.Count = 0 Then
                    MsgBox([Ô]Não há itens![Ô])
                Else

                    For i = 0 To .Rows.Count - 1

                        [ô]cmd.CommandText = [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos]  SET [Preço 1] = [ô][Ô] + .Rows(i).Cells(5).Value + [Ô][ô]      WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]
                        cmd.CommandText = [Ô]UPDATE [Conemp_Empresa_00].[dbo].[CadProdutos]  SET [Preço 1] = [ô][Ô] + Replace(Replace(.Rows(i).Cells(5).Value, [Ô].[Ô], [Ô][Ô]), [Ô],[Ô], [Ô].[Ô]) + [Ô][ô]      WHERE [Código] = [ô][Ô] + .Rows(i).Cells(0).Value + [Ô][ô][ô][Ô]
                        cmd.ExecuteNonQuery()

                    Next i
                End If

            End With

        Catch erro As Exception
            MsgBox([Ô]Erro [Ô] & vbCrLf & erro.ToString, MsgBoxStyle.Critical, [Ô]Erro ao Atualizar tabela de preços[Ô])
        End Try


    End Sub
FERNANDOCTRLC 07/11/2012 09:41:24
#413686
Senhores Muinto Obrigado.

vocês Realmente são muinto bons no que fazem, tudo funcionou corretamente.


Obrigado pela ajuda
ALTAIR148 07/11/2012 09:45:16
#413688
Precisando estamos aí.
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar