在一個變量的函數在vb.net

Question

如何傳遞多個值，我用vb.net

我已經在我的課（1類）功能文件時即保存。這個Save函數有3個參數。現在我正在使用以下方法發送參數。

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click 
     dim p as new class1 
     p.save(txtempid.text,txtempname.text,txtage.text) 
     messagebox.show("Successfully Saved") 
End sub 

的Class1：

imports system.data.sqlclient 
imports system.configuration 
public class class1 
    Dim constr As String 
    Dim con As SqlConnection 
    Dim cmd As SqlCommand 

public function save(byval s as string,byval s1 as string,byval s2 as string) 
    constr = ConfigurationManager.AppSettings("con") 
    con = New SqlConnection(constr) 
    con.Open() 
    cmd=new sqlcommand("Emp_insert",con) 
    cmd.commandtype=commandtype.storedprocedure 
    cmd.Parameters.Add("@EmployeeID", SqlDbType.BigInt).Value = s 
    cmd.Parameters.Add("@EmployeeName", SqlDbType.VarChar).Value = s1 
    cmd.Parameters.Add("@Age", SqlDbType.BigInt).Value = s2 
    cmd.executenonquery() 
    cmd.dispose() 
    con.close() 
    return 0 
End function 
End Class 

這沒關係，但是當我有更多的論據是numerber很難。任何人都可以建議我更好的方式嗎？

Answer 1

修改

public function save(parameters as Dictionary(Of string, object)) as int 
for each item as KeyvaluePair(Of string, object) in parameters 
cmd.Parameters.AddWithValue("@" & item.Key, item.Value) 
next 
return cmd.ExecuteNonQuery() 
end function 

您可以使用Tuple

public sub DoSomething(Tuple (Of string, string, integer) myparameter) 
dim firstItem as string = myparameter.Item1 
dim secondItem as string = myparameter.Item2 
dim thirdItem as integer = myparameter.Item3 
end sub 

sub main() 
Dim tuple as New Tuple(Of string, string, integer)("First","Second", 100) 
DoSomething(tuple) 
end sub