|
|
Postada em 05/01/2005 17:37 hs
Galera a dúvida é o seguinte : Eu gostaria que nesta consulta todos os valores no campo quantidade fossem divididos por 100. Como eu fação esta consulta ? Private Sub Command1_Click()
Dim sql As String sql = "Select codigo, descricao, quantidade, categoria from mix2 " Data1.RecordSource = sql
Data1.Refresh
End Sub
|
|
|
|
|
|
|
|
Postada em 05/01/2005 18:07 hs
Use um RecordSet no lugar de Data1 e sempre que for atualizar divida o valor desejado ex. Dim Recod_Meu as Recordset Dim Sql as String Sql = "Select * From Tabela_Minha" Recod_Meu.Execute sql Txt1.text = val(Recod_Meu.Fields("quantidade")) / 100 |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 05/01/2005 18:25 hs
Os resultados serão mostrados em uma dbgrid e não em um campo texto, existe outra forma ? |
|
|
|
|
|
Postada em 05/01/2005 18:51 hs
Se no lugar da dbgrig usares o msflexgrid vc tera a propriedade textmatrix Ex.: msflexgrid.textmatrix(coluna,linha) = val(Recod_Meu.Fields("quantidade")) / 100 Espero ter ajudado!!
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
|
|
Postada em 06/01/2005 08:14 hs
Private Sub Command1_Click()
Dim sql As String sql = "Select codigo, descricao, (quantidade / 100) AS quantidade, categoria from mix2 " Data1.RecordSource = sql
Data1.Refresh
End Sub
|
|
|
|
|
|
Postada em 06/01/2005 14:05 hs
Dim Recod_Meu as Recordset Dim Sql as String Sql = "Select (quantidade / 100) as qtda From Tabela" Recod_Meu.Execute sql Se precisar trabalhar casas decimais ainda pode o round: Round(quantidade / 100, 2) as qtd |
|
|
|
