Ir para conteúdo
Fórum Script Brasil

jooey

Membros
  • Total de itens

    38
  • Registro em

  • Última visita

Posts postados por jooey

  1. aqui vai...

    Private Sub Imprime()
      With mdiMARKET.crwRelat                       'com o crontrole do crystal
          On Error GoTo ErroCrystal                   'prepara para pegar erro
          .Destination = crptToWindow                           'ou CrptToPrinter
          .DataFiles  = vgDirDb$(vgDbAtual) & vgNomeDb$(vgDbAtual)
          .ReportFileName = vgDirEXE$ & "Retique.RPT"    'e o nome do relatório a ser impresso
          .WindowTitle = "Lista de Clientes"                             'título da janela
          If Not Vazio(Wfilial) Then
             If Not Vazio(Watividade) Then
                .SelectionFormula = "{Clientes.Filial}= '" & Wfilial & "'" & _
                            "and" & "{Clientes.Atividade}= '" & Watividade & "'"
             Else
                .SelectionFormula = "{Clientes.Filial}= '" & Wfilial & "'"
             End If
          Else
             If Not Vazio(Watividade) Then
                .SelectionFormula = "{Clientes.Atividade}= '" & Watividade & "'"
             Else
                .SelectionFormula = ""
             End If
                
          End If
          .Action = 1
       End With
       Exit Sub                    [/quote]

    o erro da no action...

    vlw..

  2. Ola pessoal;;;

    eu tenho sistema com bd em sql e os relatorios em crystal...

    porem, os relatorios não conseguem acessar o banco de dados...

    Estou utilizando o psdodbc.dll(ODBC)

    Se eu fizer direto do crystal ele funciona, porem dentro do programa não...

    o erro que ocorre é:

    Erroe detected by DLL

    20534

    Crystal report

    Alguém poderia me ajudar?

    vlw...ateh+

  3. Boa tarde pessoal

    Estou tentando importar uma planilha de excel para dentr do meu banco em access...

    Dim oConn As ADODB.Connection
    Dim oCmd As ADODB.Command
    Dim oRS As ADODB.Recordset
    Dim Wnum As Integer, Wcodigo As String
    ' abre uma conexao com a planilha excel
    Set oConn = New ADODB.Connection
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\pecas.xls;" & _
    "Extended Properties=""Excel 8.0;HDR=Yes;"";"
    
    ' cria o objecto command e define a conexao ativa
    Set oCmd = New ADODB.Command
    oCmd.ActiveConnection = oConn
    
    ' abre a planilha
    oCmd.CommandText = "Select * from [Plan1$]"
    

    o erro ocorre na linha Dim oConn As ADODB.Connection

    erro: user-defined type not defined

    Vocês poderiam me ajduar a encontrar o erro?

    vlw desde já

  4. ok,essa rotina funcionou, vlw

    mas eu continuo com um problema

    =/

    em alguns cadastros tem essa divisão..

    em otros não..

    existe algum if que eu possa por pra fazer a rotina só quando tiver a barra?

    vlw desde já

    boa tarde

  5. Boa tarde...

    Sou iniciante no VB, na minha empresa estou fazendo uma rotina de migração de um banco de dados em access para o da minha empresa que é tambem em access

    No cadastro dos produtos do banco do cliente, a descrição do produto e o codigo estão no mesmo campo da tabela , separados por "/", preciso separar os dados para a descrição e o codigo do produto.

    vlw desde agora

    Boa tarde

×
×
  • Criar Novo...