Fabson

Dim Arquivo as String Arquivo = "INSERT Into TBConta (con_codigo, con_agencia, ban_codigo, con_conta, con_nome,gravadopor, con_percentual_repasse, loc_codigo, con_dia_repasse, con_emite_cheque) Arquivo = Arquivo & "Values(" & Proximo_Codigo & ",'" & txtAgencia & "'," & txtBanco & ",'" & txtConta & "','" & txtNomeFavoravel & "','" & GeralUsuario & " " & Date & " " & Time & "'," & IIf(Len(Trim(mbPercentual)) > 0, Replace(Format(mbPercentual, "########0.00"), ",", "."), 0) & "," & txtCodigo & "," & txtDiaRepasse & "," & ch_Cheque & ")" BancoDados.Execute Arquivo essa tabela TBConta está relacionada com a tabela TBBanco, o que acontence no campo ban_codigo eu não preencher, que no caso seria o campo txtBanco, ele simplesmente não grava o registro na TBConta e não retorna nenhum erro!

relacionamento um-para-muitos

olá, tenho uma instrução SQL de inclusão de registros: INSERT INTO TBCadastro (cad_numero, cad_nome, tip_codigo) Values (1,'JOSE SILVA',10) acontece que o campo tip_codigo está relacionado com a tabela TBTipos, e no exemplo que eu citei não existe o código 10 cadastrado na tabela TBTipos, ai o registro do 'JOSE SILVA' não é gravado, e o problema maior é que não dá nenhum erro. alguém tem alguma idéia de como posso resolver isso? desde já agradeço!

existe o comando SQL DROP para excluir uma tabela DROP TABLE nometabela para excluir um banco DROP DATABASE nomebanco

valeu, vou testar ...

olá, estou utilizando o conectiva 8, gostaria de programar uma rotina para que todos os dias as 19:00 o conectiva compactasse alguns arquivos e gravasse. alguém tem algum exemplo de como posso fazer isso? desde já agradeço!

Olá, estou precisando utilizar o componente TreeView, alguém tem algum exemplo simples pra me ajudar? ou indicar algum site. desde já agradeço!

consegui resolver, coloquei um componente ADOConnection e os ADOQuery e ADOTable conectam no banco através dele. Ai deu certo ... Até a próxima dúvida!

tem uma aplicacao Delphi 6 que usa access 2000, roda legal no win98. Agora atualizei minha máquina para winxp e a aplicação parou de rodar. Quando executo o programa, e ele tenta abrir a tabela TBClassificacao ocorre o seguinte erro: Project PRJ_Frota.exe raised exception class EDatabaseError with message 'A component named idxTBClassificacaoGrupo already exists'. Process stopped. Use Step or Run to continue. idxTBClassificacaoGrupo é um índice composto pelos campos codigogrupo + descricaogrupo. eu percebi que ele não abre indices compostos, os indices simples (só um campo) ele abre sem problemas. será que tenho que fazer algum tipo de configuração do BDE ? se alguém puder me ajudar agradeço

beleza ... obrigado, vou fazer o teste !

gostei da tela! quais componentes você utilizou? onde podemos encontrar? Fabson!

olá pessoal! Tenho um banco de dados access onde tenho tabela clientes, fornecedores e funcionários. Em cada uma dessas tabelas eu tenho o campo e-mail, ou seja, na tabela clientes tenho o campo e-mail, na tabela fornecedores e também na tabela funcionários. Quero fazer uma consulta com o campo e-mail e nome de todas as tabelas, é possível? desde já agradeço ... !

Pó fiquei curioso pra saber ... o que é isso?

vixih !!! ainda não consegui !!! tá difícil !!!

Public Function ValidarCPF(CPF As String) As Boolean Dim Soma As Integer Dim Resto As Integer Dim i As Integer 'Valida argumento CPF = Mid(CPF, 1, 3) & Mid(CPF, 5, 3) & Mid(CPF, 9, 3) & Mid(CPF, 13, 2) If Len(Trim(CPF)) <> 11 Then ValidarCPF = False Exit Function End If Soma = 0 For i = 1 To 9 Soma = Soma + Val(Mid$(CPF, i, 1)) * (11 - i) Next i If Soma = 0 Then ValidarCPF = False Exit Function End If Resto = 11 - (Soma - (Int(Soma / 11) * 11)) If Resto = 10 Or Resto = 11 Then Resto = 0 If Resto <> Val(Mid$(CPF, 10, 1)) Then ValidarCPF = False Exit Function End If Soma = 0 For i = 1 To 10 Soma = Soma + Val(Mid$(CPF, i, 1)) * (12 - i) Next i Resto = 11 - (Soma - (Int(Soma / 11) * 11)) If Resto = 10 Or Resto = 11 Then Resto = 0 If Resto <> Val(Mid$(CPF, 11, 1)) Then ValidarCPF = False Exit Function End If ValidarCPF = True End Function '--------------------------------------------------------------------------------- Public Function ValidarCNPJ(cgc As String) As Boolean Dim retorno, a, j, i, d1, d2, pos Dim ncgc, Numero As String For i = 1 To 18 Numero = Mid(cgc, i, 1) pos = InStr("1234567890", Numero) If pos <> 0 Then ncgc = (ncgc + Numero) Next i cgc = ncgc If Len(cgc) = 8 And Val(cgc) > 0 Then a = 0 j = 0 d1 = 0 For i = 1 To 7 a = Val(Mid(cgc, i, 1)) If (i Mod 2) <> 0 Then a = a * 2 End If If a > 9 Then j = j + Int(a / 10) + (a Mod 10) Else j = j + a End If Next i d1 = IIf((j Mod 10) <> 0, 10 - (j Mod 10), 0) If d1 = Val(Mid(cgc, 8, 1)) Then ValidarCNPJ = True Else ValidarCNPJ = False End If Else If Len(cgc) = 14 And Val(cgc) > 0 Then a = 0 i = 0 d1 = 0 d2 = 0 j = 5 For i = 1 To 12 Step 1 a = a + (Val(Mid(cgc, i, 1)) * j) j = IIf(j > 2, j - 1, 9) Next i a = a Mod 11 d1 = IIf(a > 1, 11 - a, 0) a = 0 i = 0 j = 6 For i = 1 To 13 Step 1 a = a + (Val(Mid(cgc, i, 1)) * j) j = IIf(j > 2, j - 1, 9) Next i a = a Mod 11 d2 = IIf(a > 1, 11 - a, 0) If (d1 = Val(Mid(cgc, 13, 1)) And d2 = Val(Mid(cgc, 14, 1))) Then ValidarCNPJ = True Else ValidarCNPJ = False End If Else ValidarCNPJ = False End If End If End Function até mais

olá, tenho uma rotina no VB6 que configura o tamalho do papel na impressora, Printer.paper = 256 e depois é só colocar a largura e altura desejada usando printer.width e printer.heigth só que agora eu troque de win98 para win xp pro e essa função não funciona mais. alguém sabe alguma outra forma de configurar o tamanho do papel via programação? desde já obrigado

olá! Você deve atualizar a Label após jogar o valor. ex: label1.capiton = valor_porcentagem label1.Refresh espero ter ajudado

olá, tenho uma rotina que usa o comando print #1, que imprime diretamenta na impressora, só que não impressão que contem acentos não sai, existe alguma forma de resolver isso? desde já obrigado

boa idéia, vou fazer esse teste, obrigado!

como posso via programação testar um caminho se é válido ou não ex. o caminho \\servidor\bancodados como posso saber se existe ou não desde já agradeço fabson

obrigado ai pela atenção já fiz logon com outro usuario, já conferi a configuração com outros micros que estão funcionando ... acredito que terei que formatar e instalar novamente

a idéia é: o RND não sorteia letras e sim numeros, o comando Int(RND * 26) sorteia um numero de 1 a 26. você sabe que cada letra tem um codigo ASC, por exemplo a letra "A" o codigo ASC é 65 a "B" é 66 e sucessivamente ... então eu sorteio um numero entre 1 e 26 que é a quantidade do alfabeto e somo 65 e transformo em letra através do comando chr(). imagine que você executou o programa e ele sorteou o numero 10 + 65 = 75 o ASC de 75 é "K" se ele sortear o numero 4 + 65 = 69 que é a letra E e assim ele faz por 6 vezes e aguarda na string senha. se fosse fazer passo a passo ficaria assim: Private Sub gerar_senha_Click() Dim i As Integer Dim numero_sorteado as integer Dim Senha As String Senha = "" For i = 1 To 6 Randomize numero_sorteado = int(Rnd*26) numero_sorteado = numero_sorteado + 65 Senha = Senha + Chr(numero_sorteado) Next i MsgBox Senha End Sub

sim, estou ligado a um domínio

qual banco de dados você usa ? mas eu aconselho você realizar as operações em banco de dados via SQL que já faz todo esse trabalho, não compensa fazer esse gerenciamento na "unha".

para imprimir direto na impressora local Open "LPT1" For Output As #1 Print #1, Tab(10); "posiciona na coluna 10 e imprime" close #1 para imprimir na impressora da rede Open "\\maquina\epson" For Output As #1 Print #1, Tab(10); "posiciona na coluna 10 e imprime" close #1