🚀 go-pugleaf

obecnie mam tak:

Sub myQry()
...

sSQL = "SELECT c.INDEKS, d.WAGA*c.[DILOSC] AS WAGA " & _
"FROM tbl_" & sRM AS c INNER JOIN mg00imni AS d ON c.INDEKS = d.INDEKS ;"


If DCount("*", "MSysObjects", "Name = 'myQuery'") <> 0 Then
DoCmd.DeleteObject acQuery, "myQuery"
End If

Set qd = db.CreateQueryDef("myQuery", sSQL)

DoCmd.OpenQuery "myQuery"

End Sub


Chciałbym wywołać sSQL bez konieczności zakładania kwerendy "myQuery".
Pewnie ograniczeniem jest moja niewiedza...
Czy da się to zrobić inaczej niż jest napisane powyżej?


Kombinowałem jeszcze tak:

Dim con As ADODB.Connection
Set con = CurrentProject.Connection


con.Execute sSQL


Nie skończyło się błędem jak w przypadku
qd.Execute informującym o próbie wywołania innego typu kwerendy niż funkcyjna ale nie pokazał mi się w Accesie grid z danymi wynikowymi.
I nie wiem czemu...


MF

Dim db as database
Dim sSql as string
Dim rs as recordset

sSQL = "SELECT c.INDEKS, d.WAGA*c.[DILOSC] AS WAGA " & _
"FROM tbl_" & sRM AS c INNER JOIN mg00imni AS d ON c.INDEKS = d.INDEKS ;"
'Nie wnikam w poprawność stringu

Set db = DBEngine(0)(0)
Set rs = CurrentDb.OpenRecordset(sSQL)


w tym momencie możesz zrobić z danymi co chcesz, dane są w recordsecie czyli rs

Jeżeli dane chcesz wyświetlić tylko na ekran to prościej zrobić raport lub formularz, bez kombinowania w kodzie, lub wykorzystać recordset jako źródło danych dla raportu lub formularza.

... 
> Set db = DBEngine(0)(0)
> Set rs = CurrentDb.OpenRecordset(sSQL)
> 
> 
> w tym momencie możesz zrobić z danymi co chcesz, dane są w recordsecie czyli rs
> 
> Jeżeli dane chcesz wyświetlić tylko na ekran to prościej zrobić raport lub formularz, bez kombinowania w kodzie, lub wykorzystać recordset jako źródło danych dla raportu lub formularza.

Dzięki za odpowiedź! 
SQL string działa jak poniżej.

Podaję parametr sRM pobierany przez InputBoxa:
sSQL = "SELECT c.INDEKS, d.WAGA*c.DILOSC AS WAGAC " & _ 
"FROM tbl_" & sRM & " AS c INNER JOIN mg00imni AS d ON c.INDEKS = d.INDEKS;"

Na razie realizuję etap wyrzucenia kwerendy na ekran.
Tak na prawdę to zamierzam wyrzucić grid kwerndy do txt, csv lub xml.
Czekam na format pliku od firmy obsługującej ERPa.

Czy rekordseta będzie można wrzucać bezpośrednio do csv?

MF

Poniżej fragment kodu, który tak naprawdę mi się nie podoba (choć działa).


If DCount("*", "MSysObjects", "Name = 'myQueryZP'") <> 0 Then
DoCmd.DeleteObject acQuery, "myQueryZP"
End If

Set qd = db.CreateQueryDef("myQueryZP", sSQL)

DoCmd.OpenQuery "myQueryZP"

qd.Close
Set db = Nothing

End Sub


Czy kwerendy wybierające nie można wywoływać "po cichu" bez zakładania nazwanej kwerendy w kolekcji? Niestety db.Execute czy con.Execute są tylko przeznaczone do kwerend funkcjonalnych.

/
MF

> Czy rekordseta będzie można wrzucać bezpośrednio do csv?
Tak można, do csv xml czy txt to ty decydujesz co się stanie z danymi w recordsecie.

>Czy kwerendy wybierające nie można wywoływać "po cichu" bez zakładania nazwanej kwerendy w kolekcji?
znaczy chcesz wywołać obiekt który nie istnieje w kolekcji? 
Jak to piszesz "po cichu" można wykonać polecenie SQL w kodzie VBA  
Dane zwrócone czy przez kwerendę czy recordset będą identyczne.

jezeli już tworzysz kwerendę, to po wykorzystaniu ją usuń

DoCmd.DeleteObject acQuery, "myQueryZP"