2014-04-07 79 views
0

我已经创建了两个日期时间选择器的格式,并希望访问从日期时间选择器中选择两个特定日期之间存储在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 
+0

你知道如何从vb.net连接到数据库? – Baby

回答

0

的点击按钮单击这么做,我只是将数据绑定在GridView控件按您的要求在DataSet中

使用数据
Dim connection As SqlConnection = New sqlconnection() 
    connection.ConnectionString = "YOUR CONNECTION STRING" 
    connection.Open() 
    Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from Table where Date between DateTimePicker1.Value and DateTimePicker2.Value", connection) 
    Dim ds As DataSet = New DataSet() 
    adp.Fill(ds) 
    DataGridView1.DataSource = ds.Tables(0) 
+0

我访问数据库,因此暗淡连接,SqlConnection的给予和error.please帮助,我也想显示在listbox..can retireived数据u请建议如何进行 – Rajat

+0

是它在运行时或complie时间 – KarthikManoharan

+0

编译时错误和错误是“类型的SQL连接没有定义。和我已经连接到数据库,然后我可以导入使新coonection – Rajat

0

您将需要与SQL语句的其它部分来连接从控制值,就像这样:

"select * from Table where Date between" + DateTimePicker1.SelectedDate.ToString() + " and " + DateTimePicker2.SelectedDate.ToString() 

你也可以考虑只增加一个ASP的SqlDataSource,它会是这样的:

 <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ConnectionString %>" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>" SelectCommand="SELECT [ID], [mydt], [Field1] FROM [Table1] WHERE (([mydt] &gt;= ?) AND ([mydt] &lt;= ?))"> 
      <SelectParameters> 
       <asp:ControlParameter ControlID="Calendar1" Name="mydt" PropertyName="SelectedDate" Type="DateTime" /> 
       <asp:ControlParameter ControlID="Calendar2" Name="mydt2" PropertyName="SelectedDate" Type="DateTime" /> 
      </SelectParameters> 
     </asp:SqlDataSource> 
相关问题