BASKALE.NETGOO

BASKALE.NETGOO

BLUE-MOON-HACKERTEAM
 
AnasayfaAnasayfa  GaleriGaleri  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Delphi Derleyicileri Başlığı
Paz Şub. 20, 2011 12:53 am tarafından byhuysuz

» Modemi hızlandırma
C.tesi Şub. 19, 2011 2:17 pm tarafından byhuysuz

» Visual Studio 2010 Yükle Sadece [10mb]
C.tesi Şub. 19, 2011 12:16 pm tarafından byhuysuz

» Adobe'nin Bütün Versiyonları İçin Crack
Salı Şub. 15, 2011 9:25 pm tarafından byhuysuz

» 1st javascript Editor Professional Edition v5.1 | 8.11 Mb
Salı Şub. 08, 2011 3:35 pm tarafından byhuysuz

» 30 Sn'de [Pc Çökertme + Panzehir]
Ptsi Şub. 07, 2011 4:13 pm tarafından byhuysuz

» Java Görsel Eğitim Seti
Ptsi Ağus. 09, 2010 9:32 pm tarafından admin

» Programlamaya Nereden Baslamali?
Ptsi Ağus. 09, 2010 9:30 pm tarafından admin

» C / C++ E-Book Paylaşımı
Ptsi Ağus. 09, 2010 9:29 pm tarafından admin

» C dilinde basit bir mayın tarlası programı
Ptsi Ağus. 09, 2010 9:05 pm tarafından admin

» Delphi 7 Katılımsız Full | 150mb |
Ptsi Ağus. 09, 2010 8:58 pm tarafından admin

» Delphi 1
Ptsi Ağus. 09, 2010 8:57 pm tarafından admin

» İnternetle İlgili Doğru Sanılan Efsaneler
Ptsi Ağus. 09, 2010 8:54 pm tarafından admin

» Tek Tip Şarj Cihazı Dönemi Başlıyor ..
Ptsi Ağus. 09, 2010 8:53 pm tarafından admin

» Türk mucitten 7 boyutlu sinema
Ptsi Ağus. 09, 2010 8:52 pm tarafından admin

» Schrödinger’in Kedisi | Hem Ölü Hem Canlı
Ptsi Ağus. 09, 2010 8:51 pm tarafından admin

» Win Vista Püf Noktaları ve Optimizasyon
Ptsi Ağus. 09, 2010 8:48 pm tarafından admin

» Bölüm İndex
Ptsi Ağus. 09, 2010 8:47 pm tarafından admin

» Win 7 Püf Noktaları ve Optimizasyon
Ptsi Ağus. 09, 2010 8:45 pm tarafından admin

» Win Xp Püf Noktaları ve Optimizasyon
Ptsi Ağus. 09, 2010 8:44 pm tarafından admin

» Yeni Güvenlik Uygulamalarımız (2010)
Ptsi Ağus. 09, 2010 8:43 pm tarafından admin

» Önemli Olan Güvenlik İse?
Ptsi Ağus. 09, 2010 8:42 pm tarafından admin

» Perl ve Python Exploit Bilgisi (Bug-Res)
Ptsi Ağus. 09, 2010 8:41 pm tarafından admin

» Sonu Olmayan Bir Hack Dökümanı Bug-Res
Ptsi Ağus. 09, 2010 8:40 pm tarafından admin

» Hacking Interface Kitabı - X-Master
Ptsi Ağus. 09, 2010 8:38 pm tarafından admin

» Bug Nedir? Nasıl Oluşur/Bulunur? Bug-Res
Ptsi Ağus. 09, 2010 8:37 pm tarafından admin

» Gerçek Pc Hızlandırma(Uçak Gibi)
Cuma Ağus. 06, 2010 8:46 pm tarafından admin

» 50 Adet Hack Videosu Türkçe [Videolar]
Cuma Ağus. 06, 2010 8:45 pm tarafından admin

» İndexinize Bilgisayarınızdan Arka Plan Müziği||Mr.SoLucaN
Cuma Ağus. 06, 2010 8:44 pm tarafından admin

» Hatırlamadığınız Şifreyi Kırın! 2010
Cuma Ağus. 06, 2010 8:41 pm tarafından admin

» Adsl Hack - Adsl Hackleme - Adls Hack 2010
Cuma Ağus. 06, 2010 8:01 pm tarafından admin

» 2009 Full Anti-Virus Programları
Cuma Ağus. 06, 2010 7:58 pm tarafından admin

Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum

Paylaş | 
 

 Visualbasic 6.0 Access ve SQL Dersleri 1

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
YENİAJAN
spyajan
spyajan


Aktiflik :
0 / 9990 / 999

Mesaj Sayısı : 134
Yaş : 27
Kayıt tarihi : 23/07/08

MesajKonu: Visualbasic 6.0 Access ve SQL Dersleri 1   Cuma Tem. 25, 2008 3:29 pm

Visualbasic ile Access Arasında Baglantı Oluşturma


Visualbasic ile Access arasında 3 türlü baglantı oluşturabilinir. Bunlar;

ADO ADODC yöntemi ile
ODBC yöntemi ile
ADODB yöntemi ile


Adodc ile access arasında baglantı kurmak ;


Visualbasicte Araç Penceresine ADODC nesnesini yerleştirmek için Toolsa sag Tuşlayıp Componentsi seçebilir

Veya Tools Üzerinde CTRL+T tuşlayarak Component penceresi açılır.

Ve Çıkan listeden Microsoft ADO Data Control 6.0 Nesnesi seçilir.

Nesneyi Formumuza yerleştirdikten sonra Adodca sag tuşlanır ve ADODC Propertiesten Baglantı Use Connection

Radyo butonu secili haldeyken Build butonuna basarak Baglantımızı nasıl yapacagımız seçeriz.

Biz bu örnekte Microsoft Jet 4.0 OLE DB Provideri seçiyoruz.Ve Next Tuşlayarak Access Dosyamız nerede ise

Select or enter a Database name : adlı sahada dügmeye basarak Acces dosyamızı gösteriyoruz.

Test Connection dügmesine bastıgımızda baglantı saglandı demelidir. OK dügmesine basarak

ACCESS dosyamızı secmiş olduk.Şimdi basitce RecordSource Sekmesinden Command Source bölümünde

Table adlı alanı seciyoruz ve bir alt satırda Table or Stored Procedure Name hangi tablo ile calışacaksa o tabloyu

seciyoruz.

Örnek : Seçtigimiz Access Dosyası Adı Veritabanı.mdb seçtigimiz Tablo adı ise Kayitlar adlı tablodur.



Şimdi Bu kayıtlarımızı biz MSHFLEXGridde gösterelim.

Yine Component Toolsa Gelerek CTRL+T yapalım ve Listeden Microsoft Hierarchical FlexGrid 6.0 adlı componenti
Ekliyoruz.Ve Sonra Ekrana bu flexi yerleştiriyoruz.

Flexin F4 Properties Özelliklerinde Datasource bölümünde ADODC nesnesini gösteriyoruz.

Çalıştır dedigimiz an Ooo süper ekrana geldi tüm kayıtlar…



Yo Hayır kontrol benim elimin altında olsun ben select yöntemi kullanarak yapmak istiyorum derseniz.

Adodc1 Propertiesinde Tablo olarak sectigimiz Recordsource bolumunu AdCmdUNKOWN olarak
bıraktıktan sonra

Adodc1.RecordSource = "select * from kayitlar"
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Refresh



Örnegin belirli bir tarih aralıgı verip Flexte gösterelim
Adodc1.RecordSource = "select * from kayitlar where Tarih >='" & Trim(Text1.Text) & "'" and Tarih<='" & Trim(Text2.Text) & "'""
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Refresh



Kayıt Ekleme
Yukarıda anlattıklarımla Kayıtlarımıza ulaşmak icin 2 türlü yöntem secebiliyoruz,

Eger baglantımızı kendimiz yöneterek Adodc1.RecordSource = "select * from kayitlar" ile yaparsak

Kayıt ekleme kodları aşagıdaki gibi olur



Adodc1.Recordset.Addnew
Adodc1.Recordset!Adi=Text1.text
Adodc1.Recordset!Soyadi=Text2.text
Adodc1.Recordset!Yasi=Text3.text
Adodc1.Recordset:Update

Buraya kadar kayıtlarımızı iceriye kaydettigimizi belirtiyoruz,

Hem kaydetsin hemde flex üzerinde hızlıca gösterelim derseniz


Adodc1.Recordset.Addnew
Adodc1.Recordset!Adi=Text1.text
Adodc1.Recordset!Soyadi=Text2.text
Adodc1.Recordset!Yasi=Text3.text
Adodc1.Recordset:Update
‘Bu Satırlarıda update cumlesinden sonar koydugumuzda otomatikmen kayıtlarımızı görecegiz.
Adodc1.RecordSource = "select * from kayitlar “
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Refresh



Kayıtları Seçerek Textlere Aktarmak



Dim SQL As String
If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)) <> "" Then
Adodc1.RecordSource " SELECT * from Kayitlar Where ID = " & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4) ""
Text1.Text = adodc1.recordset!adi
Text2.Text = adodc1.recordset!soyadi
Text3.text=adodc1.recordset!yasi
Else
MsgBox "Başka Kayıt Bulunamadı", vbCritical, "Technology"
End If







Öncelikle şunu belirteyim arkadaşlar.Veritabanımızdaki Tablolarda herne olursa olsun mutlaka ama mutlaka her kaydın bir ID si olmalıdır,öylede yapın derim.Cok işinize yarayacaktır ID koymak.

Örnegin yukarıdaki tabloda Flex üzerinde isime gore degilde ID gore arama gerceklestirdim.E cunku aynı isimden birden fazla olabilir dimi ? E ama ID ise 1 tanedir. Yukarıdaki Kodu anlatmaya gelirsekte

Where Cümlesinde ID yi arıyorum,evet nerde arıyorum Flexin 4.Kolonunda arıyorum. Ben clickledigim an o ID yi tespit ediyor ve ekrana sadece o ID ye ait bilgileri textlere yazmaktadır.



2. Makalede Silme işlemleri,Kaydı Update İşlemleri ve ADODB ile tüm işlemleri anlatıcam.

Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.baskale.netgoo.org
 
Visualbasic 6.0 Access ve SQL Dersleri 1
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
BASKALE.NETGOO :: PROGRAM DİLLERİ (giriş) :: VisuaL Basic-
Buraya geçin: