kuroi

não sei se o mysql aceita subqueries, mas se aceitar, faca assim: Select * from (SELECT count(op_precos.id_fornec) as Conta, op_precos.id_fornec, op_precos.id_produto, op_fornec.razao_social, op_precos.valor FROM op_precos JOIN op_produtos, op_fornec ON op_precos.id_produto = op_produtos.id AND op_precos.id_fornec = op_fornec.id WHERE op_precos.id_produto = ".$fornec." GROUP BY op_precos.id_fornec ,op_precos.valor) Order By Conta

fazer um curso ajuda tb.

Select Left(discado, 3) as Prefixo, Count(Origem) as Conta from Tabela Group By Left(discado, 3)

q query da q erro?

tenho essa: Function UF_Extenso(nValor As Double) As String If IsNull(nValor) Or nValor <= 0 Or nValor > 999999999999.99 Then Exit Function End If Dim Contador As Integer Dim Tamanho As Integer Dim Valor As String Dim Parte As String Dim Final As String Dim Grupo(5) As String Dim Texto(5) As String Dim Unidade(19) As String Unidade(1) = "UM " Unidade(2) = "DOIS " Unidade(3) = "TRES " Unidade(4) = "QUATRO " Unidade(5) = "CINCO " Unidade(6) = "SEIS " Unidade(7) = "SETE " Unidade(8) = "OITO " Unidade(9) = "NOVE " Unidade(10) = "DEZ " Unidade(11) = "ONZE " Unidade(12) = "DOZE " Unidade(13) = "TREZE " Unidade(14) = "QUATORZE " Unidade(15) = "QUINZE " Unidade(16) = "DEZESSEIS " Unidade(17) = "DEZESSETE " Unidade(18) = "DEZOITO " Unidade(19) = "DEZENOVE " Dim Dezena(9) As String Dezena(1) = "DEZ " Dezena(2) = "VINTE " Dezena(3) = "TRINTA " Dezena(4) = "QUARENTA " Dezena(5) = "CINQUENTA " Dezena(6) = "SESSENTA " Dezena(7) = "SETENTA " Dezena(8) = "OITENTA " Dezena(9) = "NOVENTA " Dim Centena(9) As String Centena(1) = "CENTO " Centena(2) = "DUZENTOS " Centena(3) = "TREZENTOS " Centena(4) = "QUATROCENTOS " Centena(5) = "QUINHENTOS " Centena(6) = "SEISCENTOS " Centena(7) = "SETECENTOS " Centena(8) = "OITOCENTOS " Centena(9) = "NOVECENTOS " Valor = Format(nValor, "000000000000.00") Grupo(1) = Mid(Valor, 1, 3) Grupo(2) = Mid(Valor, 4, 3) Grupo(3) = Mid(Valor, 7, 3) Grupo(4) = Mid(Valor, 10, 3) Grupo(5) = "0" + Mid(Valor, 14, 2) For Contador = 1 To 5 Parte = Grupo(Contador) Tamanho = Switch(Val(Parte) < 10, 1, Val(Parte) < 100, 2, Val(Parte) < 1000, 3) If Tamanho = 3 Then If Right(Parte, 2) <> "00" Then Texto(Contador) = Texto(Contador) & Centena(Left(Parte, 1)) + "E " Tamanho = 2 Else Texto(Contador) = Texto(Contador) & IIf(Left(Parte, 1) = "1", "CEM ", Centena(Left(Parte, 1))) End If End If If Tamanho = 2 Then If Val(Right(Parte, 2)) < 20 Then Texto(Contador) = Texto(Contador) & Unidade(Right(Parte, 2)) Else Texto(Contador) = Texto(Contador) & Dezena(Mid(Parte, 2, 1)) If Right(Parte, 1) <> "0" Then Texto(Contador) = Texto(Contador) & "E " Tamanho = 1 End If End If End If If Tamanho = 1 Then Texto(Contador) = Texto(Contador) & Unidade(Right(Parte, 1)) End If Next Contador Final = "" If Val(Grupo(1) + Grupo(2) + Grupo(3) + Grupo(4)) = 0 And Val(Grupo(5)) > 0 Then Final = Texto(5) & IIf(Val(Grupo(5)) = 1, "CENTAVO", "CENTAVOS") Else Final = Final & IIf(Val(Grupo(1)) > 0, Texto(1) & IIf(Val(Grupo(1)) > 1, "BILHÕES ", "BILHÃO "), "") Final = Final & IIf(Val(Grupo(2)) > 0, Texto(2) & IIf(Val(Grupo(2)) > 1, "MILHÕES ", "MILHÃO "), "") If Val(Grupo(2) + Grupo(3) + Grupo(4)) = 0 Then Final = Final & "DE " Else Final = Final & IIf(Val(Grupo(3)) > 0, Texto(3) & "MIL ", "") End If Final = Final & Texto(4) + IIf(Val(Grupo(1) + Grupo(2) + Grupo(3) + Grupo(4)) = 1, "REAL ", "REAIS ") Final = Final & IIf(Val(Grupo(5)) > 0, "E " & Texto(5) & IIf(Val(Grupo(5)) = 1, "CENTAVO", "CENTAVOS"), "") End If UF_Extenso = Final End Function

não entendi sua duvida. meter numeros aonde? se for na textbox onde vai ficar os numeros q vao ser usados nas operações, é so digitar q aparece o numero q você quiser. se a sua duvida for de por um numero quando ele clicar no botao e so fazer assim: no clique do botao 1: text1.text = text1.Text & 1 no clique do botao 2: text1.text = text1.Text & 2 e assim por diante.

ou eu não entendi o q o marcus quer ou você não entendeu marcio. marcus, o q você quer não seria isso? se eu tenho numa tabela o campo valor e 3 registros com os valores 100, 200 e 10, para calcular 5%, eu faco um select assim: Select Valor, (Valor * 5 / 100) as Porcento from Tabela voltando os valores:

tenta assim: Dtaprodutos.RecordSource = "select * from Produtos where [Preço Venda] ='" & Text2.Text & "'"

<% Response.Write Day(Data) & " de " & MonthName(Month(Data)) & " de " & Year(Data) %>

não é tão dificil. sqr() tira a raiz quadrada. pra fazer potenciacao use ^ tipo 2 ao quadrado = 2^2 2 ao cubo = 2^3 2 elevado a quarta potencia = 2^4 raiz cubica de 2 = 2^(3^-1) a maioria das outras funcoes existem no visual basic. tangente = tan() coseno = cos() seno = sin() logaritmo = log() base 8 = oct() base 16 = hex() etc... (na verdade não achei como converter pra binario, mas pesquisa por aí q deve ter) outras funcoes é só usar logica, tipo pra fazer fatorial é so fazer um for.

use a funcao split. veja aqui se ajuda: http://scriptbrasil.com.br/forum/index.php...=51236&hl=split http://scriptbrasil.com.br/forum/index.php...=72154&hl=split so q se o seu arquivo tiver um numero muito grande de linhas não sei se vai funcionar.

você ta pondo no install o banco junto na mesma pasta do exe?

esse erro significa que o nome de algum campo do banco está errado. tipo você digitou algum nome q não foi encontrado na tabela. talvez o seu banco local esteja diferente do banco do servidor.

assim? ("select * from imoveis where tipo='lancamento' AND (proprietario='corbetta' OR proprietario='criciuma') ORDER BY RAND() LIMIT 1 ",$db);

acho q a linha 17 é a debaixo na verdade, certo? e o certo seria assim: rs2.Open vsql,conn,3,3 (conn tem 2 enes)

não é erro de permissão, é erro de banco. não diz a linha do erro? provalvemente é quando você da algum update, você tem q verificar nomes de tabelas, etc.

entra Painel de Controle -> Ferramentas Administrativas - Fontes de Dados (ODBC). clique em adicionar e escolha de acordo com seu banco de dados. é assim no painel de controle do XP, não sei se o 98 é diferente.

sera q os arquivos da pasta dados tb não ficam na raiz do dominio? tipo ele abriria se você fizesse http://www.meudominio.com/nomedaimagem.jpg

você tentou por http na frente?

seria assim? <%if exe("foto") = "" then %> <strong><%=fonte01%>mais</strong> <% else %> <a href="mais.asp?categoria=<%=exe("categoria")%>&id=<%=exe("id")%>"><strong><%=fonte01%>mais</strong></a> <%end if%>

não seria assim? <%if exe("foto") = "" then <strong><%=fonte01%>mais</strong> else <a href="mais.asp?categoria=<%=exe("categoria")%>&id=<%=exe("id")%>"><strong><%=fonte01%>mais</strong></a> end if%>

2 opções: 1 - Crie um campo formula com o seguinte código em Crystal Sintax: IIf({Tabela.Contato} = 'C', {Tabela.Pagamento}, 0) e depois faça a soma desse campo. 2 - Crie um Running Total Field q seja a soma do campo Pagamento. Na opção Evaluate ponha Use a formula. clique no botao com o desenhinho de um lapis q vai ficar habilitado e ponha a seguinte formula em Crystal Sintax: {Tabela.Contato} = 'C'

Select Campo, Count(Campo) as Conta from Tabela Group By Campo onde o conta der mais q 1 é porque tem valor repetido.

seu pc é antigo? se for pode ser pouca memoria, já tive esse problema. você deve ter pelo menos 32 megas de RAM pra instalar o 98.

não da certo porque? da erro? explica direito. você tem q fazer assim: strSql = "Delete from [0026]" cn.Execute strSql