zxz | 17.03.2011 17:43 |
---|---|
Predmet:Re: sql upit u VBA-modu Nakaci cijeli kod kad stignes. Nema zaobilazenja ni izvlacenja. Nastavljamo veceras drugu smjenu. |
Zuko | 17.03.2011 20:19 |
---|---|
Predmet:Re: sql upit u VBA-modu evo koda za usporishell PreuzmiIzvorni kôd (vbnet): a ovo je sa dugmeta na formi
PreuzmiIzvorni kôd (vbnet):
ovdje sam pravio ime file-a, valjda je to ok |
zxz | 17.03.2011 21:15 |
---|---|
Predmet:Re: sql upit u VBA-modu Opsti oblik: UsporiShell PutanjaappZipa & "\pkzip " & Util.PutZipaZipa & "\" & ImeFajla & ".zip " & PutZapisaFilea, vbHide da pretpostavimo da ti je sve na jednom jestu i mdb i xml i pkzip exe. Sto znaci da se sve nalazi na putanji Db_Putanja. To je procedura koja nalazi putanju mdb. -------------------------------------------------- ----------- firma = DLookup("[Statisticki broj]", "tpreduzece", "Sifra_preduzeca = " & Forms!test!SifraFirme) U firma imas dimo imena filea Cijelo ime: Dim Ime filea ImeFilea=firma & & mjesec1 Dim app_Path app_Patth=Db_Putanja Znaci sad u app_path imas putanju do dir gdje se sve nalazi. i sad sve da sklopimo: UsporiShell app_path & "pkzip " & app_path & ImeFajla & ".zip " & app_path & ImeFajla & ".XML" , vbHide To bi u shelu izgledalo ovako ako se to napr nalazi na putanji C:\Mojabaza C:\Mojabaza\pkzip C:\Mojabaza\pojeime.zip C:\Mojabaza\mojeime.xml ovo trebas dobiti. Provejri samo sta ti vraca procedura db_Putanja jeli vraca: C:\Mojabaza ili C:\Mojabaza\ ako vraca ovo drugo onda je ok. A ako vraca prvo onda trebas jos dodati izmedju \ Ali prvo provjeri. |
Zuko | 17.03.2011 22:38 |
---|---|
Predmet:Re: sql upit u VBA-modu Db_putanja vraća ovo drugo, ali opet neće javlja istu gresku. Evo zakaćio sam bazu pa ako mozes pogledati, usporishell se nalazi umodulu pakovanje |
zxz | 17.03.2011 23:37 |
---|---|
Predmet:Re: sql upit u VBA-modu tako je kad na vrhu modula nemas ono Option explicit a lose kucas ko i ja mozda samo niansu bolje. Citat: Dim app_Path app_path i appPatth ma dobro samo jedno t viska. To je jedna stvar a druga je sto shell ne podrzava ime filea vece od 8 karaktera a ko je vece ime onda se pise napr. 1234567789.xml--->123456~1.xml 123456~1-->ukupno 8 karaktera ako imas 2 filea koji naprimjer imaju imena: 1234567890.xml 1234567899.xml onda ce se prvi zbvati 123346~1.xml a drugi 123456~2.xml |
Zuko | 17.03.2011 23:48 |
---|---|
Predmet:Re: sql upit u VBA-modu hvala na pomoci, a ovo o kucanju si upravu kad sam radio na xml na validaciji sam imao najvise gresaka u kucanju pa mu fali nedi dio nije otvoren ili zatvoren. puno hvala još jednom |
edo_ze | 01.04.2011 13:12 |
---|---|
Predmet:Re: sql upit u VBA-modu @nzuko u recordsetu ne smiješ davati ovakav uslov WHERE (((TLD.Mjesec)=[forms]![test]![mjesec1]) AND ((Tradnik.Sifra_Preduzeca)=[forms]![test]![sifrafirme])) za izvršnu SQL naredbu može ali za setovanje recordseta ide ovako: WHERE (((TLD.Mjesec)=" & [forms]![test]![mjesec1] & ") AND ((Tradnik.Sifra_Preduzeca)=" & [forms]![test]![sifrafirme]& ")) ili ako su alfanumeričke vrijednosti: WHERE (((TLD.Mjesec)='" & [forms]![test]![mjesec1] & "') ... ima apostrof (') prije i li poslije navodnika |