PROBLEMAS PARA MONTAR LOOP
Prezados Amigos, estou aqui mais uma vez com prolemas, estou fazendo alguns comando e só estou conseguindo fazer de maneira manual, gostaria de uma segestão, segue linhas que estou utilizando:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim con1 = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\meu banco de dados.MDB[Ô])
Dim A11 As String = [Ô]UPDATE tabela SET N2 = [ô]11[ô] WHERE N2 = [ô]0[ô][Ô]
Dim cmd11 As New OleDbCommand(A11, con1)
Dim i11 As Integer = cmd11.ExecuteNonQuery()
Dim A12 As String = [Ô]UPDATE tabela SET N2 = [ô]12[ô] WHERE N2 = [ô]0[ô][Ô]
Dim cmd12 As New OleDbCommand(A12, con1)
Dim i12 As Integer = cmd12.ExecuteNonQuery()
.....
.....
.....
Dim A100 As String = [Ô]UPDATE tabela SET N2 = [ô]100[ô] WHERE N2 = [ô]0[ô][Ô]
Dim cmd20 As New OleDbCommand(A100, con1)
Dim i20 As Integer = cmd100.ExecuteNonQuery()
End Sub
Obrigado a todos!
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim con1 = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\meu banco de dados.MDB[Ô])
Dim A11 As String = [Ô]UPDATE tabela SET N2 = [ô]11[ô] WHERE N2 = [ô]0[ô][Ô]
Dim cmd11 As New OleDbCommand(A11, con1)
Dim i11 As Integer = cmd11.ExecuteNonQuery()
Dim A12 As String = [Ô]UPDATE tabela SET N2 = [ô]12[ô] WHERE N2 = [ô]0[ô][Ô]
Dim cmd12 As New OleDbCommand(A12, con1)
Dim i12 As Integer = cmd12.ExecuteNonQuery()
.....
.....
.....
Dim A100 As String = [Ô]UPDATE tabela SET N2 = [ô]100[ô] WHERE N2 = [ô]0[ô][Ô]
Dim cmd20 As New OleDbCommand(A100, con1)
Dim i20 As Integer = cmd100.ExecuteNonQuery()
End Sub
Obrigado a todos!
Bom dia,
Amigo, tente expor melhor usa dúvida, o que deseja fazer?
Amigo, tente expor melhor usa dúvida, o que deseja fazer?
Veja se é isso que você quer. Estou trabalhando com numeros em vez de string, caso contrario, você vai ter que usar aspas simples nas strings
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Update(0,100,0)
End Sub
Public sub Update (ByVal ValorInicial as Integer, ByVal ValorFinal as Integer, ByVal Condicao as Object)
Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\meu banco de dados.MDB[Ô])
For i as integer = ValorInicial to ValorFinal
Dim sql As String = [Ô]UPDATE tabela SET N2 = [Ô] & i & [Ô] WHERE N2 = [Ô] & Condicao
Dim cmd As New OleDbCommand(sql, con)
cmd.ExecuteNonQuery()
Next
End sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Update(0,100,0)
End Sub
Public sub Update (ByVal ValorInicial as Integer, ByVal ValorFinal as Integer, ByVal Condicao as Object)
Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\meu banco de dados.MDB[Ô])
For i as integer = ValorInicial to ValorFinal
Dim sql As String = [Ô]UPDATE tabela SET N2 = [Ô] & i & [Ô] WHERE N2 = [Ô] & Condicao
Dim cmd As New OleDbCommand(sql, con)
cmd.ExecuteNonQuery()
Next
End sub
Outra coisa, evite esparramar a string de conexão por todo o projeto. Crie-a em apenas um lugar e chame-a por metodos se for necessario.
vlw
vlw
JABA, obrigado pela ajuda!
Estive tentando usar sua sugestão e esta dando erro na seguinte linha:
Public Sub Update(ByVal ValorInicial As Integer, ByVal ValorFinal As Integer, ByVal Condicao As Object)
Não estou conseguindo encontrar o problema.
Vlw
Estive tentando usar sua sugestão e esta dando erro na seguinte linha:
Public Sub Update(ByVal ValorInicial As Integer, ByVal ValorFinal As Integer, ByVal Condicao As Object)
Não estou conseguindo encontrar o problema.
Vlw
Coloque o erro que está dando aqui pra gente poder analisar.
JABA, estive verificando novamente, está funcionando parcialmente, o problema agora é que a primeira rodada não funciona, por exemplo: quando mando alterar do número 01 a 100, o resultado fica com o número 0 e 2 a 100, ele pula o primeiro.
Obrigado!
Obrigado!
JABA, descobri onde eu estava errando.
Obrigado!
Obrigado!
Tópico encerrado , respostas não são mais permitidas