Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Visual Basic .NET Как изменить получаемый список от FTP-сервера? Здравствуйте! Есть, к примеру, такой код для работы с FTP-сервером: Dim ServerRoot As String = "ftp://server.adderss.ru/folder/" Dim UserName As String = "login" Dim UserPass As String = "password" Dim request As FtpWebRequest = DirectCast(WebRequest.Create(ServerRoot), FtpWebRequest) request.Method = WebRequestMethods.Ftp.ListDirectory ... https://www.cyberforum.ru/ vb-net/ thread2471846.html Visual Basic .NET Бездействие NumericUpDown1.ValueChanged
Здравствуйте уважаемые пользователи форума! Такая проблема, есть код, который при загрузке окна считает всё нормально, но при смене NumericUpDown вообще ничего не происходит, просто ничего не меняется, все остается таким же. Почему не могу понять, помогите пожалуйста! Нервов нету, не знаю как бороться. Помогите пожалуйста, очень прошу! Последнее осталось сделать и я свободен. Private Sub...
Visual Basic .NET Перемещение объекта по форме с отскоком от стен https://www.cyberforum.ru/ vb-net/ thread2471553.html
Вообщем есть PictureBox (obj) который рандомно перемещается и отскакивает от стен формы, но я не знаю как сделать следующее: нужно чтобы в первую очередь объект начал перемещаться по вертикали (вверх или вниз) до упора об стену формы, а затем в любые другие стороны. Подскажите как написать это условие, чтобы при его выполнении (при сталкивании по вертикали об стену), объект продолжил двигаться...
Visual Basic .NET Парсинг html страниц с кодировкой 1251 https://www.cyberforum.ru/ vb-net/ thread2471357.html
Доброго дня! Помогите пожалуйста победить страницу с кодировкой windows-1251. Вместо кириллицы возвращает: ������ VB express 2010 Newlink = ("https://gytely.rosfirm.info/" & RegionName & "?fio=" & f1 & "+" & i1 & "+" & o1) reply = client.DownloadString(Newlink) TextBox3.Text = reply AllLines = TextBox3.Lines.Count - 1 FileTxt2...
Не отображается кириллица при открытии файла Excel через OleDb Visual Basic .NET
Привет всем! У меня есть вот такой код для открытия Excel-файла: connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";" connection = New OleDb.OleDbConnection(connectionString) connection.Open() ' в следующей строке я получаю список листов из открытого файла
Visual Basic .NET Как преобразовать класс определенного типа в класс другого типа с входным типом Создал 2 класса, которые служат аргументами для событий Public Class ItemAddedEventArgs(Of T) Sub New(Item As T) Me.Item = Item End Sub Public Property Item As T End Class Public Class ItemAddedEventArgs Sub New(Item As Object) https://www.cyberforum.ru/ vb-net/ thread2471140.html
Visual Basic .NET Как сделать так что бы Panel1 выходила за границы формы? https://www.cyberforum.ru/ vb-net/ thread2471043.html
Но форме есть кнопка, по клику появляется panel1 с данными. размер panel больше размера формы. Вопрос: Можно ли сделать так что бы panel выходил за размеры (рамки) формы?
Visual Basic .NET GMap.Net
Всем здравствуйте. Подскажите пожалуйста,где можно скачать DMap.Net.windowspresentation.dll. Никак найти не могу.Скачал архив greatmaps,но там ничего толкового нет.
Visual Basic .NET Программно создать Panel и в ней Datagridview https://www.cyberforum.ru/ vb-net/ thread2470813.html
Всем привет! Подскажите, как создать программно Panel и в ней создать DatagridView c 3 столбцами и 3 строками и поместить под datagridview кнопку? Заранее спасибо за помощь.
Visual Basic .NET Как в xml документ вставить узел с элементами? Здравствуйте. Возникла проблема вставки в xml документ после <offers> одного узла <offer> с несколькими элементами. Как это можно сделать? Пример xml файла: <shop> <categories> ... ... ... https://www.cyberforum.ru/ vb-net/ thread2470732.html
Visual Basic .NET Записать в новый файл те строки исходного текстового файла, в которых самое длинное слово встречается раньше
Записать в новый файл те строки исходного файла, в которых самое длинное слово встречается раньше, чем самое короткое слово. Есть код, который определяет какое слово стоит раньше, но немножко корявый Public Class Form1 Sub Vvod(ByRef stroka As String) stroka = InputBox("Ввод строки:") End Sub Sub Bas(ByVal stroka As String, ByRef sWord1 As String, ByVal sWord2 As...
Visual Basic .NET Составление сложных SQL запросов к Access из VB.Net https://www.cyberforum.ru/ vb-net/ thread2469881.html
Всем доброго времени суток! Не так давно начал создавать базу данных в Access и создание формы для неё в VB.Net Столкнулся с проблемой создания сложных запросов. Т.е. запросы из одной таблицы получаются, всё супер, но простыми запросами всё реализовать не получи
14 / 14 / 0
Регистрация: 24.09.2015
Сообщений: 208
17.06.2019, 20:46  [ТС] 0

Составление (генерация) сложных SQL запросов к Access - Visual Basic .NET - Ответ 13662832

17.06.2019, 20:46. Показов 1432. Ответов 15
Метки (Все метки)

Ответ

Вот такой вот запрос к примеру сформировать...

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
SELECT
  Производители_станков.[Производитель станка],
  Типы_станков.[Тип станка],
  Модели_станков.[Модель станка],
  Производители_ЧПУ.[Производитель ЧПУ],
  Модели_ЧПУ.[Модель ЧПУ],
  Станки.Транзакция,
  Станки.[Серийный номер],
  Города.Город,
  Организации.Организация,
  Станки.Комментарий,
  Документы.[Имя документа],
  Бэкапы.[Имя бэкапа]
FROM ((Города
INNER JOIN (Типы_станков
INNER JOIN (Производители_станков
INNER JOIN (Модели_станков
INNER JOIN (Производители_ЧПУ
INNER JOIN (Модели_ЧПУ
INNER JOIN (Организации
INNER JOIN Станки
  ON Организации.[Код организации] = Станки.[Код организации])
  ON Модели_ЧПУ.[Код модели ЧПУ] = Станки.[Код модели ЧПУ])
  ON Производители_ЧПУ.[Код производителя ЧПУ] = Модели_ЧПУ.[Код производителя ЧПУ])
  ON Модели_станков.[Код модели станка] = Станки.[Код модели станка])
  ON Производители_станков.[Код производителя] = Модели_станков.[Код производителя])
  ON Типы_станков.[Код типа станка] = Модели_станков.[Код типа станка])
  ON Города.[Код города] = Организации.[Код города])
INNER JOIN Документы
  ON (Типы_станков.[Код типа станка] = Документы.[Код типа станка])
  AND (Станки.[Код станка] = Документы.[Код станка])
  AND (Производители_ЧПУ.[Код производителя ЧПУ] = Документы.[Код производителя ЧПУ])
  AND (Производители_станков.[Код производителя] = Документы.[Код производителя])
  AND (Модели_ЧПУ.[Код модели ЧПУ] = Документы.[Код модели ЧПУ])
  AND (Модели_станков.[Код модели станка] = Документы.[Код модели станка]))
INNER JOIN Бэкапы
  ON Станки.[Код станка] = Бэкапы.[Код станка]
WHERE (((Производители_станков.[Производитель станка]) = "первый"));
Вот так я примерно представляю себе данное упрощение, но пока сомневаюсь в этом...

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Class [Function]
    ''' <summary>
    ''' SELECT
    ''' </summary>
    ''' <param name="PrevStr">Строка содержащая запрос SELECT</param>
    ''' <param name="N_Table">Имя таблицы</param>
    ''' <param name="N_Field">Имя поля</param>
    ''' <returns>Возвращает функцию SELECT для строки запроса</returns>
    Public Function FSelect(PrevStr As String, N_Table As String, N_Field As String) As String
        If PrevStr = "" Then
            Return "SELECT " & N_Table & ".[" & N_Field & "]"
        Else
            Return PrevStr & ", " & N_Table & ".[" & N_Field & "]"
        End If
    End Function
    ''' <summary>
    ''' INNER JOIN
    ''' </summary>
    ''' <param name="PrevStr">Строка содержащая запрос INNER JOIN</param>
    ''' <param name="N_T1">имя первой табицы</param>
    ''' <param name="N_T2">Имя второй таблицы</param>
    ''' <param name="Field">Имя поля</param>
    ''' <returns>Возвращает функцию INNER JOIN для строки запроса</returns>
    Public Function FInnJ(PrevStr As String, N_T1 As String, N_T2 As String, Field As String)
        If PrevStr = "" Then
            Return N_T1 & " INNER JOIN " & N_T2 & "ON" & N_T1 & ".[" & Field & "]=" & N_T2 & ".[" & Field & "]"
        Else
            Return N_T1 & " INNER JOIN " & "(" & PrevStr & ")ON" & N_T1 & ".[" & Field & "]=" & N_T2 & ".[" & Field & "]"
        End If
    End Function
End Class
Добавлено через 1 час 15 минут
diadiavova, при первом запуске или когда все комбобоксы "пустые", у нас грузятся все данные в списки. Дальше например выбрали мы "Производителя станка", все остальные поля должны обновиться в соответствии со связями с данным производителем. Дальше например выбрали "Город" и о5-же у нас остальные комбобоксы должны обновить данные в соответствии с производителем и городом и т.д...
Если на каждое условие прописывать отдельный запрос, то получится довольно ГРОМОЗДКА и плохо читаемая и редактируемая портянка...
Как я это примерно вижу, нужно описать "все" SQL функции, которые будут использоваться, дальше из этих функций написать метод который будет собирать запрос и дальше уже отправлять его к Access.

Вернуться к обсуждению:
Составление (генерация) сложных SQL запросов к Access Visual Basic .NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2019, 20:46
Готовые ответы и решения:

Составление сложных SQL запросов к Access из VB.Net
Всем доброго времени суток! Не так давно начал создавать базу данных в Access и создание формы для...

Несколько задач на составление сложных запросов
Господа программисты! Помогите пожалуйста решить задачи по бд надо с помощью сложных запросов...

Генератор (сложных) SQL-запросов
Привет! Есть приложение, которое получает данные из базы. Вариантов запросов много, запросы...

Разработка сложных и коррелированных SQL-запросов
Вывести все сведения о продавцах, которые имеют покупателей, сделавших за 2001 год более 5...

15
17.06.2019, 20:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2019, 20:46
Помогаю со студенческими работами здесь

Составление запросов SQL
Ребят,выручайте. Изучаю язык SQL, дали задание написать запросы Представьте 2 таблицы:...

Динамическое создание запросов в MS Access как в MS SQL
Доброго времени суток! Пишу программу на Delphi. Обращение к разным базам. С MS SQL все...

Вывод данных в БД Access 2003 при использование SQL запросов. Delphi
Добрый день или вечер Камрады, столкнулся с проблемой при использование структуры &quot;insert into&quot;,...

Создание баз и таблиц в Access при помощи SQL-запросов типа DDL
Господа, не пытайтесь создавать базы и таблицы в Access при помощи SQL-запросов типа DDL....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru