Luiz Humberto

Como devo fazer para colocar icone nos itens da ListView? Obrigado.

Faltou uma variavel receber este resultado. Então ficará assim: Qtde=QtdeString("TESTE","T")

Public Function QtdeString(MyString As String, Ocorrencia As String) As Long Dim Contador As Long Dim AuxLocal As Long Dim AuxString As Long Dim Aux As Long AuxLocal = 1 Contador = 0 AuxString = 1 Aux = 1 While AuxLocal <> 0 AuxLocal = InStr(Aux, MyString, Ocorrencia) Aux = AuxLocal + Len(Ocorrencia) If AuxLocal <> 0 Then Contador = Contador + 1 End If Wend QtdeString = Contador 'Return Contador End Function Para chamar faça assim: QtdeString("TESTE","T") Irá retornar 2. Precisando estamos aí

http://progdan.no-ip.org:25000/apostilas/L...%20Programacao/ Muito bom, vale a pena conferir.

So acrecentar mais uma coisa, como passar parametros usando uma instrução SQL, parametro e forumla.

Gostaria de colocar o designer do relatório em meu projeto, sendo que o relatorio ira aparecer dentro de um form. Outra coisa é que não estou criando DSN para acessar minha base de dados, estou fazendo via codigo estou usando o SqlServer como vou passar isso para o crystal. Sei que no access tem como passo o caminho do BD, mas no SqlServer não sei como fazer. Desde já agradeço.

tem que ser de forma dinamica sem dar o refresh na pagina.

Tenho 2 campos texto o que for digitado no campo vai ser colocado na tabela, supondo que digitei 10 então minha então vai 10 para minha linha da tabela e se eu digitar 10, minha linha da tabela passa para 20.

Como faz akela parada de modificar dinamicamente uma celula da tabela com os valores certos quando se altera a qtd do produto?

estou com um site hospedado no brinkster e gostaria de fazer um redirecionameto, alguém pode me indicar um site que faz isto e dê a opção para escolher. Tipo www.oquequero.cjb.net. No www.cjb.net não consegui escolher. valeu

Supondo que este bat é para fazer backup: Então hoje eu faço um backup de 3 arquivos, amanhã só de 2 arquivos sendo que são os mesmos de ontem(diferem só no tamanho), mas como não copiou 3 então o que não teve alteração teria que ser deletado. Entendeu?

Usando o comando xcopy, supondo que eu tenha dois arquivos na pasta de destino, mas a pasta de origem só possuem um arquivo, então quando eu copiar para a pasta de destino só um arquivo deve ficar,qual parametro devo passar para que isso aconteça. valeu

Graymalkin, Obrigado pela ajuda, só mais uma pergunta como seria com esta opção "outra tabela feita só para isso" valeu

http://www.vbmania.com.br/vbmcategory.php?varType=5

Alguém tem icones que combina com cadastro de produtos, cadastro de fornecedores e compras de produtos. valeu

Poderia me dar mais detalhes sobre este método?

Estou desenvolvendo um sitema que vai ser usando em rede, estou com uma dúvida no seguinte: Tenho um form chamado compras e nele contem os itens da compras, sendo que no Banco de dados(estou usando SqlServer2000) possui uma tabela compra e outra item_compra. Sendo que quando o usuário clica no botão cadastrar primeiro faço a inserção nos dados da tabela compra e depois faço uma função para retornar o ultimo codidgo para inserir então na tabela item_compra, fiz isto quando o sistema estava sendo construido agora que ele vai ser usado por vários usuarios isto geraria inconsistencia nos meus dados. Dim ConnADO As ADODB.Connection Set ConnADO = New ADODB.Connection ConnADO.Open StrConn 'String de conexão com o banco ConnADO.BeginTrans SQL_Query = " Insert Into Compra(Cod_Fornecedor,Cod_Usuario,Valor_Nota_Fiscal," _ & " Serie_Nota_Fiscal,Numero_Nota_Fiscal,Data_Entrega)" _ & " Values(" & ComboFornecedor.ItemData(ComboFornecedor.ListIndex) & "," _ & " " & CodigoUsuario & ",'" & MaskVlrNota.Text & "'," _ & " '" & TxtSNotaFiscal & "','" & TxtNNotaFiscal.Text & "'," _ & " '" & Fix(CDbl(CDate(MaskDataEntrega))) & "')" ConnADO.Execute SQL_Query Não estou sabendo como pegar o codigo desta transção(Codigo da Compra) Alguém pode sugirir como devo proceder.

Lembre-se isto acontece, porque você está usando o banco de dados access, caso estivesse usando o SqlServer já não seria necessário fazer esta verificação. Precisando posta aí.

O Erro seria com relação ao campo da tabela é Nomecliente e não CodCliente, só vi isto quando já tinha postado a mensagem. Falows

Erro:

Então fica assim: If Not tabela_cli.EOF Then While Not tabela_cli.EOF Nome= UCase(tabela_cli("CódCliente")) 'Verificação se possui a cidade cadastrada If (UCase(Trim(TxtCidade.Text)) = VerificaCidade) Then MsgBox "Cidade Já Cadastrada !!" Exit Sub end if .MoveNext Wend end if PS:Qualquer dúvida me avise.

Opá, Acho que seria melhor fazer um exemplo. Dim ConnADO As ADODB.Connection Dim rstADO As ADODB.Recordset Set rstADO = New ADODB.Recordset Set ConnADO = New ADODB.Connection ConnADO.Open StrConn With rstADO strCommando = "SELECT NomeCidade FROM Cidade" .Open strCommando, ConnADO If Not rstADO.EOF Then While Not rstADO.EOF VerificaCidade = UCase(!NomeCidade) 'Verificação se possui a cidade cadastrada If (UCase(Trim(TxtCidade.Text)) = VerificaCidade) Then MsgBox "Cidade Já Cadastrada !!" Exit Sub end if .MoveNext Wend End If End With Onde o rstADO é um RecordSet, ConADO é um Connection e StrCon é minha string de conexão com o banco PS:Qualquer dúvida me avise.

Steven, você pode fazer assim quando for pesquisar, coloca a variavel que vai realizar a pesquisa em maiusculo(Ucase) ou em minusculo(Lcase), a partir disto você faz sua pesquisa. Ou então você pode cadastrar todos os nomes em maiusculo ou em minusculo, e quando for pesquisar coloque a variavel de acordo com a regra que você estabeleceu.

Alguém poderia me passar onde consigo o driver ODBC do Postgre

Instala o mdac 2.8 que irá resolver seu problema.