无法使用datepicker从访问数据库中检索数据 [英] Cannot Retrieve data from access db using datepicker

问题描述

objDoc = gobjGeoApp.document
    'objConn = objDoc.Connections
    Dim GeoApp As GeoMedia.Application
    GeoApp = gobjGeoApp
    objDoc.Close()

    ' GeoApp.Open("C:\Dinesh\vb1\PowerPOC\PowerPOC.gws")
    GeoApp.Open("C:\GeoWorkspaces\PowerPOCfinal.gws")

    objDoc.Connections.Add("Connect1")

    With objDoc.Connections.item(1)
        '.Location = "C:\Warehouses\USSampleData.mdb"
        .Location = "C:\Warehouses\prjct_mntrng.mdb"

        .Description = "PM Data"
        .Mode = PClient.ConnectionConstants.gmcModeReadWrite
        .Type = "Access.GDatabase"
        '.Name = "Connect1"
        .Connect()

        '.BroadcastDatabaseChanges() 
    End With

    With ListBox1
        .Items.Add("Full Name = " & objDoc.Connections(1).Name)
        .Items.Add("Name = " & objDoc.Name)
        .Items.Add("Path = " & objDoc.Path)
        ' .Items.Add("ReadOnly = " & objDoc.ReadOnly)
        .Items.Add("Storage = " & objDoc.Storage)
    End With

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    ' Create and display recordset of Actual Start
    objConnect = objDoc.Connections.item(1)
    objConnect.CreateOriginatingPipe(objOPipe1)

    With objOPipe1
        .GeometryFieldName = "Geometry"
        .Table = "Electric_Cables"
        .Filter = "((Electric_Cables.Actual_Start)<=" + DateTimePicker1.Value.Date() + " And (Electric_Cables.Actual_Start)<=" + DateTimePicker2.Value.Date() + ")"
        objRS = objOPipe1.OutputRecordset
        objRS.MoveLast()
        objRS.MoveFirst()
        MsgBox(objOPipe1.OutputRecordset.RecordCount)

    End With
End Sub

添加了 pre 标签。

[/编辑]

推荐答案

这篇关于无法使用datepicker从访问数据库中检索数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！