这是提示 "数据类型 ntext 和 varchar 在 equal to 运算符中不兼容。"
Dim name1 As String = "用友175"
Dim cmd As New SQLCommand
cmd.ConnectionName = name1
Dim lst As List(Of String)
lst = Connections(name1).GetTableNames
For Each nm As String In lst
cmd.com/mandtext = "sel/ect * from " & nm & " where 1=2"
For Each dc As DataCol In cmd.ExecuteReader().DataCols
If dc.isstring Then
' Output.Show(nm & " " & dc.name)
cmd.comma/ndtext = "sel/ect count(*) from " & nm & " where " & dc.name & "='2ef92ea1-0cbf-4661-b6d5-a797011061ef'"
If cmd.ExecuteScalar() > 0 Then
Output.Show(nm & " " & dc.name)
End If
End If
Next
' Exit For
Next