none
A propriedade ConnectionString não foi inicializada. RRS feed

  • Pergunta

  • galera meu button que fiz um loop pra mudar a ordem na linha do datagridview ta dando esse erro deem uma olhada se alguem puder me ajudar me avise

       
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            AdjustColumnOrder()
            If DataGridView3.SelectedRows.Count > 0 Then
                If DataGridView3.CurrentRow.Cells(4).Value = DataGridView3.RowCount Then
                    MsgBox("NÃO é Possivel descer o Ultimo Nivel !")
                Else
                    Dim pri, Seg As Integer
    
                    pri = DataGridView3.Rows(DataGridView3.CurrentRow.Index + 1).Cells(4).Value
                    Seg = DataGridView3.CurrentRow.Cells(4).Value
    
                    DataGridView3.Rows(DataGridView3.CurrentRow.Index + 1).Cells(4).Value = Seg
                    DataGridView3.CurrentRow.Cells(4).Value = pri
    
                    For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                            DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)
                            Dim str As String
                            str = "UPDATE Variações SET Ordem ="
                            str += """" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & """"
                            str += " Where CodigoCp="
                            str += """" & Label9.Text & """"
                            str += " And Código="
                            str += """" & DataGridView3.Rows(row.Index.ToString).Cells(2).Value & """"
                            con.Open() '<--- Erro A propriedade connection String nao foi inicializada
                            Cmd = New OleDbCommand(str, con)
                            Cmd.ExecuteNonQuery()
                            con.Close()
    
                        End If
                    Next
                    Lcount.Text = DataGridView3.CurrentCell.RowIndex
                    carregarCombo()
                    If Lcount.Text = DataGridView3.RowCount Then
                        Me.DataGridView3.CurrentCell = Me.DataGridView3.Rows(2).Cells(4)
                        Me.DataGridView3.CurrentCell = Me.DataGridView3.Rows(4).Cells(4)
                    Else
                        DataGridView3.CurrentCell = DataGridView3.Rows(Lcount.Text + 1).Cells(4)
                    End If
    
    
                End If
            Else
    
            End If
    
        End Sub


    quinta-feira, 7 de junho de 2018 16:59

Respostas

  •                        

    Boa tarde.

    Tente assim.

    For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                           ' DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)'
                            Dim query As String

                            query = "UPDATE Variações SET Ordem ="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & """"
                            query += " Where CodigoCp="
                            query += """" & Label9.Text & """"
                            query += " And Código="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(2).Value & """"

     Dim connectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "")

     Dim CON As New OleDbConnection()
     CON.ConnectionString = connectionString
     Dim CMD As OleDbCommand = CONN.CreateCommand
     CMD.CommandText = query
                            con.Open()
                            cmd.ExecuteNonQuery()
                            con.Close()

                        End If

    MARIANO1776



    • Editado Mariano1776 quinta-feira, 7 de junho de 2018 20:20
    • Marcado como Resposta Mikael Feitosa sexta-feira, 8 de junho de 2018 17:09
    quinta-feira, 7 de junho de 2018 20:11
  • Desculpe-me a Demora consegui ja resolver, muito obrigado pela sua ajuda ! aqui esta o código como ficou depois de pegar se alguém precisar 

     If DataGridView3.SelectedRows.Count > 0 Then
                If DataGridView3.CurrentRow.Cells(4).Value = DataGridView3.RowCount Then
                    MsgBox("NÃO é Possivel descer o Ultimo Nivel !")
                Else
                    Dim pri, Seg As Integer
    
                    pri = DataGridView3.Rows(DataGridView3.CurrentRow.Index + 1).Cells(4).Value
                    Seg = DataGridView3.CurrentRow.Cells(4).Value
    
                    DataGridView3.Rows(DataGridView3.CurrentRow.Index + 1).Cells(4).Value = Seg
                    DataGridView3.CurrentRow.Cells(4).Value = pri
    
    
                    For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                            'DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)
                            Dim str As String
                            con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "")
    
                            str = "UPDATE Variações SET Ordem ="
                            str += "" & DataGridView3.Rows(row.Index.ToString).Cells(4).Value & ""
                            str += " Where CodigoCp="
                            str += "" & Label9.Text & ""
                            str += " And Código="
                            str += "" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & ""
                            ' MsgBox(str)
                            con.Open()
                            Cmd = New OleDbCommand(str, con)
                            Cmd.ExecuteNonQuery()
    
                            con.Close()
    
                        End If
                    Next
    
                  
                End If
    
            End If
    

    • Marcado como Resposta Mikael Feitosa sexta-feira, 8 de junho de 2018 17:09
    sexta-feira, 8 de junho de 2018 17:08

Todas as Respostas

  • a parte do 

    DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0) 'nao existe mais só pra avisar

    quinta-feira, 7 de junho de 2018 17:05
  • A mensagem é bem clara: "A propriedade connection String nao foi inicializada"

    Está faltando o 

     Dim connectionString As String = "Data Source=(local);Database=AdventureWorks;Integrated Security=SSPI;"'aqui vai sua string de conexao
    Dim connection As New SqlConnection(connectionString)

    Outro detalhe: Abra sua conexao antes do laço e a feche depois. O ideal é que voce use uma transaçao, mas isso é outro assunto.

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée


    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".


    quinta-feira, 7 de junho de 2018 17:19
    Moderador
  • fiz da forma que me mandou mas msm assim da erro ai fiz da forma que eu ja estava conectando dessa forma 
     For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                           ' DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)'
                            Dim query As String
                            Dim connectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "")
                            query = "UPDATE Variações SET Ordem ="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & """"
                            query += " Where CodigoCp="
                            query += """" & Label9.Text & """"
                            query += " And Código="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(2).Value & """"
    
                            con.Open()
                            Cmd = New OleDbCommand(query, connectionString)
                            Cmd.ExecuteNonQuery()
                            con.Close()
    
                        End If
    e tambem deu erro 
    quinta-feira, 7 de junho de 2018 17:31
  • no seu deu esse erro 

     For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                            'DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)'
                            Dim query As String
                            Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "" 'aqui vai sua string de conexao
                            Dim connection As New SqlConnection(connectionString)
                            query = "UPDATE Variações SET Ordem ="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & """"
                            query += " Where CodigoCp="
                            query += """" & Label9.Text & """"
                            query += " And Código="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(2).Value & """"
    
                            con.Open()
                            Cmd = New OleDbCommand(query, connectionString) <------- Value of type String Cannot Be converted To System.data.oledb.oledbconnection.
                            Cmd.ExecuteNonQuery()
                            con.Close()
    
                        End If

    na parte do cmd


    quinta-feira, 7 de junho de 2018 17:34
  •                        

    Boa tarde.

    Tente assim.

    For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                           ' DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)'
                            Dim query As String

                            query = "UPDATE Variações SET Ordem ="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & """"
                            query += " Where CodigoCp="
                            query += """" & Label9.Text & """"
                            query += " And Código="
                            query += """" & DataGridView3.Rows(row.Index.ToString).Cells(2).Value & """"

     Dim connectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "")

     Dim CON As New OleDbConnection()
     CON.ConnectionString = connectionString
     Dim CMD As OleDbCommand = CONN.CreateCommand
     CMD.CommandText = query
                            con.Open()
                            cmd.ExecuteNonQuery()
                            con.Close()

                        End If

    MARIANO1776



    • Editado Mariano1776 quinta-feira, 7 de junho de 2018 20:20
    • Marcado como Resposta Mikael Feitosa sexta-feira, 8 de junho de 2018 17:09
    quinta-feira, 7 de junho de 2018 20:11
  • entao mariano a parte do connectionstring ta dando o msm erro de antes 
    Value of type String Cannot Be converted To System.data.oledb.oledbconnection.
    CON.ConnectionString = connectionString
    sexta-feira, 8 de junho de 2018 11:04
  • Bom dia.

    Faça um msgbox(connectionstring), para ver exatamente o que tem aí e printa para vermos.


    MARIANO1776

    sexta-feira, 8 de junho de 2018 11:54
  • Desculpe-me a Demora consegui ja resolver, muito obrigado pela sua ajuda ! aqui esta o código como ficou depois de pegar se alguém precisar 

     If DataGridView3.SelectedRows.Count > 0 Then
                If DataGridView3.CurrentRow.Cells(4).Value = DataGridView3.RowCount Then
                    MsgBox("NÃO é Possivel descer o Ultimo Nivel !")
                Else
                    Dim pri, Seg As Integer
    
                    pri = DataGridView3.Rows(DataGridView3.CurrentRow.Index + 1).Cells(4).Value
                    Seg = DataGridView3.CurrentRow.Cells(4).Value
    
                    DataGridView3.Rows(DataGridView3.CurrentRow.Index + 1).Cells(4).Value = Seg
                    DataGridView3.CurrentRow.Cells(4).Value = pri
    
    
                    For Each row As DataGridViewRow In Me.DataGridView3.Rows
                        If Not row.IsNewRow Then
                            'DataGridView2.CurrentCell = DataGridView2.Rows(row.Index.ToString).Cells(0)
                            Dim str As String
                            con.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Rede.TextBox1.Text & "")
    
                            str = "UPDATE Variações SET Ordem ="
                            str += "" & DataGridView3.Rows(row.Index.ToString).Cells(4).Value & ""
                            str += " Where CodigoCp="
                            str += "" & Label9.Text & ""
                            str += " And Código="
                            str += "" & DataGridView3.Rows(row.Index.ToString).Cells(0).Value & ""
                            ' MsgBox(str)
                            con.Open()
                            Cmd = New OleDbCommand(str, con)
                            Cmd.ExecuteNonQuery()
    
                            con.Close()
    
                        End If
                    Next
    
                  
                End If
    
            End If
    

    • Marcado como Resposta Mikael Feitosa sexta-feira, 8 de junho de 2018 17:09
    sexta-feira, 8 de junho de 2018 17:08