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
objRS = objOPipe1.OutputRecordset
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)