Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 06.02.2013 12:25
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:SQL Greška
PreuzmiIzvorni kôd (Text):
  1. DoCmd.Hourglass True
  2. Dim OdBroja1 As Long
  3.          Dim DoBroja1  As Long
  4.          Dim Boja1 As Variant
  5.          Dim UlazBr As Variant
  6.          
  7.          Dim BrojObrazca  As Long
  8.          Dim DatZaduz As Date
  9.          Dim BROZAD As String
  10.          Dim FORMATTIPA As String
  11.            
  12.          Dim TipZad As String
  13.          Dim wrk As Workspace
  14.          Dim db As Database
  15.          Dim rstStrevi As DAO.Recordset
  16.          Dim rsRASPONI As DAO.Recordset
  17.          Dim strSQL As String
  18.          
  19.          Dim flgInTrans As Boolean
  20.          flgInTrans = False
  21.          Dim SumID As String
  22.          Dim SumIme As String
  23.          Dim datzad As Date
  24.          
  25.          UlazBr = Forms!frmZaduzenje!Broj & "/" & Forms!frmZaduzenje!Godina
  26.          SumID = Forms!frmZaduzenje!SumarID
  27.          SumIme = Forms!frmZaduzenje!SumarIme.Column(1)
  28.          datzad = Forms!frmZaduzenje!Datum
  29.                  
  30.     'sad dolazi upis u tablicu
  31.        
  32.          Set wrk = DBEngine.Workspaces(0)
  33.          Set db = CurrentDb
  34.          wrk.BeginTrans
  35.          flgInTrans = True
  36.          'Set rstStrevi = db.OpenRecordset("tblPlocice", dbOpenDynaset, dbAppendOnly)
  37.          'Set rstStrevi = db.OpenRecordset("tblPlocice", dbOpenDynaset)
  38.          
  39.          'generira i upisuje recorde u bazu prema podacima uneÅ¡enim na formu
  40.     If Forms!frmZaduzenje!chkPlava = -1 Then
  41.          OdBroja1 = Forms!frmZaduzenje!OdPlava
  42.          DoBroja1 = Forms!frmZaduzenje!DoPlava
  43.          Boja1 = "PLAVA"
  44.          
  45.          strSQL = "SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1
  46.       Set rstStrevi = db.OpenRecordset(strSQL) 'GREÅ KA
  47.     'Set rstStrevi = db.OpenRecordset("SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1)
  48.           With rstStrevi
  49.          rstStrevi.MoveFirst
  50.           Do While Not rstStrevi.EOF
  51.           rstStrevi.Edit         'obavezno na po
  52. etku za dodavanje
  53.                 rstStrevi!BrojZaduzenja = UlazBr
  54.                 rstStrevi!DatumZaduzenja = datzad
  55.                 rstStrevi!SumarZaduzenja = SumID
  56.                 rstStrevi!SumarImeZaduzenja = SumIme
  57.                 rstStrevi!Status = "Z"
  58.           rstStrevi.Update
  59.          rstStrevi.MoveNext
  60.          Loop
  61.          End With
  62.          rstStrevi.Close
  63.    End If 'kraj za plave
  64.           wrk.CommitTrans
  65.           flgInTrans = False
  66.           DoCmd.Hourglass False
Ovde je greška strSQL = "SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1
Set rstStrevi = db.OpenRecordset(strSQL) 'GREÅ KA
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 06.02.2013 12:29 od strane miro35. ↑  ↓

#2 06.02.2013 14:28
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: SQL Greška
Kog je tipa podatak Boja u tabeli? Izgleda da je problem u neslaganju tipa podataka. Kod tebe u kodu ****ja1 definisana kao variant. Ako je string u tabeli onda fale apostrofi, ostalo mi izgleda OK kod SQL-a

Takodje mislim da ti je suvisno With, odnosno ako stavis With onda ne pises

rstStrevi.MoveFirst

nego samo

.MoveFirst

ili na primer

!SumarImeZaduzenja = SumIme
↑  ↓

#3 06.02.2013 14:39
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: SQL Greška
Sve sam to odradio sad mi javlja grešku na :
.MoveFirst
Miro
↑  ↓

#4 06.02.2013 14:58
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: SQL Greška
Ako SQL ne izdvoji ni jedan element onda ti pre petlje treba nesto kao

If rstStrevi.recordcount=o Then GOTO <preskoci petlju>
↑  ↓

#5 07.02.2013 09:12
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: SQL Greška
Hvala na trudu ali kako se kaže "zora je pametnija od večeri !"
Kad sam prebacivao tabelu u koju sve ovo upisivam zamjenio sam kolonu pod nazivom "broj" da mi bude text umjesto number.Sad kad sam vratio na number sve radi.Izvini i hvala još jednom.
Miro
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 03 am.