Sub listele() koopTablo.Clear() makbuzTablo.Clear() bag.Open() adtr = New OleDbDataAdapter("select plaka,adi,soyadi From koop", bag) adtr.Fill(koopTablo) DataGridView1.DataSource = koopTablo DataGridView1.Columns(0).HeaderText = "PLAKA" DataGridView1.Columns(1).HeaderText = "Adı" DataGridView1.Columns(2).HeaderText = "Soyadı" DataGridView1.Refresh() bag.Close() adtr.Dispose() End Sub Sub sec() Try If DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim() <> "" Then bag.Open() kmt.Connection = bag adtr = New OleDbDataAdapter("SELECT Makbuzno,Donem,Tarih,Miktar from Makbuz WHERE PLAKA='" & DataGridView1.CurrentRow.Cells(0).Value.ToString() & "'", bag) adtr.Fill(makbuzTablo) DataGridView2.DataSource = makbuzTablo DataGridView2.Refresh() kmt.ExecuteNonQuery() listele() bag.Close() kmt.Dispose() End If Catch End Try End Sub Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load listele() sec() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)