MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Numero excessivo de continuações de linha

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 378
    Registrado : 15/05/2013

    [Resolvido]Numero excessivo de continuações de linha

    Mensagem  maguim em 26/11/2018, 17:29

    boa tarde! meu amigos

    Tudo bem?

    queria sabe como posso colocar mais 3 colunas nessa criação de tabela temporária:

    preciso por mais 3 colunas para poder fazer uma consulta de atualização na tabela temp para criação de relatório.

    Código:
    Dim strTbl As String
       strTbl = "tmp_teste2"
       CurrentDb.Execute "CREATE TABLE " & strTbl & "(" &
                           "CODPASTA varchar(50), " & _
                           "CLIENTE varchar(255),  " & _
                           "Programa varchar(255), " & _
                           "TREINAM_GILENYA varchar(255), " & _
                           "TXTTREINAM_GILENYA varchar(255) " & _
                           "DT_TREINAM_RMP_GILENYA varchar(255) " & _
                           "FARMACOVIGILANCIA_GILENYA varchar(255) " & _
                           "TXTFARMACOVIGILANCIA_GILENYA varchar(255) " & _
                           "DT_TREINAM_FARMACOVG_GILENYA varchar(255) " & _
                           "Indicação varchar(255)   " & _
                           "Cnpj varchar(255)        " & _
                           "Nome_Fantasia varchar(255)        " & _
                           "Razão_Social varchar(255)        " & _
                           "STATUS varchar(255)        " & _
                           "MOTIVO varchar(255)        " & _
                           "JUSTIFICATIVA varchar(255)        " & _
                           "Tipo_Serviço varchar(255)        " & _
                           "Email varchar(255)        " & _
                           "CEP varchar(255)        " & _
                           "ENDEREÇO varchar(255)        " & _
                           "NUMERO varchar(255)        " & _
                           "BAIRRO varchar(255)        " & _
                           "Cidade varchar(255)" & _
                           "UF varchar(255)        " & _
                           "); "



    abraços


    Última edição por maguim em 28/11/2018, 15:25, editado 1 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 553
    Registrado : 13/12/2016

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  Alexandre Fim em 26/11/2018, 18:30

    Olá Maguim,

    No script que vc mandou, está faltando a "Virgula" da 5a. linha em diante.

    Pra ficar mais fácil a leitura, procure concatenar os dados, como segue abaixo:

    Dim strTbl As String
    Dim sSql As String


    strTbl = "tmp_teste2"
    sSql = "CREATE TABLE " & strTbl & "(" & ""
    sSql = sSql & " CODPASTA varchar(50)"
    sSql = sSql & " ,CLIENTE varchar(255)"
    sSql = sSql & " ,Programa varchar(255)"
    sSql = sSql & " ,TREINAM_GILENYA varchar(255)"
    sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
    sSql = sSql & " ,DT_TREINAM_RMP_GILENYA varchar(255)"
    sSql = sSql & " ,FARMACOVIGILANCIA_GILENYA varchar(255)"
    sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"
    sSql = sSql & " ,DT_TREINAM_FARMACOVG_GILENYA varchar(255)"
    sSql = sSql & " ,Indicação varchar(255)"
    sSql = sSql & " ,Cnpj varchar(255)"
    sSql = sSql & " ,Nome_Fantasia varchar(255)"
    sSql = sSql & " ,Razão_Social varchar(255)"
    sSql = sSql & " ,STATUS varchar(255)"
    sSql = sSql & " ,MOTIVO varchar(255)"
    sSql = sSql & " ,JUSTIFICATIVA varchar(255)"
    sSql = sSql & " ,Tipo_Serviço varchar(255)"
    sSql = sSql & " ,Email varchar(255)"
    sSql = sSql & " ,CEP varchar(255)"
    sSql = sSql & " ,ENDEREÇO varchar(255)"
    sSql = sSql & " ,NUMERO varchar(255)"
    sSql = sSql & " ,BAIRRO varchar(255)"
    sSql = sSql & " ,Cidade varchar(255)"
    sSql = sSql & " ,UF varchar(255)"
    sSql = sSql & " ); "

    CurrentDb.Execute sSql


    Faça o teste e a rotina irá criar a tabela.

    Boa sorte.

    []'s


    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 378
    Registrado : 15/05/2013

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  maguim em 26/11/2018, 18:59

    @alexandre deu certo...


    uma duvida estou tentando fazer um insert into nessa tabela temp


    so que esta falando erro de sintaxe(operador faltando) na expressao de consulta "NÃO' ". ERRO 3075


    acredito eu que seja algo relacionado a isso:

    sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
    sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"


    '" & rs!TXTTREINAM_GILENYA & "'" & _
    & rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _


    poderia dar help plx...



    Código:
    Private Sub teste_Click()
     
     
        Dim rs As Recordset
        Dim strTbl As String
        Dim sSql As String


    strTbl = "tmp_teste2"
                sSql = "CREATE TABLE " & strTbl & "(" & ""
                sSql = sSql & " CODPASTA varchar(50)"
                sSql = sSql & " ,CLIENTE varchar(255)"
                sSql = sSql & " ,Programa varchar(255)"
                sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
                sSql = sSql & " ,DT_TREINAM_RMP_GILENYA varchar(255)"
                sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"
                sSql = sSql & " ,DT_TREINAM_FARMACOVG_GILENYA varchar(255)"
                sSql = sSql & " ,Indicação varchar(255)"
                sSql = sSql & " ,Cnpj varchar(255)"
                sSql = sSql & " ,Nome_Fantasia varchar(255)"
                sSql = sSql & " ,Razão_Social varchar(255)"
                sSql = sSql & " ,STATUS varchar(255)"
                sSql = sSql & " ,MOTIVO varchar(255)"
                sSql = sSql & " ,JUSTIFICATIVA varchar(255)"
                sSql = sSql & " ,Tipo_Serviço varchar(255)"
                sSql = sSql & " ,Email varchar(255)"
                sSql = sSql & " ,CEP varchar(255)"
                sSql = sSql & " ,ENDEREÇO varchar(255)"
                sSql = sSql & " ,NUMERO varchar(255)"
                sSql = sSql & " ,BAIRRO varchar(255)"
                sSql = sSql & " ,Cidade varchar(255)"
                sSql = sSql & " ,UF varchar(255)"
                sSql = sSql & " ); "
     
      ' busco os dados da tbl_Porto no MySQL
      strRS = "SELECT * FROM RELATORIO_GILENYA"
      Set rs = CurrentDb.OpenRecordset("SELECT * FROM RELATORIO_GILENYA")
      CurrentDb.Execute "INSERT INTO " & strTbl & " VALUES('" & rs!CODPASTA & "', " & _
                          " '" & rs!Cliente & "', '" & rs!Programa & "', '" & rs!TXTTREINAM_GILENYA & "'" & _
                          " '" & rs!DT_TREINAM_RMP_GILENYA & "', '" & rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _
                          " '" & rs!DT_TREINAM_FARMACOVG_GILENYA & "', '" & rs!Indicação & "', '" & rs!CNPJ & "'" & _
                          " '" & rs!Nome_Fantasia & "', '" & rs!Razão_Social & "', '" & rs!status & "'" & _
                          " '" & rs!motivo & "', '" & rs!JUSTIFICATIVA & "', '" & rs!Tipo_Serviço & "'" & _
                          " '" & rs!EMAIL & "', '" & rs!CEP & "', '" & rs!ENDEREÇO & "'" & _
                          " '" & rs!NUMERO & "', '" & rs!COMPLEM & "', '" & rs!BAIRRO & "'" & _
                          " '" & rs!Cidade & "', '" & rs!UF & "')"
    End Sub

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 01/08/2011

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  ronaldojr1 em 26/11/2018, 20:16

    Boa tarde,

    sua consulta esta errada. rs
    tente assim:
    Código:
    Dim strTbl As String
    Dim sSql As String
    Dim strSQL

    strTbl = "tmp_teste2"
                sSql = "CREATE TABLE " & strTbl & "(" & ""
                sSql = sSql & " CODPASTA varchar(50)"
                sSql = sSql & " ,CLIENTE varchar(255)"
                sSql = sSql & " ,Programa varchar(255)"
                sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
                sSql = sSql & " ,DT_TREINAM_RMP_GILENYA varchar(255)"
                sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"
                sSql = sSql & " ,DT_TREINAM_FARMACOVG_GILENYA varchar(255)"
                sSql = sSql & " ,Indicação varchar(255)"
                sSql = sSql & " ,Cnpj varchar(255)"
                sSql = sSql & " ,Nome_Fantasia varchar(255)"
                sSql = sSql & " ,Razão_Social varchar(255)"
                sSql = sSql & " ,STATUS varchar(255)"
                sSql = sSql & " ,MOTIVO varchar(255)"
                sSql = sSql & " ,JUSTIFICATIVA varchar(255)"
                sSql = sSql & " ,Tipo_Serviço varchar(255)"
                sSql = sSql & " ,Email varchar(255)"
                sSql = sSql & " ,CEP varchar(255)"
                sSql = sSql & " ,ENDEREÇO varchar(255)"
                sSql = sSql & " ,NUMERO varchar(255)"
                sSql = sSql & " ,BAIRRO varchar(255)"
                sSql = sSql & " ,Cidade varchar(255)"
                sSql = sSql & " ,UF varchar(255)"
                sSql = sSql & " ); "
    DoCmd.RunSQL sSql

    strSQL = "INSERT INTO tmp_teste2 " & _
            "SELECT RELATORIO_GILENYA.* " & _
            "FROM RELATORIO_GILENYA"

    DoCmd.RunSQL strSQL
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 553
    Registrado : 13/12/2016

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  Alexandre Fim em 26/11/2018, 23:56

    Olá Maguim,

    A string está com erro, está faltando o APÓSTROFO e Aspas:

    '" & rs!TXTTREINAM_GILENYA & "'" & _
    & rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _


    Correto:


    '" & rs!TXTTREINAM_GILENYA & "'" & _
    ,'" & rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 378
    Registrado : 15/05/2013

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  maguim em 28/11/2018, 15:25

    @ronaldojr1

    Deu certo!

    Obg

    @Alexandre Fim obg pela ajuda!


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 01/08/2011

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  ronaldojr1 em 28/11/2018, 16:14

    Opa! Que bom que funcionou.
    O Fórum agradece o retorno.

    Abraço
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 553
    Registrado : 13/12/2016

    Re: [Resolvido]Numero excessivo de continuações de linha

    Mensagem  Alexandre Fim em 28/11/2018, 18:05

    VAleu Maguim.

    Boa sorte e sucesso !!!

      Data/hora atual: 16/12/2018, 11:23