Access Veri Tabanı Oluşturma (Yardım = Acil Lütven )

[cehesto]

Sa. Arkadaşlar Öncelikle Bu Konuda Cok kısa bir zamanda büyük bir yardıma ihtiyacım var..
Ben 10.sınıf bir bilişim teknolojisi Öğrencisiyim.. Hocamız Dönem ödevi olarak Arama algoritmalarını verdi.. Arama algoritmaları 3 türmüş. 1-sıralı arama , 2- ikilik arama ve Son olarak başımın belası olan 3 - Kıyma Yöntemi ..

Şimdi benim sizlerden ricam Bu Kıyma yönteminde aşağıda gördüğünüz gibi resimde DataGridView Üzerine Bir Veri tabanı oluşturulmuş Access yada herhangi bir veri tabanı programı kullanmayı bilmiyorum.. sanırsam acceess den yapmışlar.. Benimde Sizlerden Ricam Bu Veri tabanını nasıl yapabilrim Söylemeniz..

İşte Resim...





Programın Yapılacağı Kod:

Dim Maksimum As Integer = 5
Dim Dizi(,) As Integer
Dim i, j, Aranan As Integer
Private Sub Form1_Load
ReDim Dizi(Maksimum, Maksimum)
Dim kiymaDegeri, Sayac, Saklanan, Dur As Integer
Dim metin As String
Randomize()
For i = 1 To Maksimum 'dikey değerler
For j = 1 To Maksimum 'yatay değerler
Dizi(i, j) = 0
Next j
Next i
DataGridView1.Rows.Add(5)
Sayac = 1 : metin = ""
For J = 1 To Maksimum
Dur = 0
Saklanan = Int(Rnd(1) * 100) + 1
kiymaDegeri = Saklanan - (Int(Saklanan / 5) * 5)
While Dur <> 1
If Dizi(Sayac, kiymaDegeri) = 0 Then
Dizi(Sayac, kiymaDegeri) = Saklanan
Dur = 1
Else
Sayac += 1
End If
DataGridView1.Item(kiymaDegeri, Sayac - 1).Value = Saklanan
End While
metin &= Saklanan & Space$(1)
Next J
Label2.Text = metin
End Sub
Private Sub Button1_Click
Dim kiymaDegeri, Aranan As Integer
Aranan = TextBox1.Text
kiymaDegeri = Aranan - (Int(Aranan / 5) * 5) + 1
If Dizi(1, kiymaDegeri) = 0 Then
MsgBox("Aranan değer bulunamadı.")
Else
MsgBox(kiymaDegeri & ". sütunda bulundu")
End If
End Sub

Saygılarımla..

Arkadaşlar bi el atsanız.. Lütven

Arkadaşlar Çok Acil bi ilgilenseniz...

 

[ReddeviL10]

wallahi anlasam sana yardımcı olurum bende bi konuda tıkandım..

 

[cehesto]

saoLAsın.. Kardeim Ama HackheLL gibi Büyük bi forumun değerLi üyelerinden Yardım İstedim senden başka kimse cevap bile yazma tenezülünde buLunmamış... Hepinizden Allah razı oLsun...

 

[omer_425]

şu arama türlerini biraz açıklasan...

 

[cehesto]

Kardeşim aslında Acıklanşak şeyi yok örnek kodlarla vb den 2 tanesini yaptım bir kıyma yöntemi kaLdı bu yöntem genellikle banka hesaplarına fln kullanılan yani bir veri tabanı üzerinden bilgileri alan arama türüymüş. diğerleri direk 5 sayı var 5.ci sırada bulundu gibi . Bunda ise Bir veri tabanı gerekior Access Şart deiL ama resimdeki gibi basit bişey oluşturmuşlar.. ßen access anlamadığım icin yapamadım 2 günüm kaLdı Lütfn allah rızası icin biLen birisi yazsın