Выпуск # 725

cmd.CommandText =
"SELECT * INTO Pensioner_2 FROM Pensioner WHERE DateDiff('y', ?, Pensioner.BirthDate) = 0"
cmd.Parameters.Add("@BirthDate", OleDb.OleDbType.Date).Value = Now 'вместо now любая другая дата

DateDiff('y', ?, Pensioner.BirthDate) = 0
--количество лет из входящей в запрос даты и поля BirthDate таблицы Pensioner должно быть равно нулю
--вместо ноль может быть любое значение

cmd.CommandText = "SELECT * INTO Pensioner_2 FROM Pensioner WHERE DateDiff('y', Now(), Pensioner.BirthDate) = ?"
cmd.Parameters.Add("@Age", OleDb.OleDbType.Integer).Value = 5 'возраст 5 лет

cmd.CommandText = "SELECT * INTO Pensioner_2 FROM Pensioner WHERE Year(Pensioner.BirthDate) = ?"
cmd.Parameters.Add("@BirthYear", OleDb.OleDbType.Integer).Value = 1953 'год рождения 1953

cmd.CommandText = "SELECT * INTO Pensioner_2
FROM Pensioner WHERE Year(Pensioner.BirthDate) = ? AND Pensioner.FirstName = ? AND Pensioner.LastName = ?"
cmd.Parameters.Add("@BirthYear", OleDb.OleDbType.Integer).Value = 1953 'год рождения 1953
cmd.Parameters.Add("@FirstName", OleDb.OleDbType.WChar).Value = "Василий"
cmd.Parameters.Add("@LastName", OleDb.OleDbType.WChar).Value = "Пупкин"

cmd.CommandText = "SELECT * INTO Pensioner_2 FROM Pensioner WHERE Year(Pensioner.BirthDate) = ? AND Pensioner.FirstName LIKE ?"
cmd.Parameters.Add("@BirthYear", OleDb.OleDbType.Integer).Value = 1953 'год рождения 1953
cmd.Parameters.Add("@FirstName", OleDb.OleDbType.WChar).Value = "В*" 'вернет пользователей, имя которых начинается с буквы "В"

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CD_MY_new\DATA\My_Pension.mdb;")
conn.Open()

Dim cmd As New OleDbCommand("SELECT * INTO Pensioner_2 FROM Pensioner WHERE Year(Pensioner.BirthDate) = ?", conn)
cmd.Parameters.Add("@BirthYear", OleDb.OleDbType.Integer).Value = 1953

Dim myTable As New DataTable()
Dim DA As New OleDbDataAdapter(cmd)
DA.Fill(myTable)' в переменной myTable будет результат выполнения запроса - таблица данных
DataGridView1.DataSource = myTable 'можно передать таблицу данных в DataGridView
conn.Close()

Dim cmd2 As New OleDbCommand("", conn)
cmd2.CommandText = "Drop TABLE Pensioner_2"
cmd2.ExecuteNonQuery()

Dim cmd As New OleDbCommand("", conn)
cmd.CommandText = "SELECT LastName, FirstName INTO Pensioner_2 FROM Pensioner WHERE Pensioner.FirstName = ?"

cmd.CommandText = "SELECT * FROM Pensioner WHERE Year(Pensioner.BirthDate) = ?"
cmd.Parameters.Add("@BirthYear", OleDb.OleDbType.Integer).Value = 1953 'год рождения 1953

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CD_MY_new\DATA\My_Pension.mdb;")
conn.Open()
Dim dbSchema As DataTable = conn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, "Pensioner_2", "TABLE"})
If dbSchema.Rows.Count > 0 Then
  Dim cmd As New OleDb.OleDbCommand("DROP TABLE Pensioner_2", conn)
  cmd.ExecuteNonQuery()
End If
'...
conn.Close()

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CD_MY_new\DATA\My_Pension.mdb;")
conn.Open()
Try
  Dim cmd As New OleDb.OleDbCommand("SELECT * FROM Pensioner_2", conn)
  cmd.ExecuteNonQuery()
  'запрос выполнился, удаляем
  cmd.CommandText = "SELECT * FROM Pensioner_2"
  cmd.ExecuteNonQuery()
Catch
End Try
'...
conn.Close()

DECLARE @example TABLE (id int identity primary key, name nvarchar(100), zarplata money)

INSERT INTO @example (name, zarplata) VALUES ('Вася', 100);
INSERT INTO @example (name, zarplata) VALUES ('Петя', 120);
INSERT INTO @example (name, zarplata) VALUES ('Маша', 50);
INSERT INTO @example (name, zarplata) VALUES ('Федя', 115);
INSERT INTO @example (name, zarplata) VALUES ('Света', 30);
INSERT INTO @example (name, zarplata) VALUES ('Вася', 200);
INSERT INTO @example (name, zarplata) VALUES ('Вася', 90);
INSERT INTO @example (name, zarplata) VALUES ('Петя', 180);
INSERT INTO @example (name, zarplata) VALUES ('Петя', 210);
INSERT INTO @example (name, zarplata) VALUES ('Вася', 100);
INSERT INTO @example (name, zarplata) VALUES ('Вася', 100);
INSERT INTO @example (name, zarplata) VALUES ('Маша', 30);
INSERT INTO @example (name, zarplata) VALUES ('Маша', 75);
INSERT INTO @example (name, zarplata) VALUES ('Света', 45);
INSERT INTO @example (name, zarplata) VALUES ('Света', 45);
INSERT INTO @example (name, zarplata) VALUES ('Света', 45);
INSERT INTO @example (name, zarplata) VALUES ('Света', 35);

-- выводим вложенным запросом количество записей для конкретного name
SELECT *, 
(SELECT COUNT(id) FROM @example WHERE name = a.name) AS 'количество записей'
FROM @example AS a;

-- выводим при помощи OVER количество записей для конкретного name
SELECT *,
COUNT(id) OVER(PARTITION BY name) AS 'количество записей'
FROM @example;

SELECT ROW_NUMBER() OVER(PARTITION BY name ORDER BY name ASC) AS 'номер строки', *
FROM @example;

Button1.Anchor = AnchorStyles.None