Как сделать окно поиска [access 2013 DB] отображаемым в datagridview с помощью VB.NET
[Метка1 -- Текстовое Поле Textbox1 -- Кнопки Button1
GroupBox1]
[Label2 -- ComboBox1 -- Button2 -- Button3
DataGridView1 ---- Имя Picturebox1] -> ОТКЛЮЧАЕТСЯ ДО ТЕХ ПОР, ПОКА УСЛОВИЕ НЕ СТАНЕТ ИСТИННЫМ
Это формат моей веб - формы.
TextBox1-это поле поиска. Он будет искать номер (например, 301926699) в моей базе данных (Доступ 2013) Если номер найден, он будет отображен в представлении datagridview. И все отключенные кнопки или коробки будут включены.
Вот в чем моя проблема. Когда я пытаюсь ввести что-то, чего нет в базе данных, это все равно принимается. Мне нужно сделать это, "ТОЛЬКО НОМЕР В БАЗЕ ДАННЫХ МОЖЕТ ВКЛЮЧИТЬ ЕГО" и будет отображаться в datagridview с помощью VB.NET (Visual Studio 2017).
ПС. Я новичок в этом деле. VB.Net-да. (Чистое самопознание) У меня нет никакого опыта в этом деле. Я пробовал искать, но ни один из них не работает или у них есть ошибка. Пожалуйста, помогите мне исправить это. *всхлип* пожалуйста, научи меня~ Я готов учиться.
Что я уже пробовал:
<pre>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim search As String = "" Dim con As New OleDb.OleDbConnection Dim dbProvider As String Dim dbSource As String Dim MyDocumentsFolder As String Dim TheDataBase As String Dim FullDatabasePath As String dbProvider = "Provider=Microsoft.ACE.OLEDB.12.0;" TheDataBase = "/SampleDB.accdb" MyDocumentsFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) FullDatabasePath = MyDocumentsFolder & TheDataBase dbSource = "Data Source = " & FullDatabasePath con.ConnectionString = dbProvider & dbSource con.Open() If TextBox1.Text = "" Then MessageBox.Show("Please Write The Number") ComboBox1.Enabled = False Button2.Enabled = False Button3.Enabled = False DataGridView1.Enabled = False DataGridView1.Visible = False TextBox1.Focus() Exit Sub End If search = "SELECT ID FROM SampleTable Where Num = '" & Trim(TextBox1.Text) & "'" '("Select Num From SampleTable = '" & TextBox1.Text & "'") 'code here to process selections ComboBox1.Enabled = True Button2.Enabled = True Button3.Enabled = True DataGridView1.Enabled = True DataGridView1.Visible = True MessageBox.Show("Database is now open") Me.SampleTableTableAdapter.Fill(Me.SampleDBDataSet.SampleTable) End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'SampleDBDataSet1.SampleTable' table. You can move, or remove it, as needed. 'Me.SampleTableTableAdapter.Fill(Me.SampleDBDataSet.SampleTable) End Sub Private Sub GetData() Dim SO As String = TextBox1.Text 'Retrieve the data Me.SOSampleTableTableAdapter.Fill(Me.SOSampleDBDataSet.SOSampleTable) 'The table can be used here to display and edit the data. 'That will most likely involve data-binding but that is not a data access issue. End Sub