kuroi

sim, é porque você abre uma aspa no codigo do usuario e não fecha. o certo deve ser assim: "INSERT INTO Usuarios " & _ "(CodUsuario, NomeUsuario, Endereco, Cidade, " & _ "Estado, CEP, Telefone) VALUES ('" & _ txtCodUsuario.Text & "','" & _ txtNomeUsuario.Text & "','" & _ txtEndereco.Text & "','" & _ txtCidade.Text & "','" & _ txtEstado.Text & "','" & _ txtCEP.Text & "','" & _ txtTelefone.Text & "')"[/code] veja se funciona. no caso de o campo ser numerico, então tire as duas aspas

arrastar e soltar acredito que seja possivel sim com os eventos OLEDragDrop, etc.

realmente tem uns problemas no seu case. 1º faltou o END no final. 2º teste não é necessariamente uma variavel, normalmente se quer fazer o case baseado num campo do banco, então na verdade é ele que entra no lugar do teste. no seu caso, por exemplo, poderia ser o campo t_movimentacao.crediario. mas na verdade, no seu caso, você não deve por nd ai, porque so se usa o campo no case quando se quer comparar usando apenas o operador =. no seu caso você quer usar >=, então não serve. exemplo, você poderia fazer assim: (case t_movimentacao.crediario when "0" then "5" when "5" then "85" end)[/code] esse exemplo acima seria o mesmo que [code](case when t_movimentacao.crediario = "0" then "5" when t_movimentacao.crediario = 5 then "85" end) mas o que você quer, acho que seria isso: (case when t_movimentacao.crediario = "0" then "5" when t_movimentacao.crediario >= 5 then "85" end)[/code] 3º mas na verdade, esse where vai ficar sem sentido, a não ser que o case retornasse um valor verdadeiro ou falso. exemplo, se o seu select fiasse assim: [code]where t_controle_pagamento.cancelado = 0 and t_loja.status=1 and (case when t_movimentacao.crediario = "0" then "5" when t_movimentacao.crediario >= 5 then "85" end) o resultado o case seria 5 ou 85, certo?? se a gente resolvesse o case, o select final ficaria, por exemplo, assim: where t_controle_pagamento.cancelado = 0 and t_loja.status=1 and "5")[/code] ou seja, sem sentido nenhum, e ainda retornaria erro. o correto seria comparar o case com alguma coisa. exemplo: [code]where t_controle_pagamento.cancelado = 0 and t_loja.status=1 and (case when t_movimentacao.crediario = "0" then "5" when t_movimentacao.crediario >= 5 then "85" end) = "5" veja se entendeu, qualquer coisa posta aí

nessa linha: sql = "Select * From suptec Where codigo='"&Vid&"'" a variavel Vid guarda um valor que não existe no banco. ou seja ele não encontrou nd e deu erro. você tem fazer um teste pra ver se existe usando a propriedade EOF do recordset.

é pra funcionar normal, que codigo você está usando??

se for o do form, é pela propriedade Icon. se for o icone da aplicacao, entre em Project -> Properties e la tem uma opcao pra mudar o icone.

não entendi esse seu for. da data inicail ate a final... onde isso tem relacao com o recordset?? não tenho certeza do que você quer fazr, mas acho que poderia ser assim: Rs.MoveFirst ' envia para o primeiro registro Do While not rs.Eof vQuantia = vQuantia + rs!Quantiagasta rs.movenext Loop label5.caption = vQuantia[/code] ou melhor ainda, você pode fazer um select que já soma direto. tipo assim: [code]Select Sum(Campo) as Soma From Tabela Where {Condição} ai pra pegar do recordset nesse exemplo, você faria assim: rs!Soma veja se ajuda, qualquer coisa poste. e presta atenca também pra não postar mais no subforum de tutoriais... porque ele é so pra tutoriais entende??

movido pra vba

vixe nem sei o que é esse icewos, mas ele não tem um help, um readme.txt alguma coisa?? se der pra acessa-lo via linha de comando, você deve achar la

não sei porque não mexo com datareport. mas o que acontece?? ele volta algum erro??

o que é dtaEmployment?? é um datacontrol?? você deve por num loop, acho que seria tipo assim: cont = 0 With dtaEmployment 'Search in Name field for person wanted .Recordset.MoveFirst Do While Not .Recordset.EOF .Recordset.FindNext "Name='" & person & "'" 'we found our person cont = cont + 1 Loop End With If cont = 0 Then Beep: Exit Sub 'mostra o nº de vezes que aparece o nome Text1.Text = cont[/code]

cara isso deve ser alguma pau da impressora. você pode imprimir direto usando o objeto Printer. faca uma busca por ai, no forum mesmo pode ser

hm... vo mover pra mysql que acho que tem mais a ver com o assunto

se você cria uma variavel variant e não atribui nd pra ela, ela não é absolutamente nd. ou seja, ela não possui nenhum propriedade ou metodo chamado DeviceName, a não ser que você especifique um tipo ou uma classe pra ela. exemplo: Set impressora = New XXXXXXX você tem uma linha desse tipo em alguma outra parte do seu codigo?? e mesmo que você faca isso, não tenho certeza de que isso: impressora = impressora.DeviceName va funcionar, já que como você especifica o tipo dela, não sei se funciona você atribuir um valor de outro tipo (no caso, acredito que string). nesse caso você precisaria de otra variavel.

comente a linha On Error Go To TrataErros so pra testar o debug e veja onde esta o erro.

é so adicionar o module (clique com o btao direito no projeto e selecione Add -> Module). no general do module, delcare as variaveis como publicas: Public s As String

mano acho que assim como eu, ninguém vai entender nd disso que ce está falando. posta o codigo que você está usando beleza??

se fosse possivel copiar, também queria saber!! mas acredito que não, pois o visual basic não permite heranca. senao o esquema vai ser você criar propriedade por propriedade igualzinhas as já existentes na combobox

deu certo, valeu

talvez esse where na retorne nd. aperta F9 nessa linha e rode o programa. quando chegar ai, copie o select todo com vai ficar e tenta executar no banco pra ver o que da

sera que o campo aceita casa decimal?? você criou como inteiro??

http://scriptbrasil.com.br/forum/index.php?showtopic=150486

o esquema é você gravar no formato 50.73, mas posta o codigo que você usa

não sei, cara. mas se você descobri, passa pra nos, que eu ponho num tópico pendurado no forum que mta gente pede, e realmente é dificil achar alguma coisa boa por ai. no google você deve encontrar, mas normalmente é coisa bem basica. no site do maccorati http://www.macoratti.net também tem alguma coisa

sei que por os links principais da pagina dentro de uma lista melhora o desempenho do site na busca no google. que tipo, ele olha dentro das li o texto de dentro e compara com o digitado. se ele encontra o texto é porque o seu site provavelmente tem conteudo sobre o texto da li. certo?? mas tenho que separar varias li por |. meu codigo ficou assim: <ul> <li><a>cabos e controles</a> | </li> <li><a>caixas de som</a> | </li> <li><a>capas e braçadeiras</a> | </li> <li><a>carregadores e baterias</a> | </li> <li><a>fones de ouvido</a> | </li> <li><a>gravadores e microfones</a> | </li> <li><a>ipod</a> | </li> <li><a>transmissores e receptores</a> | </li> </ul>[/code] (ainda tenho que por os links da tag a). sera que os | vao atrapalhar na hora de buscar no google?? por que, por exemplo, em vez de ele encontrar escrito "ipod", vai encontrar "ipod | ". sera que o google comprar o texto todo da li, e se não bater ele despreza, ou sera que ele vai pegar??