Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 选择除特定列以外的所有列_Vb.net_Ms Access - Fatal编程技术网

Vb.net 选择除特定列以外的所有列

Vb.net 选择除特定列以外的所有列,vb.net,ms-access,Vb.net,Ms Access,我正在使用asp.net和msaccess2003以及表中的30到40列,我希望选择所有列,但不包括特定列,不需要我在程序执行时知道的列。在VB.net中,加载一个带有一条记录的数据表。然后,可以构建一个列字符串,以排除要排除的列 Dim tblTemp As DataTable Dim SQL As String = "SELECT TOP 1 * FROM MyTable" 'Fill tblTemp from the above sql ' generate a columns lis

我正在使用asp.net和msaccess2003以及表中的30到40列,我希望选择所有列,但不包括特定列,不需要我在程序执行时知道的列。在VB.net中,加载一个带有一条记录的数据表。然后,可以构建一个列字符串,以排除要排除的列

Dim tblTemp As DataTable
Dim SQL As String = "SELECT TOP 1 * FROM MyTable"
'Fill tblTemp from the above sql 

' generate a columns list string excluding the Blah column
Dim L As Integer
Dim columns As String
For L = 0 To tblTemp.Columns.Count - 1
    If tblTemp.Columns(L).ColumnName <> "Blah" Then
        If columns <> "" Then columns &= ", "
        columns &= tblTemp.Columns(L).ColumnName
    End If
Next

Dim FinalSQL As String
FinalSQL = "SELECT " & columns & " FROM MyTable"
Dim tblTemp作为数据表
Dim SQL As String=“从MyTable中选择TOP 1*”
'从上述sql中填充tblTemp
'生成不包括Blah列的列列表字符串
作为整数的Dim L
将列设置为字符串
对于L=0到tblTemp.Columns.Count-1
如果tblTemp.Columns(L).ColumnName为“Blah”,则
如果列“”则列&=”
列&=tblTemp.columns(L.ColumnName)
如果结束
下一个
将FinalSQL设置为字符串
FinalSQL=“从MyTable中选择列(&columns&”

在VB.NET中,加载带有一条记录的数据表。然后,可以构建一个列字符串,以排除要排除的列

Dim tblTemp As DataTable
Dim SQL As String = "SELECT TOP 1 * FROM MyTable"
'Fill tblTemp from the above sql 

' generate a columns list string excluding the Blah column
Dim L As Integer
Dim columns As String
For L = 0 To tblTemp.Columns.Count - 1
    If tblTemp.Columns(L).ColumnName <> "Blah" Then
        If columns <> "" Then columns &= ", "
        columns &= tblTemp.Columns(L).ColumnName
    End If
Next

Dim FinalSQL As String
FinalSQL = "SELECT " & columns & " FROM MyTable"
Dim tblTemp作为数据表
Dim SQL As String=“从MyTable中选择TOP 1*”
'从上述sql中填充tblTemp
'生成不包括Blah列的列列表字符串
作为整数的Dim L
将列设置为字符串
对于L=0到tblTemp.Columns.Count-1
如果tblTemp.Columns(L).ColumnName为“Blah”,则
如果列“”则列&=”
列&=tblTemp.columns(L.ColumnName)
如果结束
下一个
将FinalSQL设置为字符串
FinalSQL=“从MyTable中选择列(&columns&”
希望这有帮助


希望这有帮助

从Laptop选择*[^column]尝试此代码但没有用从Laptop选择*[^column]尝试此代码但没有用我的答案有帮助吗?我的答案有帮助吗?