Question

我使用这个功能来连接数据行..

Public Function GetList(SQL As String _
                                , Optional ColumnDelimeter As String = ", " _
                                , Optional RowDelimeter As String = vbCrLf) As String
    'PURPOSE: to return a combined string from the passed query
    'ARGS:
    '   1. SQL is a valid Select statement
    '   2. ColumnDelimiter is the character(s) that separate each column
    '   3. RowDelimiter is the character(s) that separate each row
    'RETURN VAL: Concatenated list
    'DESIGN NOTES:
    'EXAMPLE CALL: =GetList("Select Col1,Col2 From Table1 Where Table1.Key = " & OuterTable.Key)

    Const PROCNAME = "GetList"
    Const adClipString = 2
    Dim oConn As ADODB.Connection
    Dim oRS As ADODB.Recordset
    Dim sResult As String

    On Error GoTo ProcErr

    Set oConn = CurrentProject.Connection
    Set oRS = oConn.Execute(SQL)

    sResult = oRS.GetString(adClipString, -1, ColumnDelimeter, RowDelimeter)

    If Right(sResult, Len(RowDelimeter)) = RowDelimeter Then
        sResult = Mid$(sResult, 1, Len(sResult) - Len(RowDelimeter))
    End If

    GetList = sResult
    oRS.Close
    oConn.Close

    CleanUp:
        Set oRS = Nothing
        Set oConn = Nothing

    Exit Function
    ProcErr:
        ' insert error handler
        Resume CleanUp

    End Function

我使用的查询是

  SELECT OB.Operation_Type, OB.Machine_Type, OB.Attatchment, GetList("Select Operation_Name From OB As T1 Where T1.Operation_Type = """ & [ob].[Operation_Type] & """ and  T1.Machine_Type = """ & [ob].[Machine_Type] & """ and  T1.Attatchment = """ & [ob].[Attatchment] & """ ",""," + ") AS Expr1 
    FROM ob
    GROUP BY ob.Operation_Type, Machine_Type, Attatchment;

现在我需要从vb.net调用此查询我尝试如下::

myConnection.Open()
        Dim db As New OleDb.OleDbDataAdapter
        Dim cn As New OleDb.OleDbConnection
        Dim dt As New DataTable
        Dim ds As New DataSet
        Dim cmd As New OleDbCommand("Query", myConnection)

        Try
            cmd.Connection = myConnection
            cmd.CommandType = CommandType.StoredProcedure
            cmd.CommandText = "Query"
            db.SelectCommand = cmd
            db.Fill(dt)
            Me.DataGridView1.DataSource = dt

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        myConnection.Close()

这给出了如下错误＆＃34;未定义的功能＆＃39; GetList＆＃39;在表达中。＆＃34;

请帮助谢谢！

Answer 1

错误消息很明确。您将SQL字符串发送到Access，然后查找函数 GetList ，当然，它无法找到。

你必须重新思考你的概念。

通过vb.net从ms访问调用Query

1 个答案: