Witam.
Zapytanie może nie całkiem 'symfoniowe', ale powiązane
zrobiłem kiedyś formularz w Accessie, który z bazy MSSQL zaciągał mi dane do bazy Accessa.
Po zmianie serwera (nowa maszyna, HMF2012) wskazałem Accessowi nowe tabele połączone (HM_ZZ_ZMO), pozmieniałem ścieżki i klapa. kawałek kodu:
Kod:
Private Sub Polecenie1_Click()
Dim dbs As DAO.Database
Set dbs = OpenDatabase("D:\dane.mdb")
dim sData, sZMO As String
Dim qdf0, qdf, qdf1 As QueryDef
Dim sZMO, sSQL9, sSQL10 As String
sZMO = InputBox("Wprowadz numer ZMO")
sSQL9= " INSERT INTO Zamowienia (numer_zamowienia, data_zamowienia) SELECT numer_zamowienia, data_zamowienia FROM hm_zz_zmo WHERE numer_zamowienia='"
sSQL10 = "'"
Set qdf0 = dbs.CreateQueryDef("", sSQL9 & sZMO & sSQL10)
qdf0.Execute
.......
End Sub
Dim dbs As DAO.Database
Set dbs = OpenDatabase("D:\dane.mdb")
dim sData, sZMO As String
Dim qdf0, qdf, qdf1 As QueryDef
Dim sZMO, sSQL9, sSQL10 As String
sZMO = InputBox("Wprowadz numer ZMO")
sSQL9= " INSERT INTO Zamowienia (numer_zamowienia, data_zamowienia) SELECT numer_zamowienia, data_zamowienia FROM hm_zz_zmo WHERE numer_zamowienia='"
sSQL10 = "'"
Set qdf0 = dbs.CreateQueryDef("", sSQL9 & sZMO & sSQL10)
qdf0.Execute
.......
End Sub
wykłada się na qdf.execute "Runtime error 3134".
Referencje mam jak w zał.
Ktokolwiek widział, ktokolwiek wie... ;)
| Załączniki: |
|
refer vbasic.JPG [ 38.06 KiB | Przeglądany 1899 razy ] |