Kodi PHP:
Option Compare Database
Private Sub cmdKerkoj_Click()
lstRezultati.RowSource = vbEmbtyString
txtKerkim.SetFocus
If txtKerkim.Text <> "" Then
Select Case optGrupi
Case 1
kerko Emri.Name, txtKerkim.Text
Case 2
kerko Mbiemri.Name, txtKerkim.Text
Case 3
kerko ID.Name, txtKerkim.Text
Case Else
MsgBox "aktivizo nje kolone per te kerkuar!"
End Select
Else
MsgBox "shkruaj se pari cfare do kerkosh!"
End If
End Sub
Private Sub kerko(textKolona As String, textKerkim As String)
Dim databaza As DAO.Database
Dim rekordseti As DAO.Recordset
Dim komandaSQL As String
Dim tabela As TableDef
Dim rekordsetiX As Recordset
Dim tblName As String
Set databaza = CurrentDb
tblName = "tblTemp"
mbyll_raportet
fshij_tabelen databaza, tblName
krijo_tabelen databaza, tblName
komandaSQL = "SELECT * FROM tblEmploye WHERE (" & textKolona & " LIKE '*" & textKerkim & "*')"
Set rekordseti = databaza.OpenRecordset(komandaSQL)
Set rekordsetiX = databaza.OpenRecordset(tblName)
Do While Not rekordseti.EOF
lstRezultati.AddItem rekordseti.Fields("Emri") & _
" ---> " & rekordseti.Fields("Mbiemri") & " ---> " & rekordseti.Fields("ID")
fut_vlera_tabele rekordsetiX, rekordseti.Fields("ID"), _
rekordseti.Fields("Emri"), rekordseti.Fields("Mbiemri")
rekordseti.MoveNext
Loop
rekordseti.Close
databaza.Close
Set rekordseti = Nothing
Set databaza = Nothing
Dim stDocName As String
stDocName = "berEmployee"
DoCmd.OpenReport stDocName, acPreview, , , acWindowNormal
End Sub
Public Sub mbyll_raportet()
Do While Reports.Count > 0
DoCmd.Close acReport, Reports(0).Name
Loop
End Sub
Public Sub fut_vlera_tabele(rekordsetiX, strId As String, _
strEmri As String, strMbiemri As String)
With rekordsetiX
.AddNew
!ID = strId
!Emri = strEmri
!Mbiemri = strMbiemri
.Update
.Bookmark = .LastModified
End With
End Sub
Public Sub krijo_tabelen(ByRef databaza, tblName)
Set tabela = databaza.CreateTableDef(tblName)
With tabela
Set Feld1 = .CreateField("ID", dbText, 12)
Set Feld2 = .CreateField("Emri", dbText, 25)
Set Feld3 = .CreateField("Mbiemri", dbText, 25)
.Fields.Append Feld1
.Fields.Append Feld2
.Fields.Append Feld3
End With
databaza.TableDefs.Append tabela
End Sub
Public Sub fshij_tabelen(ByRef databaza, tblName)
Dim i
For i = 0 To databaza.TableDefs.Count - 1
If databaza.TableDefs(i).Name = tblName Then
databaza.TableDefs.Delete tblName
Exit Sub
End If
Next i
End Sub
Krijoni Kontakt