vb 2005 de kullanılan kodlar
Tarih
26/04/2011 20:14
Konu Sahibi
solder80
Yorumlar
4
Okunma
772
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



solder80
Üye
Kullanici Avatari
Üye
7
2
02/03/2011
0
Osmaniye
Ofis 2007
20/05/2011,09:21
Thumbs Up 
Imports System.Data

Public Class Form1
Dim dt As New DataTable()
Public Sub recordGrid(ByVal resql As String)

Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = derspro.mdb"
Dim dataAdapter As New OleDb.OleDbDataAdapter(resql, connStr)
dataAdapter.Fill(dt)
dataAdapter.Dispose()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ComboBox5.Text = "BİLGİSAYAR TEK. VE PROĞRAMLAMA (N.Ö.)" Then
If RadioButton1.Checked Then
Dim girilen As String
Dim sonuc As String
Dim Sql As String
Dim hocaadi As String
Dim uzunluk As Integer
Dim hoca As String
Dim saat As Integer
Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = derspro.mdb"
Sql = "select Pazartesi From btp WHERE'" & ComboBox2.Text & "' "
Dim dataAdapter As New OleDb.OleDbDataAdapter(sql, connStr)
dataAdapter.Fill(dt)
saat = ComboBox2.Text.Substring(0, 1)
sonuc = dt.Rows(saat)("Pazartesi")
dataAdapter.Dispose()
hocaadi = CStr(ComboBox3.Text)
uzunluk = hocaadi.Length
hoca = CStr(sonuc.Substring(8, uzunluk))
girilen = CStr(sonuc.Substring(0, 7))
If sonuc = " " Then
recordGrid("UPDATE btp SET Pazartesi='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf girilen = ComboBox4.Text Then
MsgBox("BU LABRATUAR KULLANILMAKTADIR", 0, "")
ElseIf sonuc <> girilen Then
If hoca = ComboBox3.Text Then
MsgBox("BU HOCANIN BU SAATTE BAŞKA BİR YERE DERSİ VAR", 0, "")
ElseIf hoca <> ComboBox3.Text Then
recordGrid("UPDATE btp SET Pazartesi='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
End If




ElseIf RadioButton2.Checked Then
recordGrid("UPDATE btp SET Sali='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE btp SET Carsamba='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE btp SET Persembe='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE btp SET Cuma='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "BİLGİSAYAR TEK. VE PROĞRAMLAMA (İ.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE btpi SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE btpi SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE btpi SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE btpi SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE btpi SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "İŞLETME (N.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE isletme SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE isletme SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE isletme SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE isletme SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE isletme SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "İŞLETME (İ.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE isletmei SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE isletmei SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE isletmei SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE isletmei SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE isletmei SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "HARİTA KADASTRO (N.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE harita SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE harita SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE harita SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE harita SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE harita SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "HARİTA KADASTRO (İ.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE haritai SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE haritai SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE haritai SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE haritai SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE haritai SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
End If

End Sub


End Class
bunun sonucun da bir veritabanım var burdaki girilen kayıtlar overitabanına kayıt oluyor ve ben bu veritanın da karşılaştırma yapıp bu şekil de ekrana msj vermek istiyorum
Cevapla


solder80
Üye
Kullanici Avatari
Üye
7
2
02/03/2011
0
Osmaniye
Ofis 2007
20/05/2011,09:21
Imports System.Data

Public Class Form1
Dim dt As New DataTable()
Public Sub recordGrid(ByVal resql As String)

Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = derspro.mdb"
Dim dataAdapter As New OleDb.OleDbDataAdapter(resql, connStr)
dataAdapter.Fill(dt)
dataAdapter.Dispose()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ComboBox5.Text = "BİLGİSAYAR TEK. VE PROĞRAMLAMA (N.Ö.)" Then
If RadioButton1.Checked Then
Dim girilen As String
Dim sonuc As String
Dim Sql As String
Dim hocaadi As String
Dim uzunluk As Integer
Dim hoca As String
Dim saat As Integer
Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = derspro.mdb"
Sql = "select Pazartesi From btp WHERE'" & ComboBox2.Text & "' "
Dim dataAdapter As New OleDb.OleDbDataAdapter(sql, connStr)
dataAdapter.Fill(dt)
saat = ComboBox2.Text.Substring(0, 1)
sonuc = dt.Rows(saat)("Pazartesi")
dataAdapter.Dispose()
hocaadi = CStr(ComboBox3.Text)
uzunluk = hocaadi.Length
hoca = CStr(sonuc.Substring(8, uzunluk))
girilen = CStr(sonuc.Substring(0, 7))
If sonuc = " " Then
recordGrid("UPDATE btp SET Pazartesi='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf girilen = ComboBox4.Text Then
MsgBox("BU LABRATUAR KULLANILMAKTADIR", 0, "")
ElseIf sonuc <> girilen Then
If hoca = ComboBox3.Text Then
MsgBox("BU HOCANIN BU SAATTE BAŞKA BİR YERE DERSİ VAR", 0, "")
ElseIf hoca <> ComboBox3.Text Then
recordGrid("UPDATE btp SET Pazartesi='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
End If




ElseIf RadioButton2.Checked Then
recordGrid("UPDATE btp SET Sali='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE btp SET Carsamba='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE btp SET Persembe='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE btp SET Cuma='" & ComboBox4.Text & " " & ComboBox3.Text & " " & ComboBox1.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "BİLGİSAYAR TEK. VE PROĞRAMLAMA (İ.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE btpi SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE btpi SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE btpi SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE btpi SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE btpi SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "İŞLETME (N.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE isletme SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE isletme SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE isletme SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE isletme SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE isletme SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "İŞLETME (İ.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE isletmei SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE isletmei SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE isletmei SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE isletmei SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE isletmei SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "HARİTA KADASTRO (N.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE harita SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE harita SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE harita SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE harita SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE harita SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
ElseIf ComboBox5.Text = "HARİTA KADASTRO (İ.Ö.)" Then
If RadioButton1.Checked Then
recordGrid("UPDATE haritai SET Pazartesi='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton2.Checked Then
recordGrid("UPDATE haritai SET Sali='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton3.Checked Then
recordGrid("UPDATE haritai SET Carsamba='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton4.Checked Then
recordGrid("UPDATE haritai SET Persembe='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
ElseIf RadioButton5.Checked Then
recordGrid("UPDATE haritai SET Cuma='" & ComboBox1.Text & " " & ComboBox3.Text & " " & ComboBox4.Text & "' Where SAAT='" & ComboBox2.Text & "' ")
MsgBox("KAYIT BAŞARILI", 0, "")
End If
End If

End Sub


End Class
bunun sonucun da bir veritabanım var burdaki girilen kayıtlar overitabanına kayıt oluyor ve ben bu veritanın da karşılaştırma yapıp bu şekil de ekrana msj vermek istiyorum veri tabanı da aşağı da verilmiştir bunun için bana yardımcı olursanız çok sevinirim dönem ödevim ve burda tıkandım kaldım son gün olduğu için acele yardım ederseniz sevinirim


Ek Dosyalar
.rar   derspro.rar (Dosya Boyutu: 11,15 KB / İndirme Sayısı: 3)
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Sn solder80, bu şekilde kimse sizin sorununuzla ilgilenemez. Lütfen örnek ekleyerek sorunuz.

Mükerrer kayıt açmayınız. Konularınız birleştirilmiştir.
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Vbnet projenizi eklemeyi unuttunuz sanırım.
Cevapla


solder80
Üye
Kullanici Avatari
Üye
7
2
02/03/2011
0
Osmaniye
Ofis 2007
20/05/2011,09:21
kodları bu şekil ekledim bilmiyorum ama nasıl yapılacağını ana form üzerin de bi günler diye kısım var p.tesi salı..... diye gidiyor radio button şeklin de diğer şeyler de combobox da tutuluyor
hoca adı
derslik
saat
bölüm adı
ben veriyi kaydediyorum ama veriyi karşılaştırma yapamıyorum
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  vb 2005 te öğrenci takip programı ramazanx5 2 843 27/12/2009, 11:21 ogulcan92


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya