Question

我只是想知道我是否可以在VB 2008中创建一个标准类

我正在尝试创建一个函数GetRow（txtSQL），它接受sql作为参数。我希望此函数返回一个对象，该对象包含数据库表的列作为属性，因此我可以将其用作

 myObj=GetRow("select name, address from tbl_contacts where id=1")
 txtname.text=myObj.name

Answer 1

据我所知，您无法在设计时获得在运行时生成的属性。由于SQL只是一个字符串，因此编译器不知道.Name需要是一个属性。

我能为您提供的最佳服务如下：

 Function GetRow(cnn As SqlConnection, sql As String) As DataRow
    Using dtb As New DataTable
      Using dad As New SqlDataAdapter(sql, cnn)
        dad.Fill(dtb)
      End Using
      If dtb.Rows.Count >= 1 Then
        Return dtb.Rows(0)
      Else
        Return Nothing
      End If
    End Using
  End Function

  Sub test()
    Using cnn As New SqlConnection("Data Source=mycomputername;Timeout=10;User ID=myusername;Password=mypassword;")
      cnn.Open()
      Dim strSql As String = "select name, address from tbl_contacts where id=1"
      Dim drw As DataRow = GetRow(cnn, strSql)
      txtName.text = CStr(drw("name"))
      cnn.Close
    End Using
  End Sub

我们如何在VB 2008中创建标准类

1 个答案: