kenan | 24.02.2016 17:07 |
---|---|
Predmet:provjera dali postoji tabela u bazi Pozdrav htio bih da napravim provjeru da li je određena tabela kreirana odnono dali postoji i naÅ¡ao sam neÅ¡to na netu al nikako da mi proradi ako neko može da mi kaže gdje grijeÅ¡im odnosno Å¡ta sam fulio ovo je funkcija koja ide posebno i koja bi trebala da ocita sve tabele u bazi Function TableExist(TableName As String) As Boolean Dim Db As Database Dim tbl As Recordset On Error GoTo TableExistError Set Db = CurrentDb Set tbl = Db.OpenRecordset(TableName) TableExist = True Set tbl = Nothing GoTo tableEnde TableExistError: TableExist = False Set tbl = Nothing GoTo tableEnde tableEnde: End Function poziv u drugoj funkciji sa uslovom If TableExists("posebni_podaci_o_placama") = True Then GoTo Kraj Else Exit Function |
dex | 24.02.2016 19:18 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi Funkcija savrseno radi, odnosno vraca vrednost true ili false u zavisnosti od toga da li tabela postoji. Pitanje je sta zelis i kako radi funkcija iz kojeje pozivas |
kenan | 24.02.2016 19:28 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi to sam i ja testirao i radi ali kada stavim u nekoj drugoj funkciji da mi provjeri odnosno preskoči dalje tu ne odradi posao dokraja nego nastavi i onda na "zavrsi:" nastavi kao da uslov ne postoji ne kontam gdje grijeÅ¡im i kad pokrene izvrÅ¡enje u "zavrsi:" normalno funkcija stane jer nemože otvoriti nepostoječi recorset evo cijela funkcija Function UvozPP() Dim i As Integer Dim RS1, rs2 SQLProvjera = "SELECT [T sintetika].aop FROM [T sintetika] WHERE ((([T sintetika].godina)=" & godina & ") AND (([T sintetika].period)='" & OP & "') AND (([T sintetika].firma)=" & Firma & ") AND " SQLProvjeraBS = "(([T sintetika].VR)='PP')) GROUP BY [T sintetika].aop;" Set PROVJERA = CurrentDb().OpenRecordset(SQLProvjera & SQLProvjeraBS) If PROVJERA.RecordCount = 0 Then 'Posebni podtci Set rs = CurrentDb().OpenRecordset("T sintetika") With rs For lng = 901 To 915 .AddNew !aop = lng ![Predhodna godina] = 0 !godina = godina !period = OP !Firma = Firma !VR = "PP" .Update Next lng End With rs.Close Set rs = Nothing If fExistTable("posebni_podaci_o_placama") = True Then GoTo zavrsi Else Exit Function Else If fExistTable("posebni_podaci_o_placama") = True Then GoTo zavrsi Else Exit Function End If zavrsi: i = 901 Do While i < 916 Set rs2 = CurrentDb().OpenRecordset("select * from posebni_podaci_o_placama where id=" & i & ";") Set RS1 = CurrentDb().OpenRecordset("select * from [T sintetika] where firma=" & rs2!Firma & " and godina=" & rs2!godina & " and period='" & rs2!ObracinskiPeriod & "' and vr='PP' and aop=" & i & ";", dbOpenDynaset, dbSeeChanges) 'Netreba uslov ovde se samo upisuje i = i + 1 RS1.Edit RS1![Predhodna godina] = rs2!tekuca_godina RS1.Update Loop End Function |
Gjoreski | 24.02.2016 19:37 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi dodaj izmedzu Loop i End Function Exit Function PreuzmiIzvorni kôd (Visual Basic):
|
kenan | 24.02.2016 19:41 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi Posluša savjet al opet isto se dešava još koja ideja |
dex | 24.02.2016 19:57 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi kod mene ovo radi (nisam ulazio u tacnost dela zavrsi) PreuzmiIzvorni kôd (vbnet):
|
Gjoreski | 24.02.2016 19:58 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi Sta je ovo PreuzmiIzvorni kôd (Visual Basic):
zasto ti tebaju dva isti ifovi dane slucajno treba da bude: PreuzmiIzvorni kôd (Visual Basic):
|
zxz | 24.02.2016 20:22 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi PreuzmiIzvorni kôd (Visual Basic):
|
zxz | 24.02.2016 20:23 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi Uf nisam ni vidio da vec ima dva posta. |
kenan | 24.02.2016 20:30 |
---|---|
Predmet:Re: provjera dali postoji tabela u bazi možel se ovako pozvati If ImalTabele("posebni_podaci_o_placama") = True Then GoTo zavrsi Else Exit Function |