我已经创建了两个日期时间选择器的格式,并希望访问从日期时间选择器中选择两个特定日期之间存储在Access数据库中的数据访问的数据库中的数据。如何使用日期时间选择器值使用VB.NET
可能有人请帮助如何处理该按钮
objDoc = gobjGeoApp.document
Dim GeoApp As GeoMedia.Application
GeoApp = gobjGeoApp
objDoc.Close()
GeoApp.Open("C:\GeoWorkspaces\PowerPOCfinal.gws")
objDoc.Connections.Add("Connect1")
With objDoc.Connections.item(1)
.Location = "C:\Warehouses\prjct_mntrng.mdb"
.Description = "PM Data"
.Mode = PClient.ConnectionConstants.gmcModeReadWrite
.Type = "Access.GDatabase"
.Connect()
End With
With ListBox1
.Items.Add("Full Name = " & objDoc.Connections(1).Name)
.Items.Add("Name = " & objDoc.Name)
.Items.Add("Path = " & objDoc.Path)
.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
你知道如何从vb.net连接到数据库? – Baby