Danleonhart

Exato Kuroi... Uso dessa maneira no Access 2003/2007 e funciona de boa...como falei, estava a fazer testes no SQL Compact Edition e o erro persistiu...então usei o mesmo script no SQL Server 2008 com o Tipo do Campo em "Image", e foi 100% ! Então me pergunto, de onde veio o projeto SQL Compact Edition ??? acho que não é da Micosofre <_< pois uma query funciona em um, e no outro não !? :blink: Obrigado pelas dicas, foi de grande ajuda !

Olá Gilberto ! Supondo que os Mt's são MonthViews você pode fazer assim: Sub DefMeses() Dim MP As Variant, MA As Variant, MQV As Variant MA = Month(Now) ' Mês Atual MP = MA - 1 MQV = MA + 1 If MA = 1 Then MP = 12 ElseIf MA = 12 Then MQV = 1 End If Mt1.Month = MP Mt2.Month = MA Mt3.Month = MQV End Sub Basta por a Sub no Form_Load :rolleyes:

Valeu Kuroi ! Tentei salvar no Campo com Tipo "nText" no SQL Compact Edition e não deu certo...apresenta a mensagem: " The command contained one or more errors. [,,,,] " No script está assim: Dim T As New Stream T.Type = adTypeBinary T.Open T.LoadFromFile CamFT '<== Variável com o caminho do arquivo... X = T.Read T.Close Abb ' <== Variável que abre a conexão... Inserir = "insert into Dados(Foto)" & "Values('" & X & "')" Con.Execute Inserir Con.Close Vou tentar no SQL Server...minha versão é a 2008.

Seguinte: Qual o Tipo de Campo SQL que suporta mais caractéres ? preciso de um que suporte aprox. 10.000 caractéres. Que tipo de campo suporta Dados Binários ? no Access é o BLOB... e no SQL ??? Usando o TextStream convertí um arquivo em dados binários, usei a função Len() para verificar a quantidade de caractéres...foi um total de 8.297. Quero guardá-lo no BD (na verdade é SQL Compact Edition, mas dicas com o SQL Server ajudará :D), por isso as perguntas :huh: Irei usar o VB6 para interagir com o BD.

Fiz algumas tentativas...coloquei no Registro da maneira que diz no link...mas não funcionou... o que acontece é que fica o mensagem dizendo que está verificando se existem arquivos instalados...daí não sai disso <_< já troquei até o arquivo "Command.com" mas também sem exito.

WinXP SP 3...

Pessoal... Alguém já passou por isso ? Ao instalar o VB-6 está dando o seguinte erro: "SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers. Formato inválido do driver de dispositivo virtual no Registro. Escolha 'Fechar' para finalizar o aplicativo. " Mostra dois botões de opção: "Fechar" e "Ignorar" Foto (Tentei colocar a foto mas não deu certo... <_<) E após isto trava tudo <_< , e tenho de finalizar a instalação. :angry:

Tem como pegar as letras "acentuadas" com esse método ? tipo: "á, ç, ê" :unsure:

Estou só iniciando os testes então: Dim N As Integer For N = 0 To 255 If GetAsyncKeyState(N) Then MsgBox Chr(N) Exit For End If Next Está retornando vazio ou caracteres estranhos tipo " ○ " :blink:

Pessoal... Alguém já usou a API "GetAsyncKeyState" :mellow: ? Estou a fazer uns testes para configurar minha aplicação para que mesmo minimizada ou oculta ao teclar determinada tecla seja trazida a aplicação para primeiro plano. Mas testando esta API ela só está retornando "1" e "0" ... :wacko: Se fosse com o "Foco" na aplicação, não precisaria da API...pois com um "Select Case KeyAscii" no evento KeyPress do Form funcionou de boa...mas com a aplicação minimizada ou então oculta não rola <_<

Tem alguma maneira de ao excluir todos os dados do banco zerar a coluna de auto-numeração ? :blink:

Nenhuma dica ?! :unsure:

É assim... 1-Com o FSO localizo e carrego o arquivo texto (.txt) em um TextBox; 2-Em outro TextBox digito a palavra que estou procurando no arquivo TXT 3-Se a palavra não existir, nada ocorre...mas se existir, a mesma fica selecionada em destaque no TextBox... Localizar e carregar o arquivo já fiz... já elaborei tambem a função para localizar a palavra...só me falta destacar no TextBox... Agora tem um detalhe no exemplo que você citou, se a palavra for composta, será que vai funcionar com esta dica do "SelStart & SelLength" ? :blink:

Aê Kuroi... Conseguí fazer com o InStr()... usando o "Do Until" ele retorna até a "Linha" onde está a "Palavra" procurada...só gostaria de deixá-la "selecionada" no TextBox... Acho que não irei conseguir com o "TextBox", só usando o RichTextBox mesmo :mellow: Tem alguma idéia de como fazer ?! :unsure:

Bacana esse exemplo :) API é Pau ! é interessante adicionar opções do "Botão Direito" no exemplo... vou tentar aqui ;)

Você pode começar lendo estas dicas: http://www.macoratti.net/filesyst.htm http://imasters.com.br/artigo/3131?cn=3131&cc=189

Já ouviu falar do FileSystemObject ? Dá uma lidinha aí: http://www.macoratti.net/filesyst.htm No seu caso, principalmente na parte "Tratamento de arquivos Texto" Tem mais uma dica boa aqui: http://imasters.com.br/artigo/3131?cn=3131&cc=189

Olá Gilberto... Segue um exemplo prático que utilizo em meus projetos...está resumido: With FGrid1 .Rows = 2 ' Definindo o número de linhas .Cols = 3 ' Definindo o número de colunas .FixedRows = 1 ' Tornando a primeira linha fixa .Rows = 1 ' Redefinindo o número das linhas .ColWidth(0) = 800 ' Definindo a largura de cada coluna .ColWidth(1) = 1800 .ColWidth(2) = 1500 .TextMatrix(0, 0) = "Código :" ' Colocando os nomes nas Colunas .TextMatrix(0, 1) = "Nome :" .TextMatrix(0, 2) = "Data :" .ColAlignment(0) = 4 ' Definindo o alinhamento da coluna End With Dá para notar que configuro as "Rows" duas vezes...isso porque o VB não aceita uma "Linha Fixa" (FixedRow) igual ou maior que o número de linhas normais (Rows)... então eu primeiro seto duas linhas, depois seto uma linha fixa, e depois torno esta como única...as demais serão incrementadas mediante seu script. Quanto aos alinhamentos de coluna existem uns 10 tipos se não me engano... Para conhece-los aperte "F2" e coloque na caixa de pesquisa: "flexAlignCenterBottom"...este é um dos tipos de alinhamentos...então serão listados os demais... VALEU ! ;)

ComboBox ou ComboList ???

Gilberto... Duas observações...em seu BD você colocou o campo "Endereço" realmente com "ç" ??? Cara, não é aconselhável... :mellow: Quanto à consulta, no final do script onde tem: WHERE Codigo = '" & lblCodigo.Caption & "'" Coloca: WHERE Codigo=" & lblCodigo.Caption Observação: O Valor que está na Label é realmente um número ? :blink:

Gilberto... Posta o código... :mellow:

Seguinte: Tenho um TreeView que vou usar para editar permissões...meu propósito é de que se o Node "pai" estiver marcado (Checked), então todos os Nodes "filhos" ficarão marcados... mas, se um dos nodes filho for desmarcado, automaticamente o node pai será desmarcado porém os outros nodes filho não sofrerão nenhuma alteração...quer estejam marcado ou não... Ah ! e se o node pai for desmarcado aí sim todos os nodes filho serão desmarcado também :) Tentei usando o "If Then", mas só parte funciona: Private Sub Tv1_Click() With Tv1 If .Nodes("Conf").Checked = True Then .Nodes("TBox").Checked = True .Nodes("Lbs").Checked = True End If If .Nodes("TBox").Checked = True Then ObjetoTBOFF Me If .Nodes("TBox").Checked = False Then ObjetoTBOn Me .Nodes("Conf").Checked = False End If If .Nodes("Lbs").Checked = True Then ObjetoLBOFF Me If .Nodes("Lbs").Checked = False Then ObjetoLBOn Me .Nodes("Conf").Checked = False End If End With End Sub Tv1 é o meu TreeView, e ObjetoLBOFF, ObjetoLBOn, ObjetoTBOFF e ObjetoTBOn são funções do meu projeto ;)

Posta o Código :rolleyes: fica mais fácil te orientar... mas pode ser assim Label1.Caption = Format(Variavel, "#,##0.00") :closedeyes:

Valeu Kuroi ! Só para complementar, usando este script não é obrigatório configurar a Relação entre as Tabelas, correto ?! Fiz assim e funcionou também... sem precisar configurar a relação entre as Tabelas: Filtro = "SELECT Tabela1.Nome,Tabela1.Cidade,Tabela2.SDPositivo,Tabela2.SDNegativo,Tabela2.SDTotal FROM Tabela1,Tabela2 WHERE Tabela1.Codigo=" & vN & " AND Tabela2.Codigo=" & vN Onde "vN" é a variável que recebe o número do código da filtragem. :closedeyes:

Valeu Kuroi ! Já tinha algumas informações sobre JOIN que peguei no site: http://www.w3schools.com/sql/sql_join_inner.asp Juntei com essas e estou entendendo a lógica... Agora se não for pedir muito, tem como postar um "exemplo" de JOIN com filtragem (WHERE) ?