COMO O FOR NO VB 2008

PRGIMENEZ 14/03/2014 11:51:11
#436044
amigos como escrevo esse codigo abaixo para o VB 2008????


VB6

Dim i,TF as integer


for i <= TF
<aqui uma rotina para salvar em uma tabela os dados localizados e depois mover para o próximo registro)
i=i+1
next


como faço essa rotina no vb net.
ADHEL 14/03/2014 12:14:57
#436045
Um laço While não seria melhor ?
    Dim i, TF As Integer
        TF = 10
        i = 1
        While i <= TF
            MessageBox.Show(i)
            i += 1
        End While
PRGIMENEZ 14/03/2014 13:54:43
#436048
ADHEL muito obrigado pelo retorno, mas acho que não, a não ser que tenha alguma forma de andar para o próximo registro

por exemplo:

o TF recebe o valor do ds,rows.count

ai no VB6 usando o For eu pegaria o primeiro registro, gravo, e depois vou para o próximo ate i= a TF

não sei se fui claro.
ADHEL 14/03/2014 15:55:19
#436052
O ideal é usar uma sub para gravar e outra para retornar o último registro.
Explica melhor a sua necessidade de pegar o próximo registro.
PRGIMENEZ 14/03/2014 16:09:33
#436053
consegui gravando os dados da grid em uma tabela temp para eu gerar o relatório da pesquisa, abaixo o modelo que fiz em pra teste e deu certo, como não ser gerar o relatório pelo vb2008 eu jogo em uma temp do access e chamo o relatório depois.

For I = 0 To dgvExcel.Rows.Count - 1

SQL = [Ô]INSERT INTO TEMP (CNS,NOME,DT_NASC,DT_ATEND,MAE,ENCAMINHADO,TIPO_ENCA,UNIDADE)Values([ô][Ô] & _
dgvExcel.Item([Ô]CNS[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]NOME[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]DT_NASC[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]DT_ATEND[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]MAE[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]ENCAMINHADO[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]TIPO_ENCA[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]UNIDADE[Ô], I).Value & [Ô][ô])[Ô]
Dim COMAND2 = New OleDbCommand(SQL, conexaoBD)
RETORNO2 = COMAND2.ExecuteNonQuery()
PRGIMENEZ 14/03/2014 16:19:41
#436054
For I = 0 To dgvExcel.Rows.Count - 1

SQL = [Ô]INSERT INTO TEMP (CNS,NOME,DT_NASC,DT_ATEND,MAE,ENCAMINHADO,TIPO_ENCA,UNIDADE)Values([ô][Ô] & _
dgvExcel.Item([Ô]CNS[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]NOME[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]DT_NASC[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]DT_ATEND[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]MAE[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]ENCAMINHADO[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]TIPO_ENCA[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]UNIDADE[Ô], I).Value & [Ô][ô])[Ô]
Dim COMAND2 = New OleDbCommand(SQL, conexaoBD)
RETORNO2 = COMAND2.ExecuteNonQuery()

Next
PRGIMENEZ 14/03/2014 16:21:40
#436055
For I = 0 To dgvExcel.Rows.Count - 1

SQL = [Ô]INSERT INTO TEMP (CNS,NOME,DT_NASC,DT_ATEND,MAE,ENCAMINHADO,TIPO_ENCA,UNIDADE)Values([ô][Ô] & _
dgvExcel.Item([Ô]CNS[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]NOME[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]DT_NASC[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]DT_ATEND[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]MAE[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]ENCAMINHADO[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]TIPO_ENCA[Ô], I).Value & [Ô][ô],[ô][Ô] & _
dgvExcel.Item([Ô]UNIDADE[Ô], I).Value & [Ô][ô])[Ô]
Dim COMAND2 = New OleDbCommand(SQL, conexaoBD)
RETORNO2 = COMAND2.ExecuteNonQuery()

Next
Faça seu login para responder
Voltar