• MP3

    Ramal Israfilov 3 new mp3
    Ramal İsrafilov ifasında 3 yeni mahnı "Nə Bağ Bildi" , "Qəşəng Qəşəng" + Bonus "Dön Geri Gəl"

    Xəbərə keç

  • Xəbərlər

    Eurovision 2012 - Natiq Ritm Qrupu'nun əsrarəngiz səhnə quruluşu
    Natiq Ritm Qrupu'nun əsrarəngiz səhnə quruluşu

    Xəbərə keç

  • Xəbərlər

    Eurovision 2012'in 1ci yarımfinalının nəticələri məlum oldu - Siyahı
    Eurovision 10 finalçısı məlum oldu..

    Xəbərə keç

  • MP3

    Anar Bəylər - Oyansın Xəritələr / Official Video + Mp3
    Azərbaycan'lı ifaçının klipinin premyerası ello TV-də!

    Xəbərə keç

  • Xəbərlər

    "Eurovision 2012" səhnəsinə qədim Qavaldaşı gətirilib
    Bu gün müsabiqənin ilk yarımfinalında nümayiş olunacaq interval aktının məşqi keçirilib..

    Xəbərə keç

Visual Basic ilə Verilənlər Bazasına giriş Bölmə:Kompüter aləmi
Müəllif: Metleb_Akberli | Tarix: 25 Oktyabr 2010 | Baxış sayı: (1558)  

Visual Basic barədə qısa məlumat


İlk vizual proqram dili olraq Visual Basic idi. Bu proqramlaşdırma dilinin 1993-cü ildən yaradılmasına baxmayaraq hal-hazırda da ən müasir proqramlaşdırma dillərindən biridir.
Visual Basic-i yüklədikdə displeyin ekranında 4 pəncərə açılır. Onlar aşağıdakılardır:
1) Menu. Bu pəncərəyə əsas pəncərə də deyirlər. İstifadə olunacaq komponentlər bu pəncərədə yerləşir.

Visual Basic ilə Verilənlər Bazasına giriş


2) FormBu pəncərə gələcək proqramın görünüşünü göstərir.

Visual Basic ilə Verilənlər Bazasına giriş


Properties. Form üzərində yerləşən hər bir elementin xarici görünüşü bu pəncərədə müəyyən oluna bilər.


Code Editor. Bu pəncərədə isə proqramın mətni yazılır. Code Editor və Form pəncərələri arasında böyük əlaqə var. Belə ki, Form üzərində edilən hər bir dəyişiklik Code Editor-da özünü biruzə verir və tərsinə.


Bütün proqramlaşdırma dilləri kimi Visual Basic proqramlaşdırma dilinin də çox böyük imkanları vardır. Bu imkanlardan ən əsaslarından biri verilənlər bazası ilə əlaqədardır.


Verilənlər bazası haqqında


erilənlər bazası fayllarda saxlanılan təşkil olunmuş informasiya yığımıdır. Verilənlər bazası fayllarda mətn, cədvəl və başqa şəkillərdə saxlanıla bilər. Əsasən cədvəl şəkilli verilənlər bazasından istifadə olunur.
Son zamanlar bir çox tətbiqi proqramlar yaranmışdır ki, bunların vasitəsi ilə verilənlər bazası yaratmaq olduqca asandır. Bu proqramlardan Oracle, Microsoft SQL Server, Microsoft Access, Microsoft FoxPro, Btrieve, Paradox və s. adlarını çəkmək olar. Adları çəkilən verilənlər bazası içərisindən ən ehtibarlı və gözəl struktura malik olanları Oracle, Microsoft SQL Server, Microsoft Access bazalarıdır. Biz də bu proqramda Microsoft SQL Server verilənlər bazasını idarə edən sistemdən istifadə edəcəyik. Bu sistemin görünüşü aşağıdakı kimidir:


Yeni cədvəl yaratmaq üçün aşağıdakı ardıcıllıqla hərəkət etmək lazımdır.
Microsoft Sql Server==>Sql Server Group==>Sql Server name==>Databases==> Database name==>Tables==>New Table
Bu ardıcıllıqdan sonra ekranda yeni pəncərə açılır. Bu pəncərə Create Table pəncərəsidir ki, burada əvvəlcə yaradılacaq cədvəlin adı daxil olunur və OK düyməsini sıxdıqda yeni pəncərə açılır ki, bu pəncərədə cədvəlin strukturu qurulur. Bu pəncərənin ümumi görünüşü aşağıdakı kimidir

Burada bir neçə parametrlər verilir ki, biz onlardan yalnız əsasları haqqında qısa məlumat verəcəyik. Onlar aşağıdakılardır:
Column Name- cədvəlin sütununun adını,
DataType- cədvəlin sütun elementlərinin tipini,
Length- cədvəlin həmin sütun üzrə sətir elementlərinin sayını,
Allow Nulls- sütunun həmişə qiymət alıb-almamasını göstərir.
Cədvəlin hansısa sütununun açar rolunu oynamasını göstərmək üçün həmin sütunun adının üzərinə siçanın sağ düyməsini vurmaqla və Set Primary Key düyməsini basmaqla göstərmək olar.
Bu cədvəli bizə lazım olan qaydada doldurduqdan sonra Save düyməsini sıxırıq. Beləliklə cədvəl hazır olur.


PROQRAM


Proqramı yazmamışdan əvvəl onun nə iş görəcəyini aydınlaşdıraq. Proqramın konkret işi aşağıdakılardır:
Name, SurName, Fathers Name, Adress, Phone, Birthday adlı sütunlardan ibarət „Clients” adlı bir cədvəl hazırlamaq və bu cədvəl üzərində sətri əlavə etmək, silmək, redaktə etmək və istənilən sütun üzərində axtarış əməliyyatını realizə etmək.
Bütün bunları həyata keçirmək üçün əvvəlcə „Clients”adlı bir cədvəl yaratmaq lazımdır. Belə ki, cədvəlin sütunlarının adı, tipi, ölçüsü uyğun olaraq aşağıdakı kimi olsun:
1) Name CHAR 20
2) SurName CHAR 25
3) Fathers Name CHAR 20
4) Telephone CHAR 12
5) BirthDay DATETIME -
Bu sütunlardan heç biri açar rolunu oynamır.
Cədvəl hazır olduqdan sonra proqramı yaza bilərik. Əvvəlcə proqramın xarici görünüşünü düzəldək. Bunun üçün aşağıdı sadalanan komponentlərdən istifadə edəjəyik:
Form, Label, CommandButton, DataGrid, Adodc, TextBox, ComboBox.
Bu komponentlərdən istifadə edərək proqramın əsas pəncərəsini

Visual Basic ilə Verilənlər Bazasına giriş


Form üzərində bütün bu komponentləri yerləşdirdikdən sonra proqramın mətnini yazaq. Lakin əvvəlcə „Clients” adlı cədvələ qoşulaq. Bunun üçün DataGrid və Adodc arasında qarşılıqlı əlaqə yaradaq. DataGrid komponentinin DataSourse bölməsinə Adodc, Adodc komponentinin Connection String bölməsinə isə
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=baza; Data Source=ws23" mənimsədək. Bu əməliyyatlardan sonra DataGrid jədvəli ilə „Clients” adlı cədvəl arasında qarşılıqlı asılılıq alırıq. İndi isə cədvəl üzərində aşağıdakı əməliyyatları realizə edək.
1) Əlavə etmək əməliyyatı.
Əvvəlcə Form üzərində 6 dənə Label, 6 dənə TextBox, 4 dənə CommandButton, 1 dənə DataGrid və 1 dənə Adodc komponentlərini yerləşdiririk. Label komponentlərinin Caption bölməsinə ardıcıl olaraq cədvəlin sütunlarının adlarını TextBox komponentlərinin Text bölməsinə boşluq, CommandButton komponentlərinin Caption bölməsinə isə ardıcıl olaraq „Add”, „Delete”, „Find”, „Exit” sözünü mənimsədirik. Bütün bunlar Properties hissəsində həyata keçirilir.
Belə tip proqramları yazmaq üçün Adodc adlı komponentdən istifadə edilir. Adodc komponenti cədvəl üzərində yeni sətir əlavə etmək, sətirin istənilən yazısı üzərində dəyişiklik etmək, istənilən sətiri silmək və s. əməliyyatları realizə etməyə imkan verir. Beləliklə, əlavə etmək əməliyyatının proqramı aşağıdakı kimi olur:
Private Sub add_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then
MsgBox ("Bosh xanalari doldurun!")
Else
Adodc.Recordset.AddNew
Adodc.Recordset.Fields(0) = Text1.Text
Adodc.Recordset.Fields(1) = Text2.Text
Adodc.Recordset.Fields(2) = Text3.Text
Adodc.Recordset.Fields(3) = Text4.Text
Adodc.Recordset.Fields(4) = Text5.Text
Adodc.Recordset.Fields(5) = Text6.Text
Adodc.Recordset.MoveNext
Adodc.Refresh
table.Refresh
End If
End Sub
2) Sətirin pozulması əməliyyatı.
Artıq DataGrid və „Clients” adlı cədvəl arasında əlaqə var. Əgər cədvəldən istədiyimiz sətiri pozmaq istəyiriksə, kursoru cədvəlin istədiyimiz sətirinin üzərində saxlayırıq və pozma əməliyyatını həyata keçiririk. Proqramın kodu isə aşağıdakı kimidir.
Private Sub delete_Click()
Adodc.Recordset.delete
Adodc.Refresh
table.Refresh
End Sub
3)Redaktə etmək əməliyyatı.
Cədvəl üzərində redaktə etmək üçün Form üzərində yerləşən DataGrid komponentinin istənilən sətirinin üzərinə siçanın sol düyməsi ilə vurub, istədiyimiz dəyişiklikləri edə bilərik.
4)Axtarış əməliyyatı.
Bu əməliyyatı realizə etmək üçün əlavə Form-dan istifadə olunur. Axtarış əməliyyatının strukturu aşağıdakı kimidir.
Əvvəlcə əsas formanın üzərində yerləşən Find adlı düymə sıxılır. Bu zaman ekranda yeni pəncərə açılır ki, bu pəncərənin görünüşü

Visual Basic ilə Verilənlər Bazasına giriş


Bu Form üzərində 2 dənə Label, 2 dənə CommandButton, TextBox, ComboBox, DataGrid və Adodc komponentləri vardır. TextBox komponentinin Text bölməsinə boşluq, Label1, Label2, Command1 və Command2 komponentinin Caption bölməsinə isə uyğün olaraq „Find By”, „Write word” , „Ok” və „Cancel” mənimsədirik. Belə ki, Ok düyməsi sıxıldıqda ComboBox komponentində verilən sütuna uyğun olaraq TextBox komponentinə mənimsədilmiş söz axtarılır, Cancel düyməsi sıxıldıqda isə axtarış üçün hazırlanan pəncərə bağlanılır və proqram əvvəlki vəziyyətinə qayıdır və axtarış əməliyyatı həyata keçirilmir
Axtarış əməliyyatının proqramının kodu isə aşağıdakı kimidir:
Private Sub Command1_Click()
With Adodc
ConnectionString = "Provider=SQLOLEDB.1; Persist Security Info=False;User ID=sa;Initial catalog=baza; Data Source=ws23"
UserName = sa
Password = ""
CommandType = adCmdText
RecordSource = "select * from clients where " + Combo1.Text + " ='" + Text1.Text + "'"
End With
Adodc.Refresh
table.Refresh
End Sub
Göründüyü kimi burada Transact-SQL dilindən istifadə olunub. Daha dəqiq desək, burada bir əmrdən istifadə olunub. Bu əmrin tam yazılış forması aşağıdakı kimidir:
SeLECT select_list
[INTO new_table_]
FROM table_source
[WHERE search_condition]
[GROUP BY group_by_expression]
[HAVING search_condition]
[ORDER BY order_expression [ASC | DESC] ]
Bu əmr vasitəsilə əsasən axtarış əməliyyatları realizə olunur. Burada əsas parametrlər aşağıdakılardır:
1) Select-bu parametr axtarışın nəticələrinin hansı sütunlar üzərində göstərəcəyini təyin edir. Belə ki, burada istənilən qədər sütunlar göstərilə bilər.
2) From-bu parametr isə axtarışın hansı cədvəl üzərində aparılacağını göstərir. Burada da istənilən qədər cadvəlin adını göstərmək olar.
3) Where-bu parametr axtarışın hansı üsulla aparılmasını göstərir. Daha dəqiq desək burada axtarışın hansı şərtlər daxilində aparılacığı göstərilir.
4) Order by-parametri isə aparılacaq axtarışın nəticəsinin hansı ardıcıllıqla verilməsini göstərir. Burada da parametr olaraq sütunun adı verilir və nəticə həmin sütuna uyğun olaraq nizamlanmış şəkildə verilir.
İndi isə proqramı tam olaraq yazaq.


Private Sub add_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then
MsgBox ("Bosh xanalari doldurun!")
Else
Adodc.Recordset.AddNew
Adodc.Recordset.Fields(0) = Text1.Text
Adodc.Recordset.Fields(1) = Text2.Text
Adodc.Recordset.Fields(2) = Text3.Text
Adodc.Recordset.Fields(3) = Text4.Text
Adodc.Recordset.Fields(4) = Text5.Text
Adodc.Recordset.Fields(5) = Text6.Text
Adodc.Recordset.MoveNext
Adodc.Refresh
table.Refresh
End If
End Sub

Private Sub delete_Click()
Adodc.Recordset.delete
Adodc.Refresh
table.Refresh
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub find_Click()
Form2.Show
End Sub

Private Sub Form_Load()
With Adodc
.ConnectionString = "Provider=SQLOLEDB.1; Persist Security Info=False;User ID=sa;Initial Catalog=baza; Data Source=ws23"
.UserName = sa
.Password = ""
.CommandType = adCmdText
.RecordSource = "select * from clients"
End With
Adodc.Refresh
End Sub

Private Sub Command1_Click()
With Adodc
.ConnectionString = "Provider=SQLOLEDB.1; Persist Security Info=False;User ID=sa;Initial Catalog=baza; Data Source=ws23"
.UserName = sa
.Password = ""
.CommandType = adCmdText
.RecordSource = "select * from clients where " + Combo1.Text + " ='" + Text1.Text + "'"
End With
Adodc.Refresh
table.Refresh
End Sub

Private Sub Command2_Click()
Form2.Hide
End Sub






Hələlik bəyənən yoxdur.

 (səs sayı: 0)
 Şərhlər (1) Çap etmək

Oxşar xəbərlər

  • Insofta 3D Text Commander
  • İnternet-3
  • İnternet-2
  • Client for Google Translate PRO 4.5.381 (Eng) Portable + Dictionaries
  • İnternetdə 1 dəqiqə ərzində nələr baş verir? - Cədvəl
    		•
    #1 :: Müəllif: Capitol :: 25 Oktyabr 2010 15:55


    Xəbərlər: 773
    Şərhlər: 1923
    sql dilindən daha rahat sintsaksislə istifadə olunsaydl daha rahat olardı, ama heyf bu bizden asılı deyil)) Heyf deyil php-de mysql-e qoşulma, çox rahatdı. Neise, düşünürem bu çox istifadəçi üçün maraqsız olar

    ---------------
    Məlumat
    "Qonaq" kimi daxil olan ziyarətçilər saytda rəylərin bildirə bilməzlər.Zəhmət olmasa qeydiyyatdan keçin və ya öz hesabınızla sayta daxil olun!
    Ana səhifə
    mp3.Mid.az
    forum.Mid.az
    m.Mid.az
    wap.Mid.az