1. PVP-KENTİ Konu Görüntüleme Yarışması Başlıyor
    Duyuruyu Kapat

Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

Konu, 'Görsel Programlama' kısmında KOStark tarafından paylaşıldı.

  1. KOStark

    KOStark Başarili Üye Kayıtlı Üye

    Mesajlar:
    4.025
    Beğenilen Mesajlar:
    234
    Merhaba,
    Bazı arkadaşlar detaylı bir şekilde anlatım istiyordu. Bende elimden geldiğince detaylara girerek anlatmaya çalışacağım. Umarım anlarsınız :eek:


    Hazırlayan: Gökhan Öztürk
    Amaç: SQL Manager'e bağlanmak. (Editör için)


    Başlıyoruz..

    [​IMG]


    • Visual Basic 6'yı açtığınızda karşınıza yukarıdaki ekran gelicektir.
    • Gelen ekrandaki seçeneklerden "Standart Exe" yi seçip "Aç" tuşuna basın.



    [​IMG]



    • Tıkladıktan sonra karşınıza boş bir pencere çıkıcak, bu bizim form penceremizdir. Nesnelerimizi bu pencereye aktaracağız.



    [​IMG]



    • Sol taraftaki (Siyah ile çizilmiş olan kısım) buttona tıklıyoruz daha sonra mausu forumun herhangibi bir yerine götürüp mausun sol tuşuna basılı tutarak buttonumuzu oluşturuyoruz. (Yeri ve şekli önemli değil)
    • Oluşturduktan sonra buttonumuzun üstündeki yazıyı değiştirmek için buttonumuza bir kere tıklıyoruz (İlk oluşturduysanız zaten tıklı olur) sağ tarafta (Properties) penceresinde tıkladığınız nesnenin özelliklerini yazar. Buttonumuzun yazısını değiştirmek için "Caption" sekmesinin yanındaki yazıyı değiştiriyoruz. (İlk buttonu oluşturduğunuzda "Command1" yazar)



    [​IMG]


    • Buttonumuzu oluşturduğumuz gibide şimdi bir text kutusu oluşturuyoruz. (Yeri ve şekli önemli değil)



    [​IMG]




    • Kodları yazmamız için kod sayfasına girmemiz gerekiyor. Bunun için formun boş bir yerine 2 defa tıklıyoruz.
    • Karşımıza gelen kod sayfasında
    Kod:
    Private Sub Form_Load()
    
    End Sub
    
    Kodu gelicek. Bu kodu silip,
    [LINK="Kodu Göster"][HIDE-REPLY]
    Kod:
    Dim pvpkenti As New ADODB.Connection
    Dim wrc As New ADODB.Recordset
    Private Sub Command1_Click()
    On Error GoTo hata
    With pvpkenti
    .CursorLocation = adUseClient
    .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1.Text & "'"
    .Open
    End With
    MsgBox "Bağlantı başarılı"
    Exit Sub
    hata:
    MsgBox "Bağlantı hatalı.", vbCritical, "Hata"
    Exit Sub
    End
    End Sub
    
    [/HIDE-REPLY][/LINK]Kodunu sayfaya yapıştırın.




    [​IMG]



    • Verdiğim kodu yapıştırdıktan sonra resimdeki (2) yazan çizgili bölümdeki "Form1" e 2 kere tıklayıp form sayfasına dönün.

    [SOLAAL]
    [​IMG][/SOLAAL]
    Form penceresinde döndükten sonra klavyenizden CTRL + T tuşlarına basarak Components sayfasını açın.
    Sayfa açıldıktan sonra listeden resimde gördüğünüz "Microsoft ADO Control 6.0 (OLEDB)"'yi bulup, yanındaki işareti aktif edin.
    Daha sonra "Tamam" buttonuna basarak pencereyi kapatın.
    Bu işlemi gerçekleştirdikten sonra Nesnelerinizin bulunduğu sekmeye yeni bir nesne gelicek.
    (Nesnenin resmi: [​IMG] )




    [​IMG]
    • Gelen bu yeni nesneyi, buttonu eklediğiniz gibi forma ekleyin. (Büyüklüğü ve yeri önemli değil)
    • Ekledikten sonra klavyenizden "F5" tuşuna basarak projenizi çalıştırabilirsiniz. (Yada resimdeki kırmızı seçili alandaki işarete tıklayın)


    [​IMG]


    • Çalıştırdığınızda karşınıza form penceresinin çalışır hali gelicek. Burada eklediğiniz text kutusuna database ismini yazıp, eklediğiniz buttona basın. Karşınıza "Bağlantı başarılı." kutusu çıkarsa başarmışsınız demektir. Eğer "Bağlantıda hata oluştu." derse bir yerde yanlışlık yaptınız demektir. :)


    • Ek olarak projenizi exeye çevirip dağıtabilmek için,
    • Üstteki menüden File > Make Project.exe ''yi seçin.
     
  2. KOStark

    KOStark Başarili Üye Kayıtlı Üye

    Mesajlar:
    4.025
    Beğenilen Mesajlar:
    234
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Eline sağlık Gökhan :)
     
  3. By_ZooM

    By_ZooM BANNED BANNED

    Mesajlar:
    38
    Beğenilen Mesajlar:
    0
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Evet Eline Sağlık Gökhan Derslerin Devamını Dilerim.:)
     
  4. OldBy_Bts

    OldBy_Bts <marquee><span style="background-color: rgb(0, 0, Kayıtlı Üye

    Mesajlar:
    254
    Beğenilen Mesajlar:
    1
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Ellerine Kollarına sağlık Çok Yararlı bir paylaşım olmuş...Ama Bazı siteler hemen üstlerine alınır :D
     
  5. Castro

    Castro BANNED BANNED

    Mesajlar:
    0
    Beğenilen Mesajlar:
    0
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Teşekkürler güzel olmuş , Sınavlar ne zaman Hocam :D
     
  6. sirreal911

    sirreal911 Yeni Üye Kayıtlı Üye

    Mesajlar:
    258
    Beğenilen Mesajlar:
    0
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    teşşekkürler hocam virtual basıc ' indirip başlıorum :=)
     
  7. KOStark

    KOStark Başarili Üye Kayıtlı Üye

    Mesajlar:
    4.025
    Beğenilen Mesajlar:
    234
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Eğer beğenilirse devamını getirebilirim.. hatta hazır projelerle işinizi kolaylaştırabilirim. (Beğenilmesini "Teşekkür" buttonunun kullanılmasıyla anlayabilirim.)
     
  8. Garfield

    Garfield BANNED BANNED

    Mesajlar:
    9
    Beğenilen Mesajlar:
    0
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Tesekkürler. Yararli Paylasim hö
     
  9. FLoЯa

    FLoЯa Yeni Üye Kayıtlı Üye

    Mesajlar:
    134
    Beğenilen Mesajlar:
    1
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    Teşekkür Ederim Bir Takım Dersleride Benden Gelicek İnşallah :)
     
  10. iMacC4Ever

    iMacC4Ever Yeni Üye Kayıtlı Üye

    Mesajlar:
    91
    Beğenilen Mesajlar:
    0
    Cevap: Visual Basic SQL Manager Bağlantı Dersi (Pvp-Kenti Ders 1) - [Editör Yapımı]

    TeşekürLer Gökhan .. Bastırarak Söylüyorum ! ÇOK YARARLI BİR PAYLAŞIM !
     

Sayfayı Paylaş