aptx4869_ Ответов: 0

Как сделать окно поиска [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

0 Ответов