查询检索选择的数据

我不擅长查询。我想问问这个查询是否有效。我想从我的数据库的表SESSION中检索starttime，endtime和sessioncost。我的程序将是一个自动运行。它意味着ID应当在运行时自动选择。查询检索选择的数据

Dim sql As String = "select STARTTIME, ENDTIME, SESSIONCOST from SESSIONS where CLIENTID = (?)"

我不能发布图像，因为它需要超过10的声望。很抱歉..如果您有更好的代码/查询，我感谢您的帮助。 :) 非常感谢你的回馈..

来源

2011-11-18 Kobe Bryan

ÿ你的意思是你想随机用CLIENTID – Rafee

随机显示它@Rafee。如果这个查询问题解决了，下一步将是将要检索的数据的自动选择。 –

你可以更具体，或上传图像，你想从数据库 – Rafee

首先计数的ClientID成算一个变量

SQL查询

select count(ClIENTID) from SESSIONS;

现在这个计数值存储到一些变量

Dim count_variable As Integer 

Dim MyValue As Integer 
Randomize ' Initialize random-number generator. 
MyValue = CInt(Int((count_variable * Rnd()) + 1))

现在一旦你得到随机值

Dim sql As String = "select STARTTIME, ENDTIME, SESSIONCOST from SESSIONS where CLIENTID = MyValue"

通过这种方式，你可以得到的ClientID的计数范围内随机结果

来源

2011-11-18 13:17:43 Rafee

最新更新的行，你检查了随机http://msdn.microsoft.com/en-us/library/8zedbtdt(v=vs。 71）.aspx – Rafee

谢谢..我想澄清一下，这种数据检索不会是随机的。我想从表SESSION的行中检索starttime，endtime和sessioncost值，并在控制台中显示输出。在VB.NET中使用控制台应用程序@Rafee –

我想问你的代码。我不想使用随机化。我想要显示tbl_SESSION中的所有数据，并依次检索STARTTIME，ENDTIME和SESSIONCOST值。请帮我.. –

Imports System 
Imports System.IO 
Imports System.Data 
Imports System.Data.Oledb 
Imports System.Data.SqlClient 

Dim con1 As New SqlConnection("Provider=Microsoft.ACE.Sql.12.0;Data  Source=giveyourdatabaselocation") 
con1.Open() 
Dim cmd1 As New SqlCommand("select STARTTIME, ENDTIME AND SESSIONCOST from tbl_SESSION", con1) 

Dim ada1 As New SqlDataAdapter(cmd1) 
Dim ds1 As New DataSet 
ada1.Fill(ds1) 
DataGridView1.DataSource = ds1.Tables(0) 

con1.Close()

//注意所有的数据将显示在DataGridView中

//如果你想在不同影响文本框来显示你可以写下面的代码

Dim con1 As New SqlConnection("Provider=Microsoft.ACE.Sql.12.0;Data Source=giveyourdatabaselocation") 
con1.Open() 
Dim cmd1 As New SqlCommand("select STARTTIME, ENDTIME AND SESSIONCOST from tbl_SESSION", con1) 

Dim dr3 As SqlDataReader = cmd1.ExecuteReader(CommandBehavior.SequentialAccess) 

While dr3.Read 
    TextBox1.Text = dr3.GetValue(0).ToString() 
    TextBox2.Text = dr3.GetValue(1).ToString() 
    TextBox3.Text = dr3.GetValue(2).ToString() 
End While 

con1.Close()

让我知道，你正在寻找更多

来源

2011-11-23 07:42:19 Rafee

查询检索选择的数据

回答

相关问题