problema ao gerar .exe

[Marostegan 0]

pessoal, eu estou com um sistema aqui de um cliente precisei mudar umas coisas (apenas parte grafica)...

 

VB não é minha praia e tb o cara que desenvolveu esse sistema sumiu!

 

ai eu peguei os arquivos e td mais... altereie e tudo deu certo, eu clico em "start" e ele roda o sistema tudo certinho...

 

porém na hora de criar o .exe (Menu File - Make sistema.exe)

 

está aparecendo o seguinte erro:

 

Compile error:

 

Method or data member not found

 

e a seguinte linha é selecionada como erro:

 

Set Relatorio.Recordset = gRSCONT_LOC

 

tudo o que faz aprte dessa programação é:

 

Public Sub Config(pCodigo As String)
    pContrato = pCodigo
    gSQLCONT_LOC = "SELECT A.*,B.*" & _
        " FROM (CONT_LOC A INNER JOIN CONT_TXT B ON A.TIPO_ALU=B.CODIGO)" & _
        " WHERE A.CODIGO=" & Chr(34) & pCodigo & Chr(34) & _
        " ORDER BY B.CODIGO,B.PARAGRAFO"
    Set gRSCONT_LOC = gDB.OpenRecordset(gSQLCONT_LOC)
    Set Relatorio.Recordset = gRSCONT_LOC
    Relatorio.Ativar
    gRSCONT_LOC.Close
    Set gRSCONT_LOC = Nothing
    Unload Me
End Sub

alguem sabe me falar o pq disso? =//

 

desde já agradeço!!!

 

abraçosss

[Nilson Cl. 0]

Boa tarde dan_visualdm

 

tenta declarar as variaveis em vez de dar set.

 

 

t+

[Marostegan 0]

entao amigo... como falei, eu nao manjo nada de visual basic...

 

você poderia dar um exemplo de como fazer isso?

 

obrigado... abraços...

[Nilson Cl. 0]

Boa Noite dan_visualdm

 

 

Public Sub Config(pCodigo As String)
    Dim gRSCONT_LOC As ADODB.Recordset
    Dim Relatorio As ADODB.Recordset
    pContrato = pCodigo
    
    gSQLCONT_LOC = "SELECT A.*,B.*" & _
        " FROM (CONT_LOC A INNER JOIN CONT_TXT B ON A.TIPO_ALU=B.CODIGO)" & _
        " WHERE A.CODIGO=" & Chr(34) & pCodigo & Chr(34) & _
        " ORDER BY B.CODIGO,B.PARAGRAFO"
    gRSCONT_LOC.Open gSQLCONT_LOC, gDB
    Relatorio.Open gRSCONT_LOC, gDB
    Relatorio.Ativar
    gRSCONT_LOC.Close
    Set gRSCONT_LOC = Nothing
    Unload Me
End Sub

Tenta ver se agora funciona

 

t+