DATAGRID DUVIDA DE INICIANTE...
Helpppp mee please....
Galera é o seguinte:
Estou tentando criar um form que faça uma pesquisa em sql , nesse caso eu teria uma opção de pesquisar o cliente por nome ou endereço ao clicar em nome exibiria uma textbox pedindo p o usuario digitar o nome do cliente e logo em seguida clikando no botão pesquisar e todos os registros que possuirem o nome digitado e q estaum num banco de dados em acess seriam exibidos em um datagrid. e quando eu clikar no nome que eu realmente quero todos o dados do cliente escolhido fosse para um outro form na qual eu possa alterar excluir...
Alguem pode me dizer como faço isso??
Galera é o seguinte:
Estou tentando criar um form que faça uma pesquisa em sql , nesse caso eu teria uma opção de pesquisar o cliente por nome ou endereço ao clicar em nome exibiria uma textbox pedindo p o usuario digitar o nome do cliente e logo em seguida clikando no botão pesquisar e todos os registros que possuirem o nome digitado e q estaum num banco de dados em acess seriam exibidos em um datagrid. e quando eu clikar no nome que eu realmente quero todos o dados do cliente escolhido fosse para um outro form na qual eu possa alterar excluir...
Alguem pode me dizer como faço isso??
Veja este exemplo:
http://www50.brinkster.com/teusma/programas/VB_QTUDO.zip
Tem lá o que quer.
http://www50.brinkster.com/teusma/programas/VB_QTUDO.zip
Tem lá o que quer.
Vlw brother...O exemplo é realmente muito bom mas eu sou iniciante e to ainda voando um pouco, mas vou estudar esse projeto com muita calma...
Ahh propósito entrei no seu site e baixei umas apostilas de VB interessantes continue assim...
Ahh propósito entrei no seu site e baixei umas apostilas de VB interessantes continue assim...
usa este exemplo ae
http://www50.brinkster.com/teusma/programas/VB_QTUDO.zip
http://www50.brinkster.com/teusma/programas/VB_QTUDO.zip
Tenta o seguinte:
dim rsBusca as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM Tabela WHERE CodigodoCliente = ' " & text1.text & ' "
set rsBuca = suaconexao.execute(SQL)
Set DataGridBusca.DataSource = Nothing
suaconexao.CursorLocation = adUseClient
DataGridBusca.Enabled = True
Set DataGridBusca.DataSource = rsBusca
If rsBusca.EOF Then MsgBox "Busca sem resultados", vbInformation
Set rsBusca = Nothing
dim rsBusca as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM Tabela WHERE CodigodoCliente = ' " & text1.text & ' "
set rsBuca = suaconexao.execute(SQL)
Set DataGridBusca.DataSource = Nothing
suaconexao.CursorLocation = adUseClient
DataGridBusca.Enabled = True
Set DataGridBusca.DataSource = rsBusca
If rsBusca.EOF Then MsgBox "Busca sem resultados", vbInformation
Set rsBusca = Nothing
neste site tem
http://www50.brinkster.com/teusma/programas/VB_QTUDO.zip
bom cara, vc tbm pode usar este exemplo ae
dim rsBusca as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM Tabela WHERE CodigodoCliente = ' " & text1.text & ' "
set rsBuca = suaconexao.execute(SQL)
Set DataGridBusca.DataSource = Nothing
suaconexao.CursorLocation = adUseClient
DataGridBusca.Enabled = True
Set DataGridBusca.DataSource = rsBusca
If rsBusca.EOF Then MsgBox "Busca sem resultados", vbInformation
http://www50.brinkster.com/teusma/programas/VB_QTUDO.zip
bom cara, vc tbm pode usar este exemplo ae
dim rsBusca as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM Tabela WHERE CodigodoCliente = ' " & text1.text & ' "
set rsBuca = suaconexao.execute(SQL)
Set DataGridBusca.DataSource = Nothing
suaconexao.CursorLocation = adUseClient
DataGridBusca.Enabled = True
Set DataGridBusca.DataSource = rsBusca
If rsBusca.EOF Then MsgBox "Busca sem resultados", vbInformation
Alguém podia punir esse carinha aà hein (pà ' meu no seu teclado tem só as teclas CTRL,C e V?)
Vlw "POBREMA" RESOLVIDU...
Ahhh só p naum esquecer:
Como o JEFINHO pode ser tão criativo...???[txt-color=#ff0000] [/txt-color]
Ahhh só p naum esquecer:
Como o JEFINHO pode ser tão criativo...???[txt-color=#ff0000] [/txt-color]
Tópico encerrado , respostas não são mais permitidas