查詢檢索選擇的數據

我不擅長查詢。我想問問這個查詢是否有效。我想從我的數據庫的表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

查詢檢索選擇的數據

回答

相關問題