Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

vb 2005 de kullanılan kodlar

solder80
solder80
Çöp Kutusu
4
2359

vb 2005 de kullanılan kodlar

Thumbs Up #1
solder80
Üye
solder80
Bul
Üye
Adı Soyadı:
Yaşı: 37
Konum: Osmaniye
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/05/2011,09:21
Yorumları: 7
Konuları: 2
Kayıt Tarihi: 02/03/2011
Teşekkür Puanı: 0
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
#2
solder80
Üye
solder80
Bul
Üye
Adı Soyadı:
Yaşı: 37
Konum: Osmaniye
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/05/2011,09:21
Yorumları: 7
Konuları: 2
Kayıt Tarihi: 02/03/2011
Teşekkür Puanı: 0
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
.rar derspro.rar (Dosya Boyutu: 11,15 KB | İndirme Sayısı: 3)
Cevapla
#3
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 51
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
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
#4
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 51
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
Vbnet projenizi eklemeyi unuttunuz sanırım.
Cevapla
#5
solder80
Üye
solder80
Bul
Üye
Adı Soyadı:
Yaşı: 37
Konum: Osmaniye
Ofis Versiyonu: Ofis 2007
Son Oturumu: 20/05/2011,09:21
Yorumları: 7
Konuları: 2
Kayıt Tarihi: 02/03/2011
Teşekkür Puanı: 0
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task