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

zxz	22.02.2012 13:44
Predmet:Re: Usporedba stringa Ovim mozes povecati ili smanjiti kriterij. a broj slicnih je ovo: Slicni(1 To 5) As Stavio sam pet.

pmiroslav	22.02.2012 15:35
Predmet:Re: Usporedba stringa Već sam eksperimentirao sa time jer mi je kod nekih pretraga dolazilo do greÅ¡ke pa sam stavio Slicni(1 To 30) Do malo prije mi je sve radilo ali sada mi javlja greÅ¡ku ako u pretragu napiÅ¡em 'miro' 'Subscript out of range' i zaustavi se na liniji Slicni(X) = Podatak(2) a ako napiÅ¡em 'miroslav' bude sve u redu

pmiroslav

22.02.2012 15:35

Predmet:Re: Usporedba stringa

Već sam eksperimentirao sa time jer mi je kod nekih pretraga dolazilo do greÅ¡ke pa sam stavio
Slicni(1 To 30)
Do malo prije mi je sve radilo ali sada mi javlja greÅ¡ku
ako u pretragu napiÅ¡em 'miro'

'Subscript out of range'
i zaustavi se na liniji
Slicni(X) = Podatak(2)

a ako napiÅ¡em 'miroslav' bude sve u redu

zxz	22.02.2012 20:36
Predmet:Re: Usporedba stringa Kod mene prolazi i jedno i drugo i kad stavim Slicni(1 to 30)

zxz

22.02.2012 20:36

Predmet:Re: Usporedba stringa

Kod mene prolazi i jedno i drugo i kad stavim Slicni(1 to 30)

pmiroslav	22.02.2012 21:24
Predmet:Re: Usporedba stringa I kod mene nije problem kada radim na ovom primjeru koji sam poslao i koji ima malo zapisa. Ali kada importiram moju originalnu tablicu sa oko 800 zapisa onda imam problem koji sam naveo. U primjeru je kompletna tablica
Prilozi: Kupci.rar (Velicina datoteke:38.65 KB)

pmiroslav

22.02.2012 21:24

Predmet:Re: Usporedba stringa

I kod mene nije problem kada radim na ovom primjeru koji sam poslao i koji ima malo zapisa.
Ali kada importiram moju originalnu tablicu sa oko 800 zapisa onda imam problem koji sam naveo.
U primjeru je kompletna tablica

Prilozi:
Kupci.rar (Velicina datoteke:38.65 KB)

zxz	22.02.2012 21:55
Predmet:Re: Usporedba stringa Evo ovaj kod ce raditi. Zeza me redim sto ne radi ko u pravom vb-u PreuzmiIzvorni kôd (Visual Basic): Private Sub txtUpit_BeforeUpdate(Cancel As Integer) Dim Rs As Recordset Dim Db As Database Dim Podatak(1 To 2) As String, Znak As String, MsgSlicni As String Dim I As Integer, Duz As Integer, Poeni As Integer, Stanje As Single Dim Poz As Integer, StartP As Integer If IsNull(Me.txtUpit) Then GoTo Kraj Podatak(1) = Me.txtUpit Duz = Len(Podatak(1)) Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT Firma FROM TblPartneri") Do While Not Rs.EOF Podatak(2) = Rs.Fields(0) For I = 1 To Duz If I = 1 Then StartP = 1 Else StartP = I - 1 End If Znak = Mid(Podatak(1), I, 1) Poz = InStr(StartP, Podatak(2), Znak) If Poz = I + 1 Or Poz = I Or Poz = I - 1 Then Poeni = Poeni + 1 End If Next I Stanje = Poeni / Duz Poeni = 0 Poz = InStr(1, Podatak(2), Podatak(1)) If Poz > 0 Then Stanje = 1 If Stanje > 0.7 Then MsgSlicni = MsgSlicni & vbCr & Podatak(2) End If Rs.MoveNext Loop Rs.Close If MsgSlicni <> "" Then MsgBox "Slicni su :" & vbCr & MsgSlicni End If Kraj: End Sub

zxz

22.02.2012 21:55

Predmet:Re: Usporedba stringa

Evo ovaj kod ce raditi.
Zeza me redim sto ne radi ko u pravom vb-u

PreuzmiIzvorni kôd (Visual Basic):

Private Sub txtUpit_BeforeUpdate(Cancel As Integer)
Dim Rs As Recordset
Dim Db As Database
Dim Podatak(1 To 2) As String, Znak As String, MsgSlicni As String
Dim I As Integer, Duz As Integer, Poeni As Integer, Stanje As Single
Dim Poz As Integer, StartP As Integer
If IsNull(Me.txtUpit) Then GoTo Kraj
Podatak(1) = Me.txtUpit
Duz = Len(Podatak(1))
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT Firma FROM TblPartneri")
Do While Not Rs.EOF
Podatak(2) = Rs.Fields(0)
For I = 1 To Duz
If I = 1 Then
StartP = 1
Else
StartP = I - 1
End If
Znak = Mid(Podatak(1), I, 1)
Poz = InStr(StartP, Podatak(2), Znak)
If Poz = I + 1 Or Poz = I Or Poz = I - 1 Then
Poeni = Poeni + 1
End If
Next I
Stanje = Poeni / Duz
Poeni = 0
Poz = InStr(1, Podatak(2), Podatak(1))
If Poz > 0 Then Stanje = 1
If Stanje > 0.7 Then
MsgSlicni = MsgSlicni & vbCr & Podatak(2)
End If
Rs.MoveNext
Loop
Rs.Close
If MsgSlicni <> "" Then
MsgBox "Slicni su :" & vbCr & MsgSlicni
End If
Kraj:
End Sub