Criando função para inserir dados em um banco de dados

Use ParamArray ao invés de parâmetros pré-definidos, assim você pode adicionar infinitos parâmetros e a unica coisa que você tem que fazer é tornar tudo modificável adicionando alguns fors para poder preencher diversos itens de acordo com o tamanho do array.

Poderia me mostrar um exemplo Khaos?

Obrigado

Por exemplo, uma função de soma (vou usar isto como exemplo). Para eu criar uma função simples basta:

public shared function soma(byval a as double, b as double) as double

return a+b

end function

Agora esta função só funcionaria para dois números, a e b, se eu quisesse criar uma função com infinitos números de soma? Ai entramos nos ParamArrays:

Public Shared Function soma(ParamArray a() As Double) As Double

Dim resultado As Double = 0
For i As Integer = 0 To a.Length
resultado = resultado + a(i)
Next i

Return resultado

End Function

Desta maneira eu posso chamar a função desta maneira:

soma(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 1, 2, 3, 1, 2, 3, 4, 2, 3, 4, 2, 4, 5, 4, 3, 6, 5, 4, 7, 6)

E ele vai somar, na ordem, todos os números do array.

No seu caso não é diferente, crie um paramArray para as colunas e as linhas e faça dentro delas um for, assim você pode usar a função para tudo.

Só não entendi como ele vai fazer para somar.

Ele vai somar os dois primeiros números depois os proximos 2 e assim por diante?

Não, ele vai somar na ordem, se fosse "Soma(2,2,2)" ele somaria (2+2)+2, ou seja, ele soma os dois primeiros e o resultado soma com o seguinte e assim por diante.

Khaos,

Estou tentando fazer essa função do ParamArray, mas esta dando um erro quando eu chamo a função.

Ele acusa erro no primeiro número que coloco na função.

Soma(1,1,1,1)

Esse erro

Compile Error:

Type Mismatch: arry or user-defined type expected

Cara, eu fiz aqui e funcionou normal...

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MsgBox(soma(1, 1, 1, 1).ToString())

End Sub

Public Function soma(ParamArray a() As Integer)
Dim result As Integer = 0

For i As Integer = 0 To UBound(a) Step 1

result += a(i)

Next

Return result

End Function
Lembrando que isso é só um teste.

É que eu estou com VB6

Dai algumas coisas não consegui colocar como vc colocou tive que colocar assim:

Public Function soma(ParamArraya() As Integer)
Dim result As Integer
Dim i As Integer
result = 0
For i = 0 To UBound(a) Step 1
result = result + a(i)
Next
End Function

O "Return Result" não consegui colocar.

Estou tentando fazer esse teu exemplo funcionar para alterar ele para a estrutura que eu quero.

Tente assim:

public function soma(ParamArray a() as Integer) As Integer

VB6 não esta aceitando colocar ParaArray separado do a().

Dai já fiz ele assim:

public function soma(ParamArraya() as Integer) As Integer

Já tentei reescrever esse código de várias formas.

Não esta faltando instalar alguma referencia será??

Porque quando aperto Ctrl+J não esta aparecendo o comando ParamArray definido.

Eu andei pesquisando o VB6 e achei uma função que parece funcionar.

Private Function Soma(ParamArrayargs() As Double) As Double
http://www.techrepublic.com/article/define-vb6-procedure-arguments-with-the-paramarray-keyword/

Finalmente consegui, vlw aiii Khaos

Ai esta o códido se alguém quiser pegar e modificar conforme as necessidades.

Public Function SQLIncluir(ParamArray Dadoss() As Variant) As
Single Dim MSG As String Dim Titulo
As String Dim SQLTabela As String
Dim SQLColuna As String Dim VariavelConsulta As
String Dim SQLColuna1 As String Dim
Item As String MSG =
Dadoss(0) Titulo =
Dadoss(1) SQLTabela =
Dadoss(2) SQLColuna =
Dadoss(3) VariavelConsulta =
Dadoss(4) If SQLColuna <>
"Nada"
Then If
SQLSelect(SQLTabela, SQLColuna, VariavelConsulta) = True
Then
SQLIncluir =
False
Exit
Function
Else
SQLIncluir =
True End
If End
If SQLIncluir =
True
Abre_Conexao SQL = "Select * from
" & SQLTabela & ""
Tabela.Open SQL, conexao, adOpenForwardOnly,
adLockOptimistic With
Tabela
.AddNew
For i = 5 To
UBound(Dadoss)
SQLColuna1 =
Dadoss(i)
i = i +
1
Item =
Dadoss(i)
.Fields("" & SQLColuna1 & "") =
Item Next
i
.Update End
With If MSG <> "Nada"
Then MsgBox "" & MSG & "",
vbInformation, "" & Titulo & "" End
If Fecha_Conexao

End Function
No meu caso fiz o ParamArray (0) até o (4) fixos para a consulta, pois sempre será apenas 4 itens. E para add os itens na tabela fiz para ser a partir do ParamArray(5) para ser colocado quantos precisar.

Obrigado mais uma vez pela ajuda aii.