.NET 4.x Загрузка данных из БД в переменные - Visual Basic .NET

  1. Что то такое нарисовал - сам не пойму:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged        Dim a1 As String        Dim a2 As String        Dim a3 As Date        Dim a4 As String         a1 = ComboBox1.Text         Dim Connect1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Path)         zSQL1 = "SELECT p1, p2, p3, p4 FROM Printer WHERE p1=a1 "         Dim Command1 As New OleDb.OleDbCommand(zSQL1, Connect1)         Connect1.Open()         Command1.ExecuteNonQuery()         Connect1.Close()         a2=?         a2=?         a4=?     End Subмало того, что не знаю как присвоить да еще и код неверный(11 строка ругается) помогите плиз


textual

Код:

Dim zSQL1 As String = String.Format("SELECT p1, p2, p3, p4 FROM Printer WHERE p1={0}", a1)


Похожие ответы
  1. Здравствуйте! Для загрузки содержимого сайтов пользовался подобными методами:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22         Dim oHttp As Object         Dim strURL As String           strURL = "https://www.instagram.com/"           On Error Resume Next         oHttp = CreateObject("MSXML2.XMLHTTP")         If Err.Number <> 0 Then             oHttp = CreateObject("MSXML.XMLHTTPRequest")         End If         On Error GoTo 0         If oHttp Is Nothing Then             MsgBox("Не удалось инициализировать объект MSXML!")             Exit Sub         End If           oHttp.Open("GET", strURL, False)         oHttp.Send()         TextBox1.Text = oHttp.ResponseText         Debug.Print(oHttp.ResponseText)         oHttp = Nothing         MsgBox("Данные успешно импортированы!", vbInformation)илиvb.net1 2 3 4 5 6 7 8         Dim client As New WebClient     'Создаем объект client класса WebClient         Dim url As String = "https://www.shutterstock.com/ru/"  'Создаём строку для хранения 'url         Dim stream As Stream  'Создаём объект stream класса Stream         stream = client.OpenRead(url)  'Считываем данные         Dim reader As New StreamReader(stream)  'Создаём объект reader 'класса StreamReader         Dim result As String = reader.ReadToEnd() 'Используем метод         'ReadToEnd() ' для чтения содержимого потока до конца         MsgBox(result) 'Выводим содержимое переменной resultИ эти способы прекрасно, пока не попытался считать сайт https://www.shutterstock.com/ru/ При загрузке постоянно выдает ошибку и загрузка прерывается. Почему это происходит? Авторизация тут не важно, мне необходима информация только на главной странице или на страницах поиска, но они открыты и без авторизации.

  1. Здравствуйте! Появился вопрос, как искать программным способом информацию в ячейках БД, созданную при помощи Recordset? Для большей понятности, пример: В Textbox вводится Номер Карты, который ищется в таблице, и затем в Label выводится количество денег на карте, найденные в той же таблице:

  1. Здравствуйте. Как можно сделать расчеты между таблицами,которые представлены на фото. То есть при выборе должности в карте сотрудника,она должна уменьшаться в таблице "должности"(скрин 2). А в таблице вакансии в колонке "занято мест" должно выводится количество занятых должностей, и если нет свободных то в конке "свободно" будет соответствующий результат.

  1. Здравствуйте, форумчане! Подскажите пожалуйста правильный метод получения текстовых данных в виде таблицы из текстового файла, где размер может варьироваться от 200 до 400 мегабайт. В текстовом файле кроме хтмл разметок и тегов присутствуют таблицы вида:

     1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 4 6 ... 
    Пробовал регулярными выражениями получить данные, но не смог из за символа переноса строки. Если кто подскажет паттерн, буду премного благодарен. Я обычно обхожусь replace, чтобы соединить в одну строку и вытаскиваю данные регуляркой, а тут замена не получается, выдает - OutOfMemory... Выгружаю в переменную массива стрингов следующим кодом:vb.net1 Dim txt() As String = File.ReadAllLines(path)затем пошагово сплитами/реплейсами ищу необходимые данные и записываю в листбокс, но на определенных строк(~1000000) получаю тот же OutOfMemory...

  1. Доброе время суток. Подскажите пожалуйста, есть база данных в ней в поле SQL1 BLOB хранятся файлы с разными расширениями, как открыть эти файлы из VB net программой установленной на ПК. Допустим, имеется в базе данных Вордовский документ, вот как отрыть файл и запустить Ворд для просмотра (реадктирования) файла?

  1. Есть папка(D:\wscom). В ней лежат файлы, папки, подпапки. на форме текстовое поле(для ввода даты за которую необходимо осуществить поиск), ListView (для вывода полного пути к файлу с его именем в первом столбце и датой и временем создания/изменения во втором) и Кнопка(по которой запускается поиск файлов) Необходимо осуществить поиск файлов созданных/измененных) за определенную дату в папке с файлами и подкаталогами. Возможно ли еще сделать таймер поиска и ProgressBar и в Label отображать имя и путь файла, который просматривается в данный момент? (по возможности) Заранее спасибо за помощь.

  1. Как программно можно сохранить ветви с корнями и потом загрузить? Эта тема не подходит Сохранение и загрузка TreeView. Как правильно реализовать действие? Спасибо.vb.net1 TreeView.DataBindings

  1. Использую посимвольный поиск с отображением результатов в DataGridView. Мне нужно отключить некоторые компоненты формы при отсутствии строк в DataGridView. К какому событию привязать отключение? И еще один вопрос какое событие происходит при изменении набора строк в DataGridView. Т.е. два DataGridView отображающие данные двух связанных таблиц. Какое событие происходит при переходе по строкам в основной DataGridView и соответственно изменении набора строк в подчиненном DataGridView.

  1. В общем все облазил, и на форуме и в гугле, делал по разному и никак не получается(( нужно что бы при НАЖАТИИ НА КНОПКУ введенное в TextBox1(Например Имя(Вася)) имя заносилось в DataGrid(Имя моей таблицы), и в TextBox2(Фамилия) так же заносилось в таблицу(DataGrid) и сохранялось там же. TextBox1,2 находятся на Form1 , а DataGrid находятся на Form2) Не ругайтесь сильно)) HELP))

  1. Добрый день. Проблема заключается в следующем: В файле формата .csv находятся закодированные данные в кодировке ascii, я пытаюсь их декодировать и записать обратно в этот же файл с помощью:vb.net1 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 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click         Dim Mass() As String         Mass = IO.File.ReadAllLines(TextBox1.Text)         Dim str1 As String         Dim str2 As String         Dim str3 As String         str1 = Split(Mass(1), ";")(0)         str2 = Split(Mass(1), ";")(1)         str3 = Split(Mass(1), ";")(2)         For i As Integer = 1 To Mass.Length - 1             ' str1 = Split(Mass(i), ";")(0)             'str2 = Split(Mass(i), ";")(1)             ' str3 = Split(Mass(i), ";")(2)               Dim bytes1 As Byte() = str1.Split(" "c).Select(Function(n) Convert.ToByte(Convert.ToInt64(n, 10))).ToArray()             Dim bytes2 As Byte() = str2.Split(" "c).Select(Function(n) Convert.ToByte(Convert.ToInt64(n, 10))).ToArray()             Dim bytes3 As Byte() = str3.Split(" "c).Select(Function(n) Convert.ToByte(Convert.ToInt64(n, 10))).ToArray()             Dim value1 As String = System.Text.ASCIIEncoding.ASCII.GetString(bytes1)             Dim value2 As String = System.Text.ASCIIEncoding.ASCII.GetString(bytes2)             Dim value3 As String = System.Text.ASCIIEncoding.ASCII.GetString(bytes3)             Dim nov_i As String = String.Join(";", value1, value2, value2)             Mass(i) = nov_i         Next              IO.File.WriteAllLines(TextBox1.Text, Mass)               End Sub End ClassНо русские буквы закодированные в ascii декодируются в полную тарабарщину, как это исправить?