Temat: Dane z WF-Maga do Excela

Witam,

Próbuję do excela poprzez VBA ściągnąć cenę konkretnego artykułu.

Generalnie jak piszę proste zapytanie SQL to skrypt działa.

Natomiast gdy uruchamiam poniższy kod wywala mi błąd AUTOMATON ERROR.

Z góry dzięki za jakiekolwiek sugestie

Poniżej załączam kod:

Sub getcenaedp()

' pobieramy cenę dla konkretnego indexu handlowego
Dim strConn As ADODB.Connection
Dim oRS As ADODB.Recordset
Worksheets("temp").Range("A1:B30000").Clear
Set oCon = New ADODB.Connection
oCon.ConnectionString = "Provider=SQLOLEDB;Server=xxx.xxx.xxx.xxx;Initial Catalog=xxxxxx;User ID=xxxxxx;Password=xxxxxxxxxx"
oCon.Open
Set oRS = New ADODB.Recordset
oRS.ActiveConnection = oCon
oRS.Source = "SELECT ARTYKUL.INDEKS_HANDLOWY, CENA_ARTYKULU.CENA_NETTO, CENA_ARTYKULU.SYM_WAL" & _
"FROM YG1NEW.dbo.ARTYKUL ARTYKUL, YG1NEW.dbo.CENA_ARTYKULU CENA_ARTYKULU" & _
"WHERE CENA_ARTYKULU.ID_ARTYKULU = ARTYKUL.ID_ARTYKULU AND ((CENA_ARTYKULU.ID_CENY=5) AND (ARTYKUL.INDEKS_HANDLOWY='PV00111') AND (ARTYKUL.ID_MAGAZYNU=1))"
oRS.Open
Worksheets("temp").Range("A1").CopyFromRecordset oRS
oRS.Close
oCon.Close
If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCon Is Nothing Then Set oCon = Nothing

End Sub

Temat: Dane z WF-Maga do Excela

Witam
Proponuję zmodyfikować kod wg. wzoru poniżej. Pozwoli to otrzymać dokładniejszą informację o błędzie.

Sub getcenaedp()
On Error GoTo err
….
....
....
Exit Sub
err:
MsgBox err.Source & " " & err.Description
End Sub

Tutaj widzę, że będzie błąd w zapytaniu. Przy takim sklejaniu zabraknie dwóch spacji, przed FROM i przed WHERE Proponuję używać krótszych aliasów tabel, będzie czytelniej :)

Pozdrawiam dsTen post został edytowany przez Autora dnia 20.06.13 o godzinie 23:41

Temat: Dane z WF-Maga do Excela

Dzięki wielkie za pomoc. Problem rozwiązany i wszystko działa.

Brakowało tylko tej spacji nieszczęsnej :-)