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

pmiroslav	16.02.2012 22:22
Predmet:Usporedba stringa Opet ja. RazmiÅ¡ljam neÅ¡to kako napraviti proceduru koja bi usporedila string koji upisujem u formu, sa stringovima koji su več upisani u tablicu koja je vezana na tu formu i vrati neku poruku ako je string sličan onom koji je več upisan. Naime imam tablicu tblPartneri i ponekad se dogodi da korisnik upiÅ¡e podatke za partnera koji več postoji pa bi bilo interesantno da dobije poruku da več ima upisa pod tim ili sličnim imenom. Dali je to moguće s obzirom da partner moÅ¾e biti upisan pod imenom Ivanović Ivan, a novi upis bude Ivanović Ivo.

pmiroslav

16.02.2012 22:22

Predmet:Usporedba stringa

Opet ja.
RazmiÅ¡ljam neÅ¡to kako napraviti proceduru koja bi usporedila string koji upisujem u formu, sa stringovima koji su več upisani u tablicu koja je vezana na tu formu i vrati neku poruku ako je string sličan onom koji je več upisan.
Naime imam tablicu tblPartneri i ponekad se dogodi da korisnik upiÅ¡e podatke za partnera koji več postoji pa bi bilo interesantno da dobije poruku da več ima upisa pod tim ili sličnim imenom.
Dali je to moguće s obzirom da partner moÅ¾e biti upisan pod imenom Ivanović Ivan, a novi upis bude Ivanović Ivo.

zxz	17.02.2012 00:07
Predmet:Re: Usporedba stringa Evo ti procedura na ovom linku. Nadji Vrijednost

zxz

17.02.2012 00:07

Predmet:Re: Usporedba stringa

Evo ti procedura na ovom linku.

Nadji Vrijednost

pmiroslav	17.02.2012 12:27
Predmet:Re: Usporedba stringa Ovo radi dobro ali nije baÅ¡ to Å¡to sam mislio. Ja bih Å¾elio da mi procedura pronađe i string koji je sličan jer kupac moÅ¾e biti upisan kao Firma doo a ja upiÅ¡em Firma d.o.o. pa to za funkciju nije isto ili Ivan Ivanović i Ivo Ivanović evo neÅ¡to sam isprobavo u priloÅ¾enom primju ili neÅ¡to kao iz linka koji asm pronaÅ¡au Googlanjem. Primjer sa onom formom Text Compare ima uz nju i neki Kod koji ja baÅ¡ neznam kako koristiti Text compare link
Prilozi: Kupci.rar (Velicina datoteke:74.56 KB)

pmiroslav

17.02.2012 12:27

Predmet:Re: Usporedba stringa

Ovo radi dobro ali nije baÅ¡ to Å¡to sam mislio.
Ja bih Å¾elio da mi procedura pronađe i string koji je sličan jer kupac moÅ¾e biti upisan kao
Firma doo
a ja upiÅ¡em
Firma d.o.o. pa to za funkciju nije isto
ili
Ivan Ivanović
i
Ivo Ivanović

evo neÅ¡to sam isprobavo u priloÅ¾enom primju

ili neÅ¡to kao iz linka koji asm pronaÅ¡au Googlanjem. Primjer sa onom formom Text Compare ima uz nju i neki Kod koji ja baÅ¡ neznam kako koristiti
Text compare link

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

zxz	18.02.2012 16:06
Predmet:Re: Usporedba stringa Znam sta hoces i razmisljam sta bi bilo najbolje a da ne bude sporo. Nema nekog kvalitetnog rezultata sto se nebi pretrazila cijela baza svaki puta. Moglo bi se sa opciom INstr pa pojedinacno traziti svako slovo upisano pa provjeriti napr ako ima 90% pogodaka da to ponudi ili kako je napravljeno u combu i u exelu da nudi priilikom kucanja dok je isto. Ovo drugo i nebi sporo radilo jer nebi pretrazivao po bazi ali opnda nebi nasao ono d.o.o. ako je upisano vec doo. Ponudio bi nakon d ali takvih vjerovatno u bazi bude puno i dok ukuca tacku vise ne vrijedi.

zxz

18.02.2012 16:06

Predmet:Re: Usporedba stringa

Znam sta hoces i razmisljam sta bi bilo najbolje a da ne bude sporo.
Nema nekog kvalitetnog rezultata sto se nebi pretrazila cijela baza svaki puta.
Moglo bi se sa opciom INstr pa pojedinacno traziti svako slovo upisano pa provjeriti napr ako ima 90% pogodaka da to ponudi ili kako je napravljeno u combu i u exelu da nudi priilikom kucanja dok je isto.
Ovo drugo i nebi sporo radilo jer nebi pretrazivao po bazi ali opnda nebi nasao ono d.o.o. ako je upisano vec doo.
Ponudio bi nakon d ali takvih vjerovatno u bazi bude puno i dok ukuca tacku vise ne vrijedi.

zxz	18.02.2012 17:26
Predmet:Re: Usporedba stringa Evo probaj sa ovim PreuzmiIzvorni kôd (Visual Basic): Option Compare Database Option Explicit Private Sub txtUpit_BeforeUpdate(Cancel As Integer) Dim UpitT As String, Slovo As String * 1, Uslov As String Dim mySQL As String Dim rs As Recordset Dim Db As Database Dim Brojac As Integer, Reper As Integer Dim I As Integer Dim Str As String UpitT = Me.txtUpit & "" Str = "/.q,'- " Brojac = Len(UpitT) For I = 1 To Brojac Slovo = Mid(UpitT, I, 1) Reper = InStr(1, Str, Slovo) If Reper > 0 Then Uslov = Uslov & "" Else Uslov = Uslov & Slovo & "" End If Next I Set Db = CurrentDb mySQL = "SELECT FROM qryPartneri WHERE Firma Like '" & Uslov & "'" Set rs = Db.OpenRecordset(mySQL) If rs.RecordCount > 0 Then MsgBox UpitT & " Podatak postoji" Else MsgBox UpitT & " Podatak ne postoji" End If End Sub

zxz

18.02.2012 17:26

Predmet:Re: Usporedba stringa

Evo probaj sa ovim

PreuzmiIzvorni kôd (Visual Basic):

Option Compare Database
Option Explicit
Private Sub txtUpit_BeforeUpdate(Cancel As Integer)
Dim UpitT As String, Slovo As String * 1, Uslov As String
Dim mySQL As String
Dim rs As Recordset
Dim Db As Database
Dim Brojac As Integer, Reper As Integer
Dim I As Integer
Dim Str As String
UpitT = Me.txtUpit & "*"
Str = "/.q,'- "
Brojac = Len(UpitT)
For I = 1 To Brojac
Slovo = Mid(UpitT, I, 1)
Reper = InStr(1, Str, Slovo)
If Reper > 0 Then
Uslov = Uslov & "*"
Else
Uslov = Uslov & Slovo & "*"
End If
Next I
Set Db = CurrentDb
mySQL = "SELECT * FROM qryPartneri WHERE Firma Like '" & Uslov & "'"
Set rs = Db.OpenRecordset(mySQL)
If rs.RecordCount > 0 Then
MsgBox UpitT & " Podatak postoji"
Else
MsgBox UpitT & " Podatak ne postoji"
End If
End Sub

pmiroslav	19.02.2012 19:09
Predmet:Re: Usporedba stringa Citiraj zxz: `Str = "/.q,'- "` MoÅ¾eÅ¡ li mi molim te objesniti ovaj dio koda.

pmiroslav

19.02.2012 19:09

Predmet:Re: Usporedba stringa

Citiraj zxz:

Str = "/.q,'- "

MoÅ¾eÅ¡ li mi molim te objesniti ovaj dio koda.

zxz	19.02.2012 20:03
Predmet:Re: Usporedba stringa Da to su ti znakovi koji mogu biti u bazi a stavljas zvjezdicu umjesto njih u pretragi. Mozes ih prosiriti ili smanjiti po zelji.

zxz

19.02.2012 20:03

Predmet:Re: Usporedba stringa

Da to su ti znakovi koji mogu biti u bazi a stavljas zvjezdicu umjesto njih u pretragi.
Mozes ih prosiriti ili smanjiti po zelji.

pmiroslav	20.02.2012 15:11
Predmet:Re: Usporedba stringa Primjerio sam da procedura ne prepoznaje riječi koje u sebi imaju slovo LJ kao napr. Belje Ljiljana itd.
Prilozi: Kupci2.rar (Velicina datoteke:75.32 KB)

pmiroslav

20.02.2012 15:11

Predmet:Re: Usporedba stringa

Primjerio sam da procedura ne prepoznaje riječi koje u sebi imaju slovo LJ kao napr.
Belje
Ljiljana
itd.

Prilozi:
Kupci2.rar (Velicina datoteke:75.32 KB)

zxz	21.02.2012 21:39
Predmet:Re: Usporedba stringa Evo ti ova procedura. Mislim da ce ti bolje ova pasati od predhodne pa da ne popravljam nju. 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, Slicni(1 To 5) As String, Znak As String, MsgSlicni As String Dim I As Integer, Duz As Integer, Poeni As Integer, Stanje As Single, X As Integer 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 X = X + 1 Slicni(X) = Podatak(2) End If Rs.MoveNext Loop Rs.Close If X > 0 Then For I = 1 To X MsgSlicni = MsgSlicni & Slicni(I) & vbCr Next I MsgBox "Slicni su :" & vbCr & MsgSlicni End If Kraj: End Sub

zxz

21.02.2012 21:39

Predmet:Re: Usporedba stringa

Evo ti ova procedura.
Mislim da ce ti bolje ova pasati od predhodne pa da ne popravljam nju.

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, Slicni(1 To 5) As String, Znak As String, MsgSlicni As String
Dim I As Integer, Duz As Integer, Poeni As Integer, Stanje As Single, X As Integer
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
X = X + 1
Slicni(X) = Podatak(2)
End If
Rs.MoveNext
Loop
Rs.Close
If X > 0 Then
For I = 1 To X
MsgSlicni = MsgSlicni & Slicni(I) & vbCr
Next I
MsgBox "Slicni su :" & vbCr & MsgSlicni
End If
Kraj:
End Sub