Ir para conteúdo
Fórum Script Brasil

Jotace_TDS

Membros
  • Total de itens

    7
  • Registro em

  • Última visita

Tudo que Jotace_TDS postou

  1. Bom dia galera Estou tentando fazer uma conexão com banco de dados access 2002 mais sempre aparece esse erro não sei mais o que alterar alguém pode me ajudar segue código e erro abaixo: “Nome da fonte de dados não encontrado e nenhum driver padrão especificado” Option Explicit Global cn As ADODB.Connection Global rs As ADODB.Recordset Private Sub Main() Dim strArquivo As String Dim strLocal As String Dim ConectaAccess As String Load FrmDDD FrmDDD.Show DoEvents Set cn = New ADODB.Connection Set rs = New ADODB.Recordset strArquivo = "Dados.mdb" strLocal = App.Path Set cn = CreateObject("ADODB.Connection") ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};""Dbq=" & strArquivo & ";""DefaultDir=" & strLocal & ";""Uid=Admin;Pwd=;" cn.Open End Sub
  2. Bom dia a todos, Estou precisando desenvolver em minha aplicação(VB6) uma rotina com envio de email com anexo alguém já fez ou sabe como devo seguir. Obrigado
  3. BOA TARDE GALERA... alguém CONHECE UMA FUNÇÃO QUE RETORNAR A CONFIGURAÇÃO DO WINDOS INSTALADO NA MAQUINA ( SE É 32 OU 64 BITS ) ??? POIS TENHO QUE LEVANTAR ESSA INFORMAÇÃO PRA CRIAR UM IF. AGRADESÇO DESDE já...
  4. Boa tarde galera. Sera que alguém pode me ajudar, reparei que de um tempo pra cá nos programas clientes quando tento exportar um relatorio para formato PDF, simplismente não aparece a caixa de dialogo para escolher o destino do arquivo e não grava nenhum arquivo. já se eu instalar o Crystal 8.5 na maquina cliente já consigo exportar... já tentei reinstalar as dll mais nada se alguém já passou por isso e tiver uma luz Obrigado
  5. Me desculpe amigo você esta correto errei no modo de demostrar o select o correto ficaria... Select campo1, campo2, campo3 From Tabela Where campo1 = 'S' HAVING campo2 + campo3 > 0 Falha nossa ai...valeu
  6. Boa Tarde Fulvio No caso do campo foi só o erro de digitação mesmo, no caso percebi que essa sintaxe no sqlserver não da erro mais não funciona, consegui fazer o select usando a clausula HAVING Select campo1, campo2, campo3 From Tabela Where campo1 = 'S' HAVING campo1 + campo2 + campo 3 > 0 Agradesço a ajuda e fica a dica se algum passar pelo mesmo problema... Obrigado
  7. Opa Bom dia galera alguém pode me ajudar estou fazendo uma consulta e gostaria que as linhas em zero não aparecessem tendei a seguinte sintaxe: select campo1, campo2, campo3 From Tabela Where campo1 + campo2 + campo 3 > 0 Ele não me da erro mas tb não me traz registro algum...alguém sabe como posso fazer essa consulta. obrigado
×
×
  • Criar Novo...