vb.net - 从函数 vb.net 返回 2 个值

Question

我想要的是使用函数从数据库中返回 2 个值，然后将这些值存储在变量中，以便我可以使用它们。这是我的代码。

Function Buscar_Registro(ByVal xId As Integer) As String
    Dim a, b As String

    'convertir cadena
    Dim Id As Integer
    Id = xId

    'conexión
    Dim Conexion As OleDbConnection = New OleDbConnection
    Conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Visual\2000Phrases\2000 Phrases.accdb"

    'cadena SQL
    Dim CadenaSQL As String = "SELECT * FROM Data WHERE Id = " & Id

    'Adaptador
    Dim Adaptador As New OleDbDataAdapter(CadenaSQL, Conexion)

    'Data set
    Dim Ds As New DataSet

    'Llenar el Data set
    Conexion.Open()
    Adaptador.Fill(Ds)
    Conexion.Close()

    'Contar registro
    If (Ds.Tables(0).Rows.Count = 0) Then
        Return False
    Else
        a = Ds.Tables(0).Rows(0)("Nombre").ToString()
        b = Ds.Tables(0).Rows(0)("Apellido").ToString()

        Ds.Dispose()
        Return a
        Return b
        Return True
    End If


End Function


Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    Randomize()
    Dim value As Integer = CInt(Int((20 * Rnd()) + 1))
    TextBox3.Text = Buscar_Registro(value)
    TextBox4.Text = 
End Sub

我不知道该怎么做。该函数仅返回“a”的值
谢谢

Answer 1

要返回更多值，您需要将函数“作为对象”更改

Function Buscar_Registro(ByVal xId As Integer) As Object

然后您可以通过这种方式将返回值放入一个对象中:

Return{a, b, true}

您将通过以下方式获得您的值(value):

Dim mObj as object = Buscar_Registro(yourInteger)

你将拥有:

a in mObj(0) 
b in mObj(1)
True in mObj(2)

使其适应您的需求

编辑 (给那些投反对票的人的消息):

创建一个类并使用特定的对象(创建的对象)使函数能够返回多个元素无疑是最好的选择。

无论如何，如果有人不知道可以使用我在答案中展示的方法，那么他可能(还)无法创建一个类。所以我认为最好给出一个可用的(但不是完美的)答案，而不是一个完美的(但对于提问的人来说不可用)的答案。

这就是我的想法。任何人都可以有不同的想法。