Kodi PHP:
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
'ndryshorja per linkun e databazes
Dim linkuDatabazes = "D:\Baza.mdb"
'ndryshorja publike per lidhjen e databazes me visual basic
Public lidhja As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & linkuDatabazes)
Dim lexuesiDB As OleDbDataReader
Dim indexi As Integer
Dim emriSelektuar As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstEmrat.Columns.Add("Id", 30)
lstEmrat.Columns.Add("Emri", 140)
lstEmrat.View = View.Details
lstEmrat.GridLines = True
lexoRekordetNeListe()
lstEmrat.FullRowSelect = True
End Sub
Private Sub cmdRuaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRuaj.Click
'vertetimi nese kemi shkruar nje emer
If Trim(txtEmri.Text).Length > 0 Then
If kontrolloEmrinNeDatabaze(txtEmri.Text) = False Then
'provo ekzekutimin e kodit
Try
'hap lidhjen me databaze
lidhja.Open()
Dim emriTabeles = "tbl_Emrat"
Dim emriKolones = "TEmri"
'ndryshorja me komanden per futjen e emrit ne databaze
Dim komanda As New OleDb.OleDbCommand("INSERT INTO " & emriTabeles & " (" & emriKolones & ") VALUES('" & Trim(txtEmri.Text) & "')", lidhja)
'ekzekuto komanden
komanda.ExecuteNonQuery()
'perfundo lidhjen me databaze
lidhja.Close()
lstEmrat.Items.Clear()
Call lexoRekordetNeListe()
'shfaq nje informacion per ruajtjen e emrit ne databaze
lblInfo.Text = "Emri """ & Trim(txtEmri.Text) & """ u fut ne Databaze!"
txtIndexi.Text = 0
txtEmri.Text = ""
Catch ex As Exception
'ne rast se ndodh gabim gjate ekzekutimit, shfaqet nje gabim me pershkrim
MessageBox.Show(ex.Message, "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Emri """ & Trim(txtEmri.Text) & """ ekziston ne Databaze!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Else
'nese kutia per futjen e emrit eshte e zbrazet, do te shfaqet nje gabim
MessageBox.Show("Jeni i verber? Nuk e shifni se mungon emri!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Function kontrolloEmrinNeDatabaze(ByVal strEmri As String) As Boolean
Dim b As Boolean = False
lidhja.Open()
Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Emrat", lidhja)
lexuesiDB = komanda.ExecuteReader
While lexuesiDB.Read()
If strEmri = lexuesiDB("TEmri") Then
b = True
End If
End While
lidhja.Close()
If b = True Then
kontrolloEmrinNeDatabaze = True
Else
kontrolloEmrinNeDatabaze = False
End If
End Function
Sub lexoRekordetNeListe()
lidhja.Open()
Dim komanda As New OleDb.OleDbCommand("SELECT * FROM tbl_Emrat", lidhja)
lexuesiDB = komanda.ExecuteReader
While lexuesiDB.Read()
futRekordetNeListe(lstEmrat, lexuesiDB("Id"), lexuesiDB("TEmri"))
End While
lidhja.Close()
End Sub
Public Sub futRekordetNeListe(ByVal lstEmrat As ListView, ByVal id As Integer, ByVal emri As String)
Dim rreshtiListes As New ListViewItem
lstEmrat.Items.Add(rreshtiListes)
rreshtiListes.Text = id
rreshtiListes.SubItems.Add(emri)
End Sub
Private Sub lstEmrat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstEmrat.Click
Dim i As Integer
For i = 0 To Me.lstEmrat.Items.Count - 1
If lstEmrat.Items(i).Selected = True Then
txtEmri.Text = lstEmrat.Items(i).SubItems(1).Text
txtIndexi.Text = lstEmrat.Items(i).SubItems(0).Text
emriSelektuar = lstEmrat.Items(i).SubItems(1).Text
Exit For
End If
Next
lblInfo.Text = ""
lstEmrat.Focus()
lstEmrat.FullRowSelect = True
End Sub
Private Sub cmdFshij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFshij.Click
If Trim(txtIndexi.Text).Length > 0 Then
Dim msgResultati As MsgBoxResult
msgResultati = MsgBox("Deshironi vertete te fshini emrin """ & txtEmri.Text & """ nga databaza?", MsgBoxStyle.YesNo, "Kujdes:")
If msgResultati = MsgBoxResult.Yes Then
Try
lidhja.Open()
Dim cmd As New OleDb.OleDbCommand("DELETE * FROM tbl_Emrat WHERE TEmri='" & Me.txtEmri.Text & "'", lidhja)
cmd.ExecuteNonQuery()
lidhja.Close()
lstEmrat.Items.Clear()
lexoRekordetNeListe()
lblInfo.Text = "Emri """ & txtEmri.Text & """ u fshi nga Databaza!"
txtIndexi.Text = 0
txtEmri.Text = ""
Catch ex As Exception
'ne rast se ndodh gabim gjate ekzekutimit, shfaqet nje gabim me pershkrim
MessageBox.Show(ex.Message, "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
End If
Else
MessageBox.Show("Nuk keni zgjedhur nje emer per ta fshire nga databaza!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Private Sub cmdAktualizo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAktualizo.Click
If txtIndexi.Text > 0 Then
If emriSelektuar <> txtEmri.Text Then
If Trim(txtEmri.Text).Length > 0 Then
Try
lidhja.Open()
Dim komanda As New OleDb.OleDbCommand("UPDATE tbl_Emrat SET TEmri='" & txtEmri.Text & "' WHERE Id=" & txtIndexi.Text & "", lidhja)
komanda.ExecuteNonQuery()
lidhja.Close()
lstEmrat.Items.Clear()
Call lexoRekordetNeListe()
txtIndexi.Text = 0
emriSelektuar = txtEmri.Text
lblInfo.Text = "Emri """ & txtEmri.Text & """ u aktualizua ne databaze!"
Catch ex As Exception
'lidhja.Close()
'ne rast se ndodh gabim gjate ekzekutimit, shfaqet nje gabim me pershkrim
MessageBox.Show(ex.Message, "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Emri """ & emriSelektuar & """ nuk mund te aktualizohet me zbrazetire!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Else
MessageBox.Show("Emri """ & emriSelektuar & """ ne databaze eshte i njejte me emrin """ & txtEmri.Text & """ dhe nuk ka nevoje te aktualizohet!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Else
MessageBox.Show("Nuk keni zgjedhur nje emer ne liste per ta aktualizuar!", "Ndodhi nje gabim:", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class
Krijoni Kontakt