COMPLEMENTAR DADOS DO ARQUIVO COM BASE NAS LETRAS
Prezados,
Desenvolvi um projeto em VB com acesso a bando de dados Access.
Quando desejo encontrar determinado cliente, copio todos os nomes para um combo-box e vou dando scroll até encontrar o desejado.
Ocorre que a tabela de clientes cresceu muito e achar um determinado cliente ficou muito cansativo.
Sei que existe uma opção que seria digitar letra a letra e o VB vai completando automaticamente.
Essa opção precisa ser feita no combo-box ou pode ser feita diretamente na tabela ?
Gostaria que me fosse enviado um eemplo ou informado onde posso pegar uma sugestão.
Antecipadamente grato
Sergio
Desenvolvi um projeto em VB com acesso a bando de dados Access.
Quando desejo encontrar determinado cliente, copio todos os nomes para um combo-box e vou dando scroll até encontrar o desejado.
Ocorre que a tabela de clientes cresceu muito e achar um determinado cliente ficou muito cansativo.
Sei que existe uma opção que seria digitar letra a letra e o VB vai completando automaticamente.
Essa opção precisa ser feita no combo-box ou pode ser feita diretamente na tabela ?
Gostaria que me fosse enviado um eemplo ou informado onde posso pegar uma sugestão.
Antecipadamente grato
Sergio
Olha amigo, eu não mexo com access, mas meu código ficaria como abaixo com SQL server:
Public Shared Sub Chama_DadosProjeto()
Dim conn As New SqlClient.SqlConnection([Ô][Ô]DATA SOURCE= local;USER ID=srv_teste;PASSWORD=123;INITIAL CATALOG=TESTE;[Ô])
Dim cSql As String
Dim temp7 As String = Form1.comboBox1.Text
Dim codigo As String() = temp7.Split(New Char() {[Ô] [Ô]})
cSql = [Ô]SELECT * FROM SEUBANCO where SUAS CONDIÇÔES[Ô]
conn.Open()
Dim DSet As New DataSet() [ô]SQLStr = cSql
Dim cmd As New SqlCommand(cSql, conn)
Dim dbAdaptr As SqlClient.SqlDataAdapter = New SqlDataAdapter()
[ô]Cria objetos Datarow e datatable
Dim tRow As DataRow, tTbl As DataTable
With dbAdaptr
.TableMappings.Add([Ô]Table[Ô], [Ô]SEUBANCO[Ô])
cmd.CommandType = CommandType.Text
.SelectCommand = cmd
.Fill(DSet)
.Dispose()
End With
DSet.AcceptChanges()
tTbl = DSet.Tables.Item(0)
DSet.Dispose()
conn.Close()
[ô]preenche o combobox
Form1.comboBox1.Text = [Ô][Ô]
Form1.comboBox1.Items.Clear()
Form1.comboBox1.BeginUpdate()
[ô]carrega o combobox com o nome dos clientes
For Each tRow In tTbl.Rows
Form1.comboBox1.Items.Add(tRow([Ô]SeuCampoDoBancoDeDados[Ô]).ToString)
Next
Form1.comboBox1.EndUpdate()
End Sub
Public Shared Sub Chama_DadosProjeto()
Dim conn As New SqlClient.SqlConnection([Ô][Ô]DATA SOURCE= local;USER ID=srv_teste;PASSWORD=123;INITIAL CATALOG=TESTE;[Ô])
Dim cSql As String
Dim temp7 As String = Form1.comboBox1.Text
Dim codigo As String() = temp7.Split(New Char() {[Ô] [Ô]})
cSql = [Ô]SELECT * FROM SEUBANCO where SUAS CONDIÇÔES[Ô]
conn.Open()
Dim DSet As New DataSet() [ô]SQLStr = cSql
Dim cmd As New SqlCommand(cSql, conn)
Dim dbAdaptr As SqlClient.SqlDataAdapter = New SqlDataAdapter()
[ô]Cria objetos Datarow e datatable
Dim tRow As DataRow, tTbl As DataTable
With dbAdaptr
.TableMappings.Add([Ô]Table[Ô], [Ô]SEUBANCO[Ô])
cmd.CommandType = CommandType.Text
.SelectCommand = cmd
.Fill(DSet)
.Dispose()
End With
DSet.AcceptChanges()
tTbl = DSet.Tables.Item(0)
DSet.Dispose()
conn.Close()
[ô]preenche o combobox
Form1.comboBox1.Text = [Ô][Ô]
Form1.comboBox1.Items.Clear()
Form1.comboBox1.BeginUpdate()
[ô]carrega o combobox com o nome dos clientes
For Each tRow In tTbl.Rows
Form1.comboBox1.Items.Add(tRow([Ô]SeuCampoDoBancoDeDados[Ô]).ToString)
Next
Form1.comboBox1.EndUpdate()
End Sub
E colocaria esse método acima para ser chamado no evento SelectedIndexChanged do combo box
Espero ter ajudado um pouquinho
Att,
Lucas
Espero ter ajudado um pouquinho
Att,
Lucas
Obrigado.
Vou tentar.
SDS/Sergio
Vou tentar.
SDS/Sergio
Tópico encerrado , respostas não são mais permitidas