Vb.net 使用类属性将ODBC调用返回到另一个类

我有一个类-CompLoc，它从ODBC调用返回两个字段。 我想这样称呼这个班

dim myCompLoc as New CompLoc(company,location)
newCompany = mycompLoc.Company
newLocation = mycompLoc.Location

我的班级

 Private _company As String
Public Property Company() As String
    Get
        Return _company
    End Get
    Set(ByVal value As String)
        _company = value
    End Set
End Property

Private _location As String
Public Property Location() As String
    Get
        Return _location
    End Get
    Set(ByVal value As String)
        _location = value
    End Set
End Property

Public Sub New(ByVal loc As String, ByVal comp As String)
    'select company,location from mysqlTable Where location = loc and company = comp'
    _company = 'field from ODBC'
    _location = 'field from ODBC'
End Sub

我需要传递到ODBC公司和位置，返回公司和位置（我知道…不总是在我们手中）。我有一个我想通过ODBC调用填充的类

corp.EmpId = currentRecord(0).ToString
corp.FirstName = currentRecord(1).ToString
corp.LastName = currentRecord(2).ToString
corp.BasePay = Decimal.Parse(currentRecord(3).ToString)
corp.corpCompany = currentRecord(4).ToString
corp.corpLocation = currentRecord(5).ToString

我需要在这节课的末尾加上---

---

我能不能有一些条件来正确构建myCompLoc类，这样我就可以从corp调用它并接收两个具有值的属性。我可以将其作为数组或其他方法传递，但我想用一种更好的方法来传递。

下面是我解决这个问题的方法。corpSQL从properties类继承company和location corp继承自corpMySql

Dim corporation as New Corporation
Dim corp As New corpMySql

 Dim newcorp = corp.Getcorp(corp.Company, corp.Location)
 corporation.Company = newcorp.NewCompany
 corporation.Plant = newcorp.NewLocation

---

我希望这是有道理的。我能够做我开始要做的事情，但我认为另一种方式更具流动性。也许使用继承？

当你做你想做的事情时会发生什么？错误？

myCompLoc

可以从任何地方访问该代码吗？是的，可以访问。我没有错误。我可以分别返回它们，我想请求myCompLoc，并接收里面键入的两个值。（对不起，如果我问得不对。）如果

corp

将该公司的属性

设置为CompLoc

，而您只是将其设置为：

corp.thisCompany=myCompLoc

是的，我明白您的意思。我可以为odbc调用向构造函数传递两个参数吗？我想是的。我不知道这些ODBC调用是什么，也不知道它们的CTOR是如何编写的。正在讨论更新、插入、删除类型的程序吗？

Dim corporation as New Corporation
Dim corp As New corpMySql

 Dim newcorp = corp.Getcorp(corp.Company, corp.Location)
 corporation.Company = newcorp.NewCompany
 corporation.Plant = newcorp.NewLocation