Kütüphane Takip Programı VB.Net
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
Kayıt İşlemi Buttonu’na tıkladığımız da karşımıza gelen form
Burada girilmesi zorunlu olan bilgiler var örneğin barkod numarası gibi programda kullandığımız bir yöntemle daha önceden girilmiş bir barkod numarası varsa eğer hata mesajı ile kullanıcıyı uyarmaktayız.
Anaform da bulunun Okuyucu Kayıt buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
Bu formda da girilmesi zorunlu olan bilgiler var bu bilgiler *(yıldız)’la işaretlenmiştir,boş geçilmeye çalışıldığında hata vermektedir.
Anaform da bulunun Okuyucu Liste buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Burada kayıtlarımızı görmekteyiz yalan burada silme işlemi için uygulanan yöntem TextBox’ların Change özelliğine yazdığımız kodlar sayesinde oldu girilen Ad ve Soyadın bulunduğu bir bilgi var ise SİL buttonuna tıklağomız zaman direkmen silmekteyiz.
Anaform da bulunun Kitap Liste buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Okuyucu Liste’sinde olduğu gibi aynı işlem burada da uygulanmıştır,bulunan bir Barkod numarası girildiğinde SİL buttonuna bastığımızda bilgisi silmiş oluyoruz.
Anaform da bulunun Emanet Kitaplar buttonuna tıkladığımız karşımıza gelen formda Teslim Al buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Burada ise emanet alınan kitapların geri teslim durumları göz önünde bulunduruluyor okuyucu kitabı geri nasıl bırakmış onu görmekteyiz. Programımız böyle çalışmaktadır şimdi Kod satırlarına geçelim.
FORM1 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Public kmt As New OleDbCommand()
Public adtr As New OleDbDataAdapter()
Public dtst As New DataSet()
Public satir As Integer
Public durum As [Boolean] = False
Private barkodno As String, no As String, adsoyad As String, kitapad As String, kitapyazar As String, tarih As String
Public Sub kitaplistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From kitapbil WHERE StokSayisi>0", bag)
adtr.Fill(dtst, "kitapbil")
dataGridView1.DataSource = dtst.Tables("kitapbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub kitaplistele2()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
adtr.Fill(dtst, "kitapbil")
Form5.dataGridView1.DataSource = dtst.Tables("kitapbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub okuyuculistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From okuyucubil ", bag)
adtr.Fill(dtst, "okuyucubil")
dataGridView2.DataSource = dtst.Tables("okuyucubil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub okuyuculistele2()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From okuyucubil ", bag)
adtr.Fill(dtst, "okuyucubil")
Form4.dataGridView1.DataSource = dtst.Tables("okuyucubil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub emanetlistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From emanetbil ", bag)
adtr.Fill(dtst, "emanetbil")
Form6.dataGridView1.DataSource = dtst.Tables("emanetbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub kitapcombo()
Dim durum As Integer
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select YazarAdi,YayinEvi,KitapTuru,TeminBicimi from kitapbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
durum = Form2.comboBox1.FindString(oku(0).ToString())
If durum = -1 Then
Form2.comboBox1.Items.Add(oku(0).ToString())
End If
durum = Form2.comboBox2.FindString(oku(1).ToString())
If durum = -1 Then
Form2.comboBox2.Items.Add(oku(1).ToString())
End If
durum = Form2.comboBox3.FindString(oku(2).ToString())
If durum = -1 Then
Form2.comboBox3.Items.Add(oku(2).ToString())
End If
durum = Form2.comboBox3.FindString(oku(2).ToString())
If durum = -1 Then
Form2.comboBox3.Items.Add(oku(2).ToString())
End If
durum = Form2.comboBox4.FindString(oku(3).ToString())
If durum = -1 Then
Form2.comboBox4.Items.Add(oku(3).ToString())
End If
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub okuyucucombo()
Dim durum As Integer
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select Sinifi,DogumYeri from okuyucubil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
durum = Form3.comboBox1.FindString(oku(0).ToString())
If durum = -1 Then
Form3.comboBox1.Items.Add(oku(0).ToString())
End If
durum = Form3.comboBox2.FindString(oku(1).ToString())
If durum = -1 Then
Form3.comboBox2.Items.Add(oku(1).ToString())
End If
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub barkodkontrol()
durum = False
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select BarkodNo from kitapbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
If Form2.textBox1.Text = oku(0).ToString() Then
durum = True
End If
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub nokontrol()
durum = False
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select TcKimlik,Nosu from okuyucubil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
If Form3.textBox1.Text = oku(0).ToString() OrElse Form3.textBox3.Text = oku(1).ToString() Then
durum = True
End If
End While
bag.Close()
oku.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kitaplistele()
okuyuculistele()
dataGridView1.Columns(0).HeaderText = "Barkod No"
dataGridView1.Columns(1).HeaderText = "Kitap Adı"
dataGridView1.Columns(2).HeaderText = "Yazar Adı"
dataGridView1.Columns(3).HeaderText = "Yayın Evi"
dataGridView1.Columns(4).HeaderText = "Kitap Türü"
dataGridView1.Columns(5).HeaderText = "Temin Biçimi"
dataGridView1.Columns(6).HeaderText = "Temin Tarihi"
dataGridView1.Columns(7).HeaderText = "Stok Sayısı"
dataGridView1.Columns(0).Width = 65
dataGridView1.Columns(1).Width = 95
dataGridView1.Columns(2).Width = 95
dataGridView1.Columns(3).Width = 90
dataGridView1.Columns(4).Width = 60
dataGridView1.Columns(5).Width = 70
dataGridView1.Columns(6).Width = 85
dataGridView1.Columns(7).Width = 55
dataGridView2.Columns.RemoveAt(10)
dataGridView2.Columns.RemoveAt(9)
dataGridView2.Columns.RemoveAt(8)
dataGridView2.Columns.RemoveAt(7)
dataGridView2.Columns.RemoveAt(6)
dataGridView2.Columns.RemoveAt(5)
dataGridView2.Columns.RemoveAt(4)
dataGridView2.Columns.RemoveAt(0)
dataGridView2.Columns(0).HeaderText = "Adı Soyadı"
dataGridView2.Columns(1).HeaderText = "Sınıfı"
dataGridView2.Columns(2).HeaderText = "No"
dataGridView2.Columns(3).HeaderText = "Kitap Sayısı"
dataGridView2.Columns(4).HeaderText = "Emanet Sayısı"
dataGridView2.Columns(1).Width = 35
dataGridView2.Columns(2).Width = 40
dataGridView2.Columns(3).Width = 46
dataGridView2.Columns(4).Width = 46
End Sub
Private Sub btnKitapkayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKitapkayit.Click
Form2.ShowDialog()
End Sub
Private Sub btnOkuyucukayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkuyucukayit.Click
Form3.ShowDialog()
End Sub
Private Sub btnOkuyuculiste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkuyuculiste.Click
Form4.ShowDialog()
End Sub
Private Sub btnKitapliste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKitapliste.Click
Form5.ShowDialog()
End Sub
Private Sub btnEmanetkitap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmanetkitap.Click
emanetlistele()
Form6.ShowDialog()
End Sub
Private Sub txtAdSoyadAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAdSoyadAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", bag)
If txtAdSoyadAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "okuyucubil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(AdiSoyadi like ‘%") + txtAdSoyadAra.Text & "%’ )"
dtst.Tables("okuyucubil").Clear()
adtr.Fill(dtst, "okuyucubil")
bag.Close()
End Sub
Private Sub txtOkulNoAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOkulNoAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", bag)
If txtOkulNoAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "okuyucubil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Nosu like ‘%") + txtOkulNoAra.Text & "%’ )"
dtst.Tables("okuyucubil").Clear()
adtr.Fill(dtst, "okuyucubil")
bag.Close()
End Sub
Private Sub txtSinifAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSinifAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", bag)
If txtSinifAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "okuyucubil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Sinifi like ‘%") + txtSinifAra.Text & "%’ )"
dtst.Tables("okuyucubil").Clear()
adtr.Fill(dtst, "okuyucubil")
bag.Close()
End Sub
Private Sub txtBarkodAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarkodAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
If txtBarkodAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "kitapbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(BarkodNo like ‘%") + txtBarkodAra.Text & "%’ )"
dtst.Tables("kitapbil").Clear()
adtr.Fill(dtst, "kitapbil")
bag.Close()
End Sub
Private Sub txtKitapadiAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapadiAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
If txtKitapadiAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "kitapbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(KitapAdi like ‘%") + txtKitapadiAra.Text &"%’ )"
dtst.Tables("kitapbil").Clear()
adtr.Fill(dtst, "kitapbil")
bag.Close()
End Sub
Private Sub txtKitapyazariAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapyazariAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
If txtKitapyazariAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "kitapbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(YazarAdi like ‘%") + txtKitapyazariAra.Text &"%’ )"
dtst.Tables("kitapbil").Clear()
adtr.Fill(dtst, "kitapbil")
bag.Close()
End Sub
Private Sub dataGridView2_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView2.CellMouseClick
Dim satir As Integer
For satir = 0 To dataGridView2.Rows.Count – 1
If dataGridView2.Rows(satir).Cells(0).Selected = True OrElse dataGridView2.Rows(satir).Cells(1).Selected = True OrElse dataGridView2.Rows(satir).Cells(2).Selected = True OrElse dataGridView2.Rows(satir).Cells(3).Selected = True OrElse dataGridView2.Rows(satir).Cells(4).Selected = True Then
Exit For
End If
Next
textBox2.Text = dataGridView2.Rows(satir).Cells(0).Value.ToString()
textBox3.Text = dataGridView2.Rows(satir).Cells(3).Value.ToString()
textBox4.Text = dataGridView2.Rows(satir).Cells(4).Value.ToString()
no = dataGridView2.Rows(satir).Cells(2).Value.ToString()
adsoyad = dataGridView2.Rows(satir).Cells(0).Value.ToString()
End Sub
Private Sub dataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseClick
Dim satir As Integer
For satir = 0 To dataGridView1.Rows.Count – 1
If dataGridView1.Rows(satir).Cells(0).Selected = True OrElse dataGridView1.Rows(satir).Cells(1).Selected = True OrElse dataGridView1.Rows(satir).Cells(2).Selected = True OrElse dataGridView1.Rows(satir).Cells(3).Selected = True OrElse dataGridView1.Rows(satir).Cells(4).Selected = True OrElse dataGridView1.Rows(satir).Cells(5).Selected = True OrElse dataGridView1.Rows(satir).Cells(6).Selected = True OrElse dataGridView1.Rows(satir).Cells(7).Selected = True Then
Exit For
End If
Next
textBox1.Text = dataGridView1.Rows(satir).Cells(1).Value.ToString()
barkodno = dataGridView1.Rows(satir).Cells(0).Value.ToString()
kitapad = dataGridView1.Rows(satir).Cells(1).Value.ToString()
kitapyazar = dataGridView1.Rows(satir).Cells(2).Value.ToString()
End Sub
Private Sub btnEmanetKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmanetKaydet.Click
Try
If textBox1.Text <> "" AndAlso textBox2.Text <> "" Then
tarih = DateTime.Now.ToShortDateString()
bag.Open()
kmt.Connection = bag
kmt.CommandText = ("INSERT INTO emanetbil(AdiSoyadi,Nosu,BarkodNo,KitapAdi,KitapYazari,BaslangicTarihi,BitisTarihi,EmanetDurumu) VALUES (‘" & adsoyad & "’,’" &a no & "’,’" & barkodno & "’,’" & kitapad & "’,’" & kitapyazar & "’,’" & tarih &"’,’") + dateTimePicker1.Text & "’,’" & "Teslim Edilmedi" &"’) "
kmt.ExecuteNonQuery()
kmt.CommandText = "UPDATE okuyucubil SET KitapSayisi=KitapSayisi+1,EmanetSayisi=EmanetSayisi+1 WHERE Nosu=’" & no & "’"
kmt.ExecuteNonQuery()
kmt.CommandText = "UPDATE kitapbil SET StokSayisi=StokSayisi-1 WHERE BarkodNo=’" & barkodno & "’"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
dtst.Tables("okuyucubil").Clear()
dtst.Tables("kitapbil").Clear()
okuyuculistele()
kitaplistele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
Else
MessageBox.Show("Listeden seçim yapınız !")
End If
Catch
End Try
End Sub
Private Sub Cikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cikis.Click
Application.Exit()
End Sub
End Class
[/code]
FORM2 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form2
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.kitapcombo()
End Sub
Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Form1.barkodkontrol()
If Form1.durum = False Then
If textBox2.Text <> "" AndAlso textBox2.Text <> "" AndAlso textBox3.Text <> "" AndAlso comboBox1.Text <> "" AndAlso comboBox2.Text <> "" AndAlso comboBox3.Text <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ((((((("INSERT INTO kitapbil(BarkodNo,KitapAdi,YazarAdi,YayinEvi,KitapTuru,TeminBicimi,TeminTarihi,StokSayisi) VALUES (‘" + textBox1.Text & "’,’") + textBox2.Text & "’,’") + comboBox1.Text & "’,’") + comboBox2.Text & "’,’") + comboBox3.Text & "’,’") + comboBox4.Text & "’,’") + dateTimePicker1.Text & "’,’") + textBox3.Text & "’) "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
For i As Integer = 0 To Me.Controls.Count – 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
If TypeOf Me.Controls(i) Is ComboBox Then
Me.Controls(i).Text = ""
End If
Next
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele()
Form1.kitapcombo()
MessageBox.Show("Kayıt işlemi tamamlandı !")
Else
MessageBox.Show("Boş alanları doldurunuz !")
End If
Else
MessageBox.Show("Girmiş olduğunuz Barkod No kullanılmış")
End If
End Sub
End Class
[/code]
FORM3 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form3
Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Form1.nokontrol()
If Form1.durum = False Then
If textBox1.Text <> "" AndAlso textBox2.Text <> "" AndAlso textBox3.Text <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = (((((((((("INSERT INTO okuyucubil(TcKimlik,AdiSoyadi,Sinifi,Nosu,DogumTarihi,DogumYeri,Telefon,Eposta,UyelikTarihi,Cinsiyet,Adres) VALUES (‘" + textBox1.Text & "’,’") + textBox2.Text & "’,’") + comboBox1.Text & "’,’") + textBox3.Text & "’,’") + dateTimePicker1.Text & "’,’") + comboBox2.Text & "’,’") + textBox4.Text & "’,’") + textBox5.Text & "’,’") + dateTimePicker2.Text & "’,’") + comboBox3.Text & "’,’") + textBox6.Text & "’) "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
For i As Integer = 0 To Me.Controls.Count – 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
If TypeOf Me.Controls(i) Is ComboBox Then
Me.Controls(i).Text = ""
End If
Next
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyucucombo()
Form1.okuyuculistele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
Else
MessageBox.Show("Boş alanları doldurunuz !")
End If
Else
MessageBox.Show("Kayıtlı Tc Kimlik veya Öğrenci No Girdiniz !")
End If
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.okuyucucombo()
End Sub
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Me.Close()
End Sub
End Class
[/code]
FORM4 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form4
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele2()
End Sub
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Me.Close()
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele()
Form1.dataGridView2.Columns.Remove("DogumTarihi")
Form1.dataGridView2.Columns.Remove("DogumYeri")
Form1.dataGridView2.Columns.Remove("Telefon")
Form1.dataGridView2.Columns.Remove("Eposta")
Form1.dataGridView2.Columns.Remove("UyelikTarihi")
Form1.dataGridView2.Columns.Remove("Cinsiyet")
Form1.dataGridView2.Columns.Remove("Adres")
End Sub
Private Sub txtAdSoyadAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAdSoyadAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtAdSoyadAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" &" where(AdiSoyadi like ‘%") + txtAdSoyadAra.Text & "%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtOkulNoAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOkulNoAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtOkulNoAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Nosu like ‘%") + txtOkulNoAra.Text &"%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtSinifAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSinifAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtSinifAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Sinifi like ‘%") + txtSinifAra.Text & "%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtTcKimlikAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTcKimlikAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtTcKimlikAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(TcKimlik like ‘%") + txtTcKimlikAra.Text &"%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtDogumYeriAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDogumYeriAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtDogumYeriAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(DogumYeri like ‘%") + txtDogumYeriAra.Text & "%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Dim silinecek As String
Try
Dim row As Integer = 0
For row = 0 To dataGridView1.Rows.Count
If dataGridView1.Rows(row).Cells(0).Selected = True OrElse dataGridView1.Rows(row).Cells(1).Selected = True OrElse dataGridView1.Rows(row).Cells(2).Selected = True OrElse dataGridView1.Rows(row).Cells(3).Selected = True OrElse dataGridView1.Rows(row).Cells(4).Selected = True OrElse dataGridView1.Rows(row).Cells(5).Selected = True OrElse dataGridView1.Rows(row).Cells(6).Selected = True OrElse dataGridView1.Rows(row).Cells(7).Selected = True OrElse dataGridView1.Rows(row).Cells(8).Selected = True OrElse dataGridView1.Rows(row).Cells(9).Selected = True OrElse dataGridView1.Rows(row).Cells(10).Selected = True OrElse dataGridView1.Rows(row).Cells(11).Selected = True OrElse dataGridView1.Rows(row).Cells(12).Selected = True Then
Exit For
End If
Next
silinecek = dataGridView1.Rows(row).Cells(0).Value.ToString()
Dim cevap As DialogResult
cevap = MessageBox.Show("Kaydı silmek istediğinizden eminmisiniz", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If cevap = DialogResult.Yes Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE from okuyucubil WHERE TcKimlik=’" & silinecek & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele2()
End If
Catch
End Try
End Sub
End Class
[/code]
FORM5 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form5
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele2()
End Sub
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele()
Me.Close()
End Sub
Private Sub txtBarkodAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarkodAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtBarkodAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(BarkodNo like ‘%") + txtBarkodAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtKitapadiAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapadiAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtKitapadiAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(KitapAdi like ‘%") + txtKitapadiAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtKitapyazariAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapyazariAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtKitapyazariAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(YazarAdi like ‘%") + txtKitapyazariAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtYayinEviAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYayinEviAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtYayinEviAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(YayinEvi like ‘%") + txtYayinEviAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtKitapTuruAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapTuruAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtKitapTuruAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" &" where(KitapTuru like ‘%") + txtKitapTuruAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtTeminBicimiAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeminBicimiAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtTeminBicimiAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" &" where(TeminBicimi like ‘%") + txtTeminBicimiAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Dim silinecek As String
Try
Dim row As Integer = 0
For row = 0 To dataGridView1.Rows.Count
If dataGridView1.Rows(row).Cells(0).Selected = True OrElse dataGridView1.Rows(row).Cells(1).Selected = True OrElse dataGridView1.Rows(row).Cells(2).Selected = True OrElse dataGridView1.Rows(row).Cells(3).Selected = True OrElse dataGridView1.Rows(row).Cells(4).Selected = True OrElse dataGridView1.Rows(row).Cells(5).Selected = True OrElse dataGridView1.Rows(row).Cells(6).Selected = True OrElse dataGridView1.Rows(row).Cells(7).Selected = True Then
Exit For
End If
Next
silinecek = dataGridView1.Rows(row).Cells(0).Value.ToString()
Dim cevap As DialogResult
cevap = MessageBox.Show("Kaydı silmek istediğinizden eminmisiniz", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If cevap = DialogResult.Yes Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE from kitapbil WHERE BarkodNo=’" & silinecek & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele2()
End If
Catch
End Try
End Sub
End Class
[/code]
FORM6 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”] Imports System.Data.OleDb
Public Class Form6
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Form1.dtst.Tables("emanetbil").Clear()
Me.Close()
End Sub
Private Sub txtAraAdiSoyadi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraAdiSoyadi.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtAraAdiSoyadi.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(AdiSoyadi like ‘%") + txtAraAdiSoyadi.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub txtAraOkulNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraOkulNo.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtAraOkulNo.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(Nosu like ‘%") + txtAraOkulNo.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub txtaraKitapAdi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtaraKitapAdi.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtaraKitapAdi.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(KitapAdi like ‘%") + txtaraKitapAdi.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub txtAraYazarAdi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraYazarAdi.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtAraYazarAdi.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(KitapYazari like ‘%") + txtAraYazarAdi.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub dataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseClick
Form1.satir = 0
While Form1.satir < dataGridView1.Rows.Count
If dataGridView1.Rows(Form1.satir).Cells(0).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(1).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(2).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(3).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(4).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(5).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(6).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(7).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(8).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(9).Selected = True Then
Exit While
End If
Form1.satir += 1
End While
no = dataGridView1.Rows(Form1.satir).Cells(1).Value.ToString()
ad = dataGridView1.Rows(Form1.satir).Cells(0).Value.ToString()
kitapad = dataGridView1.Rows(Form1.satir).Cells(3).Value.ToString()
barkodno = dataGridView1.Rows(Form1.satir).Cells(2).Value.ToString()
End Sub
Private Sub btnTeslimAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeslimAl.Click
Form7.ShowDialog()
End Sub
End Class
[/code]
FORM7 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”] Public Class Form7
Private Sub btnTamam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTamam.Click
Dim hdurum As String
Try
If textBox1.Text <> "" AndAlso textBox2.Text <> "" Then
hdurum = "Teslim Edildi"
If comboBox1.Text = "Kayıp" Then
hdurum = ""
End If
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ("UPDATE emanetbil SET TeslimTarihi=’" + dateTimePicker1.Text & "’,HasarDurumu=’") + comboBox1.Text & "’,EmanetDurumu=’" & hdurum & "’ WHERE Nosu=’" & Convert.ToString(Form6.no) & "’ AND KitapAdi=’" & Form6.kitapad & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "UPDATE okuyucubil SET EmanetSayisi=EmanetSayisi-1 WHERE Nosu=’" & Convert.ToString(Form1.frm6.no) & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "UPDATE kitapbil SET StokSayisi=StokSayisi+1 WHERE BarkodNo=’" & Convert.ToString(Form1.frm6.barkodno) & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("emanetbil").Clear()
Form1.emanetlistele()
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele()
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele()
Me.Close()
Else
MessageBox.Show("Kitap teslimi için listeden seçim yapmalısınız !")
End If
Catch
End Try
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
textBox1.Text = Form6.ad
textBox2.Text = Form6.kitapad
End Sub
Private Sub btnIptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIptal.Click
Me.Close()
End Sub
End Class
[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
habib : proje çalışıyor.
hocam elinize sağlık haftalardır ugraşıyorum iki tarih arası sorgulama yapabilirmiyiz yazılan iki tarih arasındakileri daragrdi de gösterme
rast :
1. yol –>
SqlConnection baglanti=new SqlConnection(“Initial Catalog=urunsatis;Data Source=.;Integrated Security=true”);
SqlDataAdapter adaptor=new SqlDataAdapter(“select * from satislar where tarih>='” + datetimepicker1.text + “‘ and tarih<='" + datetimepicker2.text + "'", baglanti); DataSet ds=new DataSet(); adaptor.fill(ds.Tables[0]); //Eğer datagridview in varsa (Adını datagridview1 olarak kabul ediyorum; Datagridview1.Datasource=ds.tables[0]; 2. yol-->
SqlDataAdapter da = newSqlDataAdapter(“select İsim,Adres from Cadoli where [Son işlem Tarihi] between ‘” + datetimepicker1.ToShortDateString() + “‘ and ‘” + datetimepicker2.ToShortDateString() + “‘”, con);
DataTable dt = newDataTable();
da.Fill(dt);
dataGridView1.DataSource = dt;
3. yol –>
string donustur = dateTimePicker1.Value.ToString(“yyyy-MM-dd HH:mm:ss.FFF”);
string donustur2 = dateTimePicker2.Value.ToString(“yyyy-MM-dd HH:mm:ss.FFF”);
SqlConnection con = new SqlConnection(conStr);
con.Open();
SqlCommand cmd = new SqlCommand();
cmd.Connection = con;
cmd.CommandText = “select * from Gorusme where GorTarihi between @Tarih1 and @Tarih2”;
cmd.CommandType = CommandType.Text;
cmd.Parameters.AddWithValue(“@Tarih1”, donustur);
cmd.Parameters.AddWithValue(“@Tarih2”, donustur2);
SqlDataAdapter da = new SqlDataAdapter();
da.SelectCommand = cmd;
DataSet ds = new DataSet();
da.Fill(ds);
dataGridView1.DataSource = ds.Tables[0];
con.Close();
Form1.dtst.Tables(“okuyucubil”).Clear() Form1.okuyuculistele() Form1.dataGridView2.Columns.Remove(“DogumTarihi”) burada hata veriyor yardımcı olur musnz
Busra :
Hata mesaj içeriği nedir.
Açıyorum programı çalıştırıyorum çalışıyor ilk başta daha sonra yukarıda yazdığım kodda hata veriyor
Busra :
TAm olaral hata mesajı nedir onu öğrenmek istedim ki net cevap verim.
Datasette temizlerken hata verdiği için eğer boş bir datasetse temizlede hata msajı verir.Try Catch kullanabilirsin.
Hata aldığım kısmın görselini attım bakıp yardımcı olur musunz. Okuyucu Liste kısmına giriyorum sorun yok çıkışa bastığımda hata veriyor çözemedim
Busra :
Mailinize cevap verildi.
merhaba bu projeyi MYSQL veri tabanı kullanarak yapmam gerekiyor ACCSESS
veritabanı kullanılmış nasıl çevirebilirim yardımcı olursanız çok mutlu olurum proje hafta hafta ilerleyecek parça parça yazmam gerek kodları takıldığım yerde yardım alacak çok olanağım yok sizden başka
ahmetcan :
Aşağıdaki linkleri incele.
http://www.gorselprogramlama.com/mysql-veri-tabanina-baglanma-ders-124-csharp/
http://www.gorselprogramlama.com/mysql-veri-tabanina-kayit-islemi-1-bolum-ders-125-c-sharp/
http://www.gorselprogramlama.com/mysql-veri-tabanina-kayit-islemi-2-bolum-ders-126-c-sharp/
http://www.gorselprogramlama.com/mysql-veri-tabanindaki-kayitlari-datagridviewe-aktarma-ders-127-csharp/
http://www.gorselprogramlama.com/mysql-veri-tabanindaki-kayitlari-guncelleme-islemi-1-bolum-ders-128-c-sharp/
http://www.gorselprogramlama.com/mysql-veri-tabanindaki-kayitlari-guncelleme-islemi-2-bolum-ders-129-c-sharp/
http://www.gorselprogramlama.com/mysql-veri-tabanindan-kayit-silme-ders-130-c-sharp/
Microsoft Jet Oledb 4.0 Sağlayıcısı Makinaya bağlı değil hatası veriyor yardım ederseniz sevinirim.
Yunus :
Access versiyon sorunu olabilir.Eğer Access 2007 ,2010 veya 2013 kullanıyorsan access 2003 kurmalısın veya kodlarda jet yerine ace , 4.0 yerine 12.0 ve veri tabanı ismi data.accdb olmalı.Tabi veri tabanını 2007 veya 2010 veya 2013′te açıp 2007 ,2010 veya 2013 olarak kaydetmelisin.Veri tabanı bin–>debug klasöründe.
merhaba mysql veri tabanı ile kütüphane otomasyonu yapıyorum örneğin kişi id ile başka kitap alamasın aynı şekilde emanete verilen kitap emanet listesinden silinene kadar başka birisi alamasın istiyorum nasıl yapabilirim
hata alıyorum
cihan :
Hata adını alabilirmiyiz.