我连接到数据库,想要获取一些数据。但是,得到SQL Exception表示SQL0206:未找到列或全局变量ADDDATE。
以下是相关代码:
Function ConnectToiSeries() As Boolean
Dim conSQL As String
conSQL = "Provider = IBMDA400; Data Source = xxxxxxx; User ID = xxxxx; Password = xxxxxxx"
coniseries.ConnectionTimeout = 30
coniseries.Open(conSQL)
If coniseries.State <> ADODB.ObjectStateEnum.adStateOpen Then
Console.WriteLine("Error, Try Again.")
Return False
Exit Function
Else
Console.WriteLine("Connected.")
Return True
End If
End Function
Function GetDocuments(ByRef ClientRS as Adodb.recordset) As Boolean
Dim i As Integer
Dim ClientID As String
Dim AttachmentName As String
Dim Status As String
Dim AdditionalFile As String
Dim SQLStm As String
If CheckedListBox1.CheckedItems.Count > 0 Then
Dim s As String = ""
For i = 0 To (CheckedListBox1.CheckedItems.Count - 1)
s = s + "No." & (i + 1).ToString & ":" & CheckedListBox1.CheckedItems.Item(i).ToString & ControlChars.CrLf
MessageBox.Show("You are Choosing:" & ControlChars.CrLf & s)
Dim SQLStm As String
SQLStm = "Select APFIVCCLA.APP, APFIVCCLA.CLIENT, APFIVCCLA.CLIENTID, APFATTACH.ATTTYP, APFATTACH.ATTPATHNAM, APFIVCCLA.INCSPTDOC, APFATTACH.ADDDATE" &
ControlChars.CrLf & "From CPASDLIB.APFATTACH, CPASDLIB.APFIVCCLA" & ControlChars.CrLf &
"Where APFIVCCLA.App = 'Simple Legal' And APFIVCCLA.ATTKEY = '" & CheckedListBox1.CheckedItems.Item(i) &
"' AND APFIVCCLA.Client = APFATTACH.ATTKEY And APFATTACH.ADDDATE = '" & Rundate & "'" & ControlChars.CrLf & " Order by APFIVCCLA.Client"
ClientRS.Open(SQLStm, coniseries)
可以运行SQLStm语句,并且可以获得结果,但不知道为什么不能为此程序工作。
这里是完整的错误消息:
抛出异常:&#39; System.Runtime.InteropServices.COMException&#39;在 SLBS.exe类型的未处理异常 &#39; System.Runtime.InteropServices.COMException&#39;发生在SLBS.exe
SQL0206:找不到列或全局变量ADDDATE。原因。 。 。 。 。 :ADDDATE未被列为* N中的表* N列,而不是 在* N中找到全局变量。如果表是* N,则ADDDATE不是 可以引用的任何表或视图的列。恢复。 。 。 : 执行以下操作之一并再次尝试请求: - 确保 在语句中正确指定了列和表名。 - 如果 这是一个SELECT语句,确保所有必需的表都是 在FROM子句中命名。 - 如果该栏目是一个 相关引用,使用正确的表限定列 代号。 - 如果列旨在成为全局变量, 使用全局变量所在的模式限定名称或 确保架构在路径中。
感谢。