用变量表示数据库中的字段

Question

我有一个与MDB文件链接的项目。我需要根据条件过滤表的记录，并且"字段名"和值或条件都应通过变量传递给Sub。select语句不起作用。我错过什么了吗?

Dim Result() As DataRow
Dim strField As String = "asset_code"
Dim dblValue As Double = 3
Dim tblName as Datatable = AssetsDataSet.Assets
Result = tblName.Select(" '" & strField & "' = '" & dblValue& "' ")

Answer 1

我怀疑您需要将字段名称周围的单引号作为数据，因为它看起来像是数字:

Result = tblName。选择(strField," = " &装运箱(dblValue))

对于字符串数据，你需要使用一个函数:Result = tblName。Select("textfield = " &cSQL (StringData))

函数cSQL(psTextData As String) As String

' Replace any single quotes to be 2 single quotes
Return "'" + Replace(psTextData, "'", "''") + "'"

结束函数