wet

Senhores bom dia. Creio que não seja muito difilcil mas não sei como resolver, preciso colocar uma solicitação de senha para um determinado campo, mas não gostaria de criar um novo form com o campo maskedit. Gostaria de usar o Inputbox por exemplo mas com mascara na digitação, para que ninguém identifique o que esta sendo digitado, por exemplo ******. Alguém poderia me dar uma luz? Muito obrigado.

Olá amigo, não sei se isso ajudaria. Declare @Posicao Int Select @Posicao = CharIndex('A','COMPRADA') --Resultado = 6 Select CharIndex('A',Substring('COMPRADA',@Posicao-1,3)) --Resultado = 2

Olá amigos bom dia. Preciso de uma ajuda, preciso encontrar em uma string com 4000 caractares mais ou menos um código. Por exemplo MODELO: XYZMD0115, este código após a palavra modelo pode ser diferente, então minha referencia é a palavra MODELO. Então estou usando o seguinte script. --Seleciono a posição inicial Set @Posicao = PATINDEX('%MODELO%',@cTexto) Observei que ao final tem ENTER, usei isso para selcionar o final. Set @Fim = PATINDEX(Char(13),@cTexto) O problema é que existe vários ENTER , gostaria de pegar apenas o primeiro após a palavra MODELO. Para fazer o seguinte Set @Resultado = Substring(@cTexto,@Posicao,@Fim) alguém sabe como faço? Obrigado.

Senhores. bom dia. Instalamos um novo servidor para testes, nele tem o Windows Server 2003 R2 e SQL 2000. Após instalação, acessei o Enterprise Manager no próprio servidor e fiz a conexão no SQL Server Group normalmente. fui na minha estação de trabalho e tento no Enterprise Manager a mesma conexão e me apresenta o erro mencionado no titulo. Já verifiquei o Firewall esta ok. Espero que possam me ajudar. Obrigado.

Olá amigos bom dia. Preciso de um help. Na verdade, precisaria de um arquivo texto colocar em um excel. Então, achei melhor jogar em uma tabela MDB para facilitar os calculos que deverão ir para o excel. Só que o texto não delimitado por espaços ou vigulas, é uma cópia dos recibos da empresa. Desta forma precisarei achar os campos dentro do texto, então gostaria de ler linha a linha. Fiz o seguinte comando.: Private Sub Command1_Click() Dim s As String Dim f As Integer f = FreeFile 'Pega o numero do arquivo a ser aberto caso tenha mais de um arquivo aberto. Open Text1.Text For Input As #f ' abre o arquivo Text1.Text = "" Do Until EOF(f) Line Input #f, s Text2.Text = Text1.Text + s Loop Close #f ' fecha o arquivo 'ls_Grava End Sub Mas ele traz como se fosse apenas uma linha, abri o arquivo em um editor de texto Editplus e nele aparece várias linha com a quebra de linha com o chr(13) Enter, o VB esta entendendo apenas uma linha. Desta forma fica complicado pegar o que preciso. Veja parte do arquivo como aparece. +--------------------------------------------------------------------------------------------------------------------+ | Folha de Pagamento 03/02/2012 11:58:15 | | Apelido: 02 Razao Social: XXXXXXXXXXXXXXXXXXXXX Pag:1| |---------------------------------------------------------------------------------------------------------------------| | C.N.P.J./CEI:XXXXXXXXXXX Inscricao: xxxxxx Periodo de: 01/01/2012 a 31/01/2012| | Endereco:xxxxxxxxxxxxxxxxxx Bairro:xxxxxxxxxxxxxxx Cidade:xxxxxxxxxxxxxxxx UF: SP | +--------------------------------------------------------------------------------------------------------------------+ +--------------------------------------------------------------------------------------------------------------------+ | Setor: 9 - RETIFICA | +---------------------------------------------------------------------------------------------------------------------+ Neste excemplo preciso pegar apenas o Setor e colocar 9 na minha tabela, e ai por diante. Amigos, não sei se consegui me expressar corretamente. Não dever passar apenas uma vez no laço e retornando no text2 o texto completo, preciso que ele monte linha a linha. linha 1 = +----------------------------------------------------------------------------------------------+ linha 2 = | Folha de Pagamento 03/02/2012 11:58:15 | linha 3 = +----------------------------------------------------------------------------------------------+ linha 4 = | Setor: 9 - RETIFICA | E desta forma eu possa quando no laço passar a linha 4 eu pegar na posição logo após a palavra Setor, pegue o numero 9 e grave na tabela mdb, e assim por diante. obrigado a todos.

Claiton desculpe a demora mas funcionou. Muito obrigado.

Amigos preciso de ajuda. Temos uma programa em VB6 com banco de dados SQL2000, existe uma DLL de Conexão. No XP roda normalmente, colocamos uma maquina com WIndows 7 quando fomos instalar apresentou uma mensagem que não conseguia registrar a DLL MFC40.dll, desabilitei o UAC rodei como administrador e nada, então comecei a debugar o sistema, vi que na conexão passa normalmente, mas o resultado aparece sem a senha, ou seja na string de conexão coloco usuário e senha, após o comando Open o resultado aprece sem a senha, então tudo que utiliza aparece que não consegue conxão por falta da senha. Segue comando.: strCnn = "Provider=SQLOLEDB;" & _ "Data Source=" & objLgPub.Servidor & ";" & _ "Initial Catalog=" & dbName & ";" & _ "User ID=" & objLgPub.UsuarioSQL & ";" & _ "PassWord=" & objLgPub.SenhaSQL & ";" Vg_Cn.Open strCnn No XP o resultado do Vg_Cn é: Provider=SQLOLEDB.1;Password=xxxx;User ID=xxx;Initial Catalog=Seguranca;Data Source=192.168.0.XX;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XXXX;Use Encryption for Data=False;Tag with column collation when possible=False Já no Win7 é: Provider=SQLOLEDB.1;User ID=xxx;Initial Catalog=Seguranca;Data Source=192.168.0.XX;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XX;Use Encryption for Data=False;Tag with column collation when possible=False; Ou seja a senha sumiu, e com isso o que depende deste resultado diz que não consegue se logar. alguém poderia me ajudar? Obrigado.

Olá a todos. Então, aqui na empresa temos um sistema em vb6 com banco de dados em SQL e, precisamos fazer pagamentos no site da prefeitura, preencher aquelas GARES na web, e isto tem sido feito manualmente. Meu gerente disse ter trabalhando em uma empresa que tinha um “Robozinho”, é assim que ele chama que preenchia automaticamente com os dados do sistema. Para que possa entender, é como se tivesse aqueles cadastros no site e fizéssemos uma query na tabela usuário e preenchesse o formulário da web automaticamente. Saberiam me dizer como posso fazer isso? É possível? Muito obrigado pela atenção.

Olá, o logotipo esta em uma pasta, no banco de dados "Access", gravo apenas o caminho.

Boa tarde amigos. Tenho um projeto em VB6 uso Crystal 8.0, no cadastro de clientes posso incluir o Logotipo da Empresa, gostaria desse no relatório. Como posso fazer ? Obrigado.