TRAZER DADOS DO BANCO DE DADOS NA TELA DE PESQUISA
essa imagem ai em cima é a tela que eu cadastro a OS.
ela tem os objetos
nso.caption [ô]mostra o numero da OS
idcliente.caption [ô]mostra o codigo do cliente
txtnome.text [ô]mostra o nome do cliente
cmdbuscacli [ô]é um commandbutton que chama outra tela onde tem os clientes cadastrados e onde eu cadastro clientes
txtfone.text [ô]guarda o telefone do cliente
codigo.caption [ô]mostra o codigo do produto
txtaces.text [ô]mostra o acessorio ou o serviço pedido pelo cliente
cmdbuscapro [ô]um commandbutton que busca o produto em outra tela
txtvalor.text [ô]mostra o valor do produto
cmdadiciona [ô]commandbutton quando eu clico nele add no flexgrid na primeira coluna o codigo do produto, na segunda coluna a descrição do produto, e na terceira coluna o valor do produto, ai eu clico no button cmdbuscapro para ir add mais produto nos campos acima e vou clicando no cmdadiciona.
MSflex [ô]mostra os produtos conforme vou add no button cmdadiciona
txtQitens.text [ô]mostra quantos produtos tem no MSflex
txtVtotal [ô]soma os valores da terceira coluna e mostra o valor total
quando eu clico em gravar ele grava na tabela OS direitinho até ai ta funcionando blz.
ela tem os objetos
nso.caption [ô]mostra o numero da OS
idcliente.caption [ô]mostra o codigo do cliente
txtnome.text [ô]mostra o nome do cliente
cmdbuscacli [ô]é um commandbutton que chama outra tela onde tem os clientes cadastrados e onde eu cadastro clientes
txtfone.text [ô]guarda o telefone do cliente
codigo.caption [ô]mostra o codigo do produto
txtaces.text [ô]mostra o acessorio ou o serviço pedido pelo cliente
cmdbuscapro [ô]um commandbutton que busca o produto em outra tela
txtvalor.text [ô]mostra o valor do produto
cmdadiciona [ô]commandbutton quando eu clico nele add no flexgrid na primeira coluna o codigo do produto, na segunda coluna a descrição do produto, e na terceira coluna o valor do produto, ai eu clico no button cmdbuscapro para ir add mais produto nos campos acima e vou clicando no cmdadiciona.
MSflex [ô]mostra os produtos conforme vou add no button cmdadiciona
txtQitens.text [ô]mostra quantos produtos tem no MSflex
txtVtotal [ô]soma os valores da terceira coluna e mostra o valor total
quando eu clico em gravar ele grava na tabela OS direitinho até ai ta funcionando blz.
essa imagem acima é a tela do cadastro de clientes, quando eu clico no botão cmdbuscacli da tela cadastro de OS, traz essa tela.
nessa tela é só eu clicar na flexgrid
ex.
no nome do cliente ai preenche os campos idcliente.caption, txtnome.text, txtfone.text da tela de cadastro de OS
tbm esta funcionando perfeitamente.
nessa tela é só eu clicar na flexgrid
ex.
no nome do cliente ai preenche os campos idcliente.caption, txtnome.text, txtfone.text da tela de cadastro de OS
tbm esta funcionando perfeitamente.
essa tela é a tela do cadastro de produtos, que preenche os campos codigo.caption, txtaces.text, txtvalor da tela cadastro de OS
tbm esta funcionando perfeitamente.
tbm esta funcionando perfeitamente.
como eu faço para trazer os dados da tela cadastro de OS nessa tela????
esqueci de falar um detalhe, estou usando a referencia DAO
em general eu faço assim
[txt-color=#0000f0]Dim banco As Database
Dim tabela As Recordset[/txt-color]
e no form eu conecto no banco e na tabela assim...
[txt-color=#0000f0] Set banco = OpenDatabase(App.Path & [Ô]\bdOS.mdb[Ô])
Set tabela = banco.OpenRecordset([Ô]select * from OS [Ô], dbOpenDynaset)
[/txt-color]
bdOS é o nome do meu banco de dados
e OS é a tabela ....
em general eu faço assim
[txt-color=#0000f0]Dim banco As Database
Dim tabela As Recordset[/txt-color]
e no form eu conecto no banco e na tabela assim...
[txt-color=#0000f0] Set banco = OpenDatabase(App.Path & [Ô]\bdOS.mdb[Ô])
Set tabela = banco.OpenRecordset([Ô]select * from OS [Ô], dbOpenDynaset)
[/txt-color]
bdOS é o nome do meu banco de dados
e OS é a tabela ....
Você precisa acrescentar a cláusula WHERE na consulta.
Exemplo:
[txt-color=#0000f0]Set [/txt-color]tabela = banco.OpenRecordset([txt-color=#e80000][Ô]SELECT * FROM OS WHERE IdOs=[Ô] & 1[/txt-color], [txt-color=#0000f0]dbOpenDynaset[/txt-color])
Exemplo:
[txt-color=#0000f0]Set [/txt-color]tabela = banco.OpenRecordset([txt-color=#e80000][Ô]SELECT * FROM OS WHERE IdOs=[Ô] & 1[/txt-color], [txt-color=#0000f0]dbOpenDynaset[/txt-color])
vc viu os forms acima???
então eu fiz oq vc mandou mais não deu certo!
então eu fiz oq vc mandou mais não deu certo!
Pelo amor de Deus RICK, mostre a estrutura do banco de dados assim:
campo - tipo
OSid Autonumeração
etc.....
se não nada vai funcionar
campo - tipo
OSid Autonumeração
etc.....
se não nada vai funcionar
ahhh agora entendi.
a imagem em cima é a tabela OS
a imagem em cima é a tabela OS
a tabela em cima é a tabela clientes
a tabela em cima é a tabela produtos...
pronto marcelo essas são as estruturas das tabelas
pronto marcelo essas são as estruturas das tabelas
Tópico encerrado , respostas não são mais permitidas