miro35 | 17.10.2012 11:49 |
---|---|
Predmet:Provjera Link Kako provjeriti kroz neku funkciju da li je neka tabela Linkovana na bazu i ako nije, da se upali poruka da određena tabela nije linkovana |
roko | 17.10.2012 18:50 |
---|---|
Predmet:Re: Provjera Link Napraviš na polaznu formu neku funkciju kao Set dbs = CurrentDb() On Error GoTo relinkaj Set rst = dbs.OpenRecordset("tabela1") Set rst = dbs.OpenRecordset("tabela2") relinkaj LinkTableDefs Function LinkTableDefs() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Set dbs = CurrentDb() For Each tdf In dbs.TableDefs If tdf.Connect <> "" Then tdf.Connect = ";DATABASE=C:\MojaBackend.mdb" tdf.RefreshLink End If Next End Function |
miro35 | 18.10.2012 09:00 |
---|---|
Predmet:Re: Provjera Link Hvala za ovo ali mi treba poruka npr: "Aplikacija nije povezana sa bazom". Imam jednu opciju ažuriranje skladiÅ¡ta gdje program vrti apend query-je.Ovo mi treba radi mreže.Znači imam kasu i glavno računalo.Na glavnom se rade kalkulacije.Kasa radi samostalno ali kad se želi ažurirati skladiÅ¡te imam neke tabele ulinkovane sa glavnog računala na kasu preko mreže.DeÅ¡avalo se da neko ugasi glavni komp.Zbog toga hoću da mi javi poruku.Recimo pregledajte glavni komp da li je upaljen bla bla... Jer se glavni komp nalazi u drugoj zgradi.Znači udaljen je pa se ne može vidjeti da li je upaljen ili ne. |
zxz | 18.10.2012 10:47 |
---|---|
Predmet:Re: Provjera Link Za takav slucaj dovoljno je da provjeravas samo jednu tabelu. PreuzmiIzvorni kôd (Visual Basic):
|
miro35 | 18.10.2012 10:54 |
---|---|
Predmet:Re: Provjera Link Tako je može i jedna tabela da se provjeri.Meni će trebati viÅ¡e tabela,ali to ću napraviti kad radim određenu radnju neka ažuriranja,onda prije toga ću provjeravati da li je tabela linkovana. |
roko | 18.10.2012 11:18 |
---|---|
Predmet:Re: Provjera Link trebaÅ¡ funkciju za pinganje računala pronači ču cijeli protokol pa ti stavim |
zxz | 18.10.2012 12:31 |
---|---|
Predmet:Re: Provjera Link Ako hoces vise onda ovako: PreuzmiIzvorni kôd (Visual Basic):
|
miro35 | 18.10.2012 14:44 |
---|---|
Predmet:Re: Provjera Link da to je za više.Znam u kodu samo stavljam: Function ProvjeraLinka(Tabela1) Function ProvjeraLinka(Tabela2) itd... Ne treba ništa više to je dovoljno Hvala |
zxz | 18.10.2012 15:00 |
---|---|
Predmet:Re: Provjera Link Interesantno je ovo sto je roko pomenuo. Sigurno ima mjesta gdje to stvarno treba pa bi bilo dobro staviti to u koristan kod ili negdje drugdje. |
roko | 18.10.2012 19:06 |
---|---|
Predmet:Re: Provjera Link Pinganje kompjutera imas u atach dva modula Napravi tabelu PostavkeMreze s dvije kolone ID NazivPostavke Val 1 SMTPServer DOMA_A 3 SMTPUser ROKO 4 SMTPPass 1234 Poziv SMTPName = ELookup("[Val]", "PostavkeMreze", "[NazivPostavke]='SMTPServer'") If Ping(SMTPName) = -1 Then MsgBox "Računalo koje pozivate nije spojeno na server. ", vbInformation, "Error Mreža" Exit Sub Else SMTPUser = ELookup("[Val]", "PostavkeMreze", "[NazivPostavke]='SMTPUser'")'' ovo ako je konkretni user SMTPPass = ELookup("[Val]", "PostavkeMreze", "[NazivPostavke]='SMTPPass'") End If Ako za SMTPName IP adresu recimmo 192.168.1.20 i u biosu podesiÅ¡ na tu adresu funkcije bi ti trbala upaliti taj komp koji trenutno nije ONLINE možeÅ¡ podesiti WakeOnLan po IP adresi il ako več svi živi idu na taj komp po podatke File Sharing and printers dodaj port TCP port 445 a na Start/Settings/Control Panel/System stavi Allow users to connect remotely to this computer to bi ga trebalo upaliti Ako nistaa od toga evo mali alat (gui)koji ti to može odraditi poz.. |
|
Prilozi: PING_KOMP.rar (Velicina datoteke:1.85 KB) WakeOnLanGui.rar (Velicina datoteke:146.49 KB) |