Problem oko importa iz druge baze

Problem oko importa iz druge baze 18.09.2020. u 10:50 · pre 74 meseca #1

Imam problem i molbu
zasto ovaj sql izraz radi

SELECT GR_LATIN.*, *
FROM [GR_LATIN] IN 'C:\Server\GRADJANI.accdb';

a ovaj ne

SELECT GR_LATIN.*
FROM GR_LATIN IN "'" & DLookUp("[Putanja]","[Put]","[Grupa]='PIPS'") & "'";

Hvala unaprijed

Re: Problem oko importa iz druge baze 18.09.2020. u 21:39 · pre 74 meseca #2

A ovo?

SELECT GR_LATIN.*
FROM GR_LATIN IN DLookUp("[Putanja]","[Put]","[Grupa]='PIPS'");

Re: Problem oko importa iz druge baze 21.09.2020. u 07:53 · pre 74 meseca #3

Ne.Sve kombinacije sam probao.Hvala.

Re: Problem oko importa iz druge baze 21.09.2020. u 09:19 · pre 74 meseca #4

Ne koristim često Access, ali ono što vidim je Dlookup vraća jednu vrednost, a IN klauzula zahteva listu vrednosti

Možda proradi

select ...
where polje in (dlookup(...))

Takođe, nije mi jasna konstrukcija
TABLENAME IN NEŠTO

Re: Problem oko importa iz druge baze 21.09.2020. u 10:57 · pre 74 meseca #5

Nije to

Re: Problem oko importa iz druge baze 21.09.2020. u 11:45 · pre 74 meseca #6

Ovo ti je nemoguće ako koristiš query u accessu, zato što putanja do externe baze mora unapred da se zna.

https://docs.microsoft.com/en-...in-clause-microsoft-access-sql

Postoji razlika između IN clause i IN operator koji koristiš posle WHERE, gde može da se ubaci dinamički parametar.
Mislim da je ovo izvodljivo samo kroz vba, gde bi definisao neku custom funkciju, npr:

Code:

Public Function GetDatabasePath(group As String) As String
    Dim criteria As String
    criteria = "Grupa='" & group & "'"
    GetDatabasePath = "'" & DLookup("Putanja", "Put", criteria) & "'"
End Function

Pa bi to onda iskoristio negde

Code:

Public Sub Test()
    Dim sqlString As String

    sqlString = "SELECT * FROM GR_LATIN IN " & GetDatabasePath("PIPS") & ";"

    Debug.Print sqlString
    'itd....
End Sub

Potpis

Lanci, Kuke, Spojnice, Priveznice, Skopci, Hvataljke, Celicna uzad, Valjkasti lanci, Galovi Lanci MM Veriga d.o.o.
Agrorade atomizeri

Re: Problem oko importa iz druge baze 22.09.2020. u 09:04 · pre 74 meseca #7

Private Sub Command21_Click()
Dim qMarks As DAO.QueryDef
Dim strMarksSQL As String
Dim strBePath As String

strBePath = DLookup("[Putanja]", "[Put]", "[Grupa]='PIPS'")
Set qMarks = CurrentDb.CreateQueryDef(“qryMarks”)

strMarksSQL = "SELECT * FROM GR_LATIN_SOURCE IN '" & strBePath & "' where (IIf(IsNull([Forms]![Form29]![Text4]),"""",[Grad] ='" & [Forms]![Form29]![Text4] & "'))" _
& "And (IIf(IsNull([Forms]![Form29]![Text0]),"""",[Prezime] Like '*" & [Forms]![Form29]![Text0] & "*'))" _
& "And (IIf(IsNull([Forms]![Form29]![Text2]),"""",[Ime] Like '*" & [Forms]![Form29]![Text2] & "*'))" _
& "And (IIf(IsNull([Forms]![Form29]![Text6]),"""",[Filter] Like '*" & [Forms]![Form29]![Text6] & "*'))"
qMarks.sql = strMarksSQL
mySQL_RN1_aktiv_0 = strMarksSQL
Forms!Form29.RecordSource = mySQL_RN1_aktiv_0
End Sub

Ovo radi i hvala u svakom slucaju

Forum kao aplikacija na telefonu

Srodne teme