Boa tarde,
Quando o Abro o recordset strSQL, a instruçao retorna 0 registros, no entanto se substituir a strSQL pela consulta no assistente do access a partir da qual construi a string, ja obtenho 3 registos .
Algum Problema com a string ?
Qual seria o metodo mais rapido de executar em caso de que existam muitos registos, e tendo tambem em conta que uma das tabelas é uma ligaçao mySQL, servidor WEB.
Obrigado
Carlos
------------
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Dim c As Integer
Set db = CurrentDb()
strSQL = "SELECT id, file_path, file_name, FileDate, FileLength," & _
"keywords, Indexado, Documento, Remetente, date_added," & _
"FicheiroDigital, PastaID, ProcessoID, external_ref, internal_ref," & _
"inOut, N1, blue " & _
"FROM tblDocumentos LEFT JOIN tblDocumentosLocal ON tblDocumentos.file_name = tblDocumentosLocal.FileName " & _
"WHERE (((tblDocumentos.Indexado)=No) AND ((tblDocumentosLocal.FileName) Is Null));"
Set rst = db.OpenRecordset(strSQL) ´ASSIM NAO FUNCIONA
Set rst = db.OpenRecordset("qryUnmatch", dbOpenDynaset) ´ASSIM JA FUNCIONA, sendo que a consulta qryUnmatch deveria fazer o mesmo que a string strSQL
With rst
.MoveLast
.MoveFirst
c = rst.RecordCount
End With
Quando o Abro o recordset strSQL, a instruçao retorna 0 registros, no entanto se substituir a strSQL pela consulta no assistente do access a partir da qual construi a string, ja obtenho 3 registos .
Algum Problema com a string ?
Qual seria o metodo mais rapido de executar em caso de que existam muitos registos, e tendo tambem em conta que uma das tabelas é uma ligaçao mySQL, servidor WEB.
Obrigado
Carlos
------------
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Dim c As Integer
Set db = CurrentDb()
strSQL = "SELECT id, file_path, file_name, FileDate, FileLength," & _
"keywords, Indexado, Documento, Remetente, date_added," & _
"FicheiroDigital, PastaID, ProcessoID, external_ref, internal_ref," & _
"inOut, N1, blue " & _
"FROM tblDocumentos LEFT JOIN tblDocumentosLocal ON tblDocumentos.file_name = tblDocumentosLocal.FileName " & _
"WHERE (((tblDocumentos.Indexado)=No) AND ((tblDocumentosLocal.FileName) Is Null));"
Set rst = db.OpenRecordset(strSQL) ´ASSIM NAO FUNCIONA
Set rst = db.OpenRecordset("qryUnmatch", dbOpenDynaset) ´ASSIM JA FUNCIONA, sendo que a consulta qryUnmatch deveria fazer o mesmo que a string strSQL
With rst
.MoveLast
.MoveFirst
c = rst.RecordCount
End With