Запрос на получение выбранных данных

Question

Я не очень хорошо справляюсь. Я хотел бы спросить, работает ли этот запрос. Я хочу получить время начала, время окончания и стоимость сеанса из таблицы SESSION моей базы данных. моя программа будет автозапускаться. Означает, что идентификатор должен быть выбран автоматически, когда он запускается.

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

Я не могу опубликовать изображение, потому что оно требует более 10 репутации. Извините ... Если у вас есть лучший код / ​​запрос, я ценю вашу помощь. :) Большое спасибо за ваш отзыв ..

Answer 1

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()

letя знаю, что вы смотрите больше

Answer 2

Первый подсчет 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"

Таким образом, вы можете получить случайные результаты в рамках количества клиентов