Função, If, e For em VB

Crie uma rotina que verifique se os valores de um array estão vazios antes de mandar para uma consulta em SQL.

Explique a rotina.

Obs: Pode ser em qualquer linguagem.

Exemplo de Sub Consultas usando o For no VB

'A rotina foi criada para fazer conexão com um banco de dados, onde será passado valores para comparação.

'rcbI Representa um numero que recebo de outra Sub consulta.

'Chama-se a Sub Consulta com o comando Call e o nome da sub consulta

'Call TrataNulo

"O If e os ElseIf verificam o valor de I

"Os For, preenchem os valores

If rcbI = 0 Then

For J = 0 To 2

rcbEstiloForm(J) = "IS NOT NULL"

Next

ElseIf rcbI = 1 Then

For J = 1 To 2

rcbEstiloForm(J) = "IS NOT NULL"

Next

ElseIf rcbI = 2 Then

rcbEstiloForm(J) = "IS NOT NULL"

End If

End Sub

Crie sub rotinas que recebam valor das CheckBox, e verifiquem se elas estão vazias, e organizem o array, caso alguma opção seja desmarcada.

Public Sub MoveVet(Aux As String)

If rcbEstilo(0) = "" Then

If rcbEstilo(0) = "" And rcbEstilo(1) <> "" And rcbEstilo(2) = "" Or

rcbEstilo(0) = "" And rcbEstilo(1) <> "" And rcbEstilo(2) <> "" Then

rcbEstilo(0) = rcbEstilo(1)

rcbEstilo(1) = rcbEstilo(2)

rcbEstilo(2) = ""

End If

ElseIf rcbEstilo(1) = "" Then

If rcbEstilo(0) <> "" And rcbEstilo(1) = "" And rcbEstilo(2) <> "" Then

rcbEstilo(1) = rcbEstilo(2)

rcbEstilo(2) = ""

End If

End If

End Sub

'Rotina que Adiona valores dos CheckBox ao Vetor

Public Sub AddValorVetor(Aux As String)

If rcbEstilo(0) = "" Then

If rcbEstilo(0) = "" And rcbEstilo(1) = "" And rcbEstilo(2) = "" Or

rcbEstilo(0) = "" And rcbEstilo(1) <> "" And rcbEstilo(2) = "" Or

rcbEstilo(0)