Banco de dados

Question

Olá amigos do MSDN, continuo tentando dar agora um segundo passo no entendimento de banco de dados. Consegui copiando, montar uma ultra simples tabela.

Tenho essa configuração:

Imports System.Data.OleDb
Public Class Class1
    Private dbcon As New OleDbConnection("Provider = microsoft.ace.OLEDB.12.0 ; DATA SOURCE = D:\WindowsApplication1\WindowsApplication1\nomes.accdb")
    Private DBCmd As OleDbCommand
    Private DBDA As OleDbDataAdapter

    Public dbdt As DataTable

    Public Sub executquery(ByVal query As String)
        Try

            dbcon.Open()
            DBCmd = New OleDbCommand(query, dbcon)
            dbdt = New DataTable

            DBDA = New OleDbDataAdapter(DBCmd)
            DBDA.Fill(dbdt)

        Catch ex As Exception
            MessageBox.Show("deu bo")

        End Try

    End Sub
End Class

Public Class Form1
    Private dados As New Class1
    Private Sub form1_shown(sender As Object, e As EventArgs) Handles Me.Shown

        dados.executquery("select * from tabela1")
        grid.DataSource = dados.dbdt

    End Sub

A minha intenção é montar a seguinte rotina, usando 1 TextBox no Form, e através desse TextBox quero ir populando o meu banco de dados. Seria algo do tipo, ao colocar um nome no TextBox, automaticamente o programa pesquisaria na tabela do banco de dados se aquele nome já existe, então se o nome já existe,  o TextBox fica com o nome escrito, se o nome ainda não consta na tabela, então o programa automaticamente cadastraria este novo nome que passaria afazer parte do banco de dados.

Tenho uma rotina que faz isso, só que não trabalha com banco de dados, os nomes fazem parte da rotina e portanto não existe um cadastro para gravar os novos nomes. A rotina é essa:

 'função que auto-completa os nomes
    Dim lst As New List(Of String)
    Dim MySource As New AutoCompleteStringCollection()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim nomesMatriz = New TextBox() {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28}

        

        lst.Add("Abrãao")

        lst.Add("Alceu")
        lst.Add("Alencar")
        lst.Add("Bernardo")

        lst.Add("Carlos")
        lst.Add("Gustavo")
        lst.Add("Renato")
        lst.Add("Sueli")
        

        MySource.AddRange(lst.ToArray)

        For u = 0 To 27
           nomesMatriz(u).AutoCompleteCustomSource = MySource
        Next

        For u = 0 To 27
           nomesMatriz(u).AutoCompleteMode = AutoCompleteMode.SuggestAppend
        Next

        For u = 0 To 27
            nomesMatriz(u).AutoCompleteSource = AutoCompleteSource.CustomSource
        Next

    End Sub

End Class

Quero que o meu banco de dados funcione como nessa rotina, quando entro com a primeira letra do nome, surge uma coluna com todos os nomes que começam com aquela letra. 

Acredito que para quem conhece sobre banco de dados isso seja muito simples, mas ainda não tenho a menor ideia como fazer essa pequena rotina, alguém pode me dar essa força?

Grato / Durval

 

Answer 1

Durval Teixeira,

   Acho que é isso que você procura:

   Existe dentro das propriedades do Textbox em VB.Net uma propriedade chamada "AutoComplete". Veja um exemplo:

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load

    ' Create the list to use as the custom source.
    Dim MySource As New AutoCompleteStringCollection()
    MySource.AddRange(New String() _
                        { _
                            "January", _
                            "February", _
                            "March", _
                            "April", _
                            "May", _
                            "June", _
                            "July", _
                            "August", _
                            "September", _
                            "October", _
                            "November", _
                            "December" _
                        })

    ' Create and initialize the text box.
    Dim MyTextBox As New TextBox()
    With MyTextBox
        .AutoCompleteCustomSource = MySource
        .AutoCompleteMode = AutoCompleteMode.SuggestAppend
        .AutoCompleteSource = AutoCompleteSource.CustomSource
        .Location = New Point(20, 20)
        .Width = Me.ClientRectangle.Width - 40
        .Visible = True
    End With

    ' Add the text box to the form.
    Me.Controls.Add(MyTextBox)
End Sub

========================================================
Propriedade TextBox.AutoCompleteSource

https://msdn.microsoft.com/pt-br/library/system.windows.forms.textbox.autocompletesource(v=vs.110).aspx
========================================================

    Veja também:

========================================================
VB.NET - Usando o recurso AutoCompletar

http://www.macoratti.net/09/02/vbn_aad.htm
========================================================

========================================================
TEXBOX AUTOCOMPLETE
http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=449687&pagina=1
========================================================

[]'s,
Fabio I.

Answer 2

Fabio, obrigado por me responder.

Veja, essa mesma rotina que você me cedeu, ela esta logo acima, nesta mesma pergunta. A minha pergunta diz respeito a como montar uma rotina parecida mas dai num banco de dados, saberia me dar essa força?

Grato/Durval 

Answer 3

Durval Teixeira,

   OKay, consegui simular seu código aqui e funcionou.

   - Vamos organizar as ideias:

   1 - Ler o banco de dados e preencher TODOS os TextBox com o recurso "AutoCompleteCustomSource";
   2 - Criar um botão "Inserir" que irá fazer o "INSERT";
   3 - Disparar uma rotina de "checagem". Essa rotina verificará se o conteúdo do "AutoCompleteCustomSource" JÁ POSSUI o nome na lista;
   3.1 - Caso NÃO exista o nome na lista, então disparará o código abaixo "InsertRow";
   3.2 - Caso exista o nome na lista, então NÃO disparará o código abaixo "InsertRow";

    Public Sub InsertRow(ByVal connectionString As String,
    ByVal insertSQL As String)

        Using connection As New OleDbConnection(connectionString)
            ' The insertSQL string contains a SQL statement that
            ' inserts a new row in the source table.
            Dim command As New OleDbCommand(insertSQL)

            ' Set the Connection to the new OleDbConnection.
            command.Connection = connection

            ' Open the connection and execute the insert command.
            Try
                connection.Open()
                command.ExecuteNonQuery()
            Catch ex As Exception
                MessageBox.Show("deu erro")
            End Try
            ' The connection is automatically closed when the
            ' code exits the Using block.
        End Using
    End Sub

  Para o botão...

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\WindowsApplication1\WindowsApplication1\nomes.accdb;Persist Security Info=False;"
        Dim strSQL = "INSERT INTO Tabela1 ( Codigo, Nome )" 'Modifique de acordo com a sua tabela no Access
        If Not TextBox1.AutoCompleteCustomSource.Contains(TextBox1.Text) Then
            dados.InsertRow(strSQL, strCon)
        End If
    End Sub

   Coloquei a rotina "InsertRow" dentro da sua classe "dados";

   É isso?

[]'s,
Fabio I.