Görsel Programlama Kayıt Etme Uygulaması - Çarşamba Ticaret Borsası Meslek Yüksekokulu - Ondokuz Mayıs Üniversitesi Forum

Gönderen Konu: Görsel Programlama Kayıt Etme Uygulaması  (Okunma sayısı 918 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı GameLear

  • Administrator
  • *
  • İleti: 290
  • Cinsiyet: Bay
  • Ondokuz Mayıs Üniversitesi
    • Profili Görüntüle
  • Akademik: Çarşamba Ticaret Borsası Meslek Yüksekokulu
  • Bölüm: Bilgisayar Proğramcılığı
Görsel Programlama Kayıt Etme Uygulaması
« : 17 Aralık 2015, 14:57:33 »
Butonlar Kayıt Et,Güncelle,Bul,Temizleme



Bul:

Dim komut As New SqlCommand(" select * from kayit where ogrnci_no='" & TextBox1.Text & "'", baglanti)
        Dim dr As SqlDataReader
        baglanti.Open()
        dr = komut.ExecuteReader
        If dr.HasRows Then
            Do While dr.Read
                TextBox2.Text = dr("ad_soyad")
                ComboBox1.Text = dr("bolum")
                ComboBox2.Text = dr("yil")
                RichTextBox1.Text = dr("adres")
                MaskedTextBox1.Text = dr("telefon")
            Loop
        Else : MsgBox("Kayıt bulunamadı")
        End If

Güncelleme:

 Dim komut As New SqlCommand("update kayit set ad_soyad= '" & TextBox2.Text & "' , bolum= '" & ComboBox1.Text & "', yil= '" & ComboBox2.Text & "', telefon ='" & MaskedTextBox1.Text & "', adres= '" & RichTextBox1.Text & "' where ogrnci_no='" & TextBox1.Text & "' ", baglanti)
        baglanti.Open()
        komut.ExecuteNonQuery()
        baglanti.Close()
        MsgBox("Kayıt Güncellendi")
    End Sub

Kaydet:

 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Try
            ög = TextBox1.Text
            ad = TextBox2.Text
            bol = ComboBox1.Text
            yil = ComboBox2.Text
            adres = RichTextBox1.Text
            tel = MaskedTextBox1.Text
            Dim komut As New SqlCommand("insert into kayit (ogrnci_no,bolum,yil,ad_soyad,adres,telefon) values ('" & ög & "','" & bol & "','" & yil & "','" & ad & "','" & adres & "','" & tel & "')", baglanti)
            baglanti.Open()
            komut.ExecuteNonQuery()
            baglanti.Close()
            MsgBox("Kayıt Başarılı")
            temizle()
        Catch ex As Exception
            MsgBox("hata")
        End Try
    End Sub

Temizleme:

 Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        temizle()
    End Sub
« Son Düzenleme: 19 Aralık 2015, 19:16:00 Gönderen: GameLear »



Etiket:
 

Hızlı yanıt'ı kullanarak çabukça ileti gönderebilir, iletilerinizde gülümseme ve bbc kullanabilirsiniz.

Not: Bu konu bir moderatör tarafından onaylanmadan görüntülenmeyecektir.
Kullanıcı Adı: E-Posta:
Doğrulama:
Resimde gördüğünüz harfleri giriniz
Harfleri dinle / Farklı bir resim göster
Resimde gördüğünüz harfleri giriniz:
Ondokuz Mayıs Üniversitesi Kuruluş Tarihi Kutucuğa Yazın(1975):