DataGridView e sorgu sonucunu nasıl gösteririm

06-11-2010, 15:41:41

Arkadaşlar merhaba
Yeni bir projeye başladım ve takıldığım bir konu hakkında yardımlarınıza ihtiyacım var
Aşağıdaki resmi örnek olarak verdim benim yapacağım projede aşağı yukarı aynı sayılır verdiğim resimdeki gibi bir sayfa hazırlayacağım ve hazırladığım sayfada iki adet Datagridview olacak aynı aşağıdaki resimde görüldüğü gibi olacak işaretlemiş olduğum plaka yazısının tam karşısında bulunan textbox a bir plaka giricem ve ENTER tıkladığımda sağdaki Datagridview de o plakaya ait girilmiş verileri çıkarsın daha sonra başka bir plaka girdiğimde o girmiş olduğum plakanın bilgileri çıkarsın eğer hiç birşey girilmez ise yani sayfayı ilk açtığımda orada hiç bir şey görülmeyecek, bunu nasıl yapabilirim ?

Ve yine Altta bulunan Datagridview de yine prog ilk açıldığında hiç bir şey görüntülemeyecek o da sadece o günün verilerini gösterecek yani sadece o gün girilen verileri gösterecek, bunu nasıl yapabilirim ?

umarım anlatabilmişimdir hepinize şimdiden teşekkürler

06-11-2010, 16:23:23

#2

rob33n

Kimlik doğrulama veya yönetimden onay bekliyor.

Plaka'yı girdikten sonra sql sorgusu ile datatable'a çektiğini varsayıyorum.

sagDataGrid1.datasource = dtPlakaGelenVeriler;
sagDataGrid1.DataBind();

08-11-2010, 10:09:45

#3

kibrix

Imports System.Data.OleDb
Public Class Giris
Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=C:\database\tsg.mdb")
Dim com As OleDbCommand = New OleDbCommand("select * from TeknikServis,islemler", conn)
Sub list()
conn.Open()
Dim komut As OleDbCommand
Dim okut As OleDb.OleDbDataReader
komut = New OleDb.OleDbCommand("Select * from TeknikServis", conn) 'sorgumuzu yazdık
okut = komut.ExecuteReader()
While okut.Read
ListBox1.Items.Add(okut.Item("1"))
End While
conn.Close()
End Sub
Sub verigoster()
Dim dv As OleDbDataAdapter
dv = New OleDbDataAdapter("select * from TeknikServis", conn)
Dim ds As New DataSet
dv.Fill(ds, "TeknikServis")
DataGridView1.DataSource = ds.Tables("TeknikServis")
DataGridView1.Columns(0).HeaderText = "Id"
DataGridView1.Columns(0).Width = 30
DataGridView1.Columns(1).HeaderText = "Bilgisayar Adı"
DataGridView1.Columns(1).Width = 120
DataGridView1.Columns(2).HeaderText = "Marka"
DataGridView1.Columns(2).Width = 120
DataGridView1.Columns(3).HeaderText = "Model"
DataGridView1.Columns(3).Width = 120
DataGridView1.Columns(4).HeaderText = "Seri No"
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).HeaderText = "HDD"
DataGridView1.Columns(5).Width = 80
DataGridView1.Columns(6).HeaderText = "RAM"
DataGridView1.Columns(6).Width = 80
DataGridView1.Columns(7).HeaderText = "CPU"
DataGridView1.Columns(7).Width = 80
DataGridView1.Columns(8).HeaderText = "CD / DVD"
DataGridView1.Columns(8).Width = 100
DataGridView1.Columns(9).HeaderText = "İşlemi Yapan"
DataGridView1.Columns(9).Width = 100
DataGridView1.Columns(10).HeaderText = "İşlem Yeri"
DataGridView1.Columns(10).Width = 125
DataGridView1.Columns(11).HeaderText = "İşlem Tarihi"
DataGridView1.Columns(11).Width = 90
DataGridView1.Columns(12).HeaderText = "Personel Adı"
DataGridView1.Columns(12).Width = 100
DataGridView1.Columns(13).HeaderText = "Departman"
DataGridView1.Columns(13).Width = 80
DataGridView1.Columns(14).HeaderText = "Görevi"
DataGridView1.Columns(14).Width = 80
DataGridView1.Columns(15).HeaderText = "Sicil No"
DataGridView1.Columns(15).Width = 80
DataGridView1.Columns(16).HeaderText = "Monitör"
DataGridView1.Columns(16).Width = 80
DataGridView1.Columns(17).HeaderText = "Seri No"
DataGridView1.Columns(17).Width = 80
DataGridView1.Columns(18).HeaderText = "Barkot Okuyucu"
DataGridView1.Columns(18).Width = 110
DataGridView1.Columns(19).HeaderText = "Printer / Scanner"
DataGridView1.Columns(19).Width = 115
DataGridView1.Columns(20).HeaderText = "Durum"
DataGridView1.Columns(20).Width = 80
DataGridView1.Columns(21).HeaderText = "Açıklama"
DataGridView1.Columns(21).Width = 250
DataGridView1.Columns(21).MinimumWidth = 250
DataGridView1.Columns(22).HeaderText = "İşlem Tarihi"
DataGridView1.Columns(22).Width = 100
DataGridView1.Columns(23).HeaderText = "Yapılan İşlemler 1"
DataGridView1.Columns(23).Width = 250
DataGridView1.Columns(24).HeaderText = "Yapılan İşlemler 2"
DataGridView1.Columns(24).Width = 250
DataGridView1.Columns(25).HeaderText = "Yapılan İşlemler 3"
DataGridView1.Columns(25).Width = 250
DataGridView1.Columns(26).HeaderText = "Yapılan İşlemler 4"
DataGridView1.Columns(26).Width = 250
DataGridView1.Columns(27).HeaderText = "Yapılan İşlemler 5"
DataGridView1.Columns(27).Width = 250
DataGridView1.Columns(28).HeaderText = "Yapılan İşlemler 6"
DataGridView1.Columns(28).Width = 250
DataGridView1.Columns(29).HeaderText = "Yapılan İşlemler 7"
DataGridView1.Columns(29).Width = 250
DataGridView1.Columns(30).HeaderText = "Yapılan İşlemler 8"
DataGridView1.Columns(30).Width = 250
DataGridView1.Columns(31).HeaderText = "Yapılan İşlemler 9"
DataGridView1.Columns(31).Width = 250
DataGridView1.Columns(32).HeaderText = "Yapılan İşlemler 10"
DataGridView1.Columns(32).Width = 250
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
DateTimePicker1.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
RichTextBox1.Text = ""
DateTimePicker2.Text = ""
TextBox19.Text = ""
End Sub

Sub verigoster1()
Dim dv As OleDbDataAdapter
dv = New OleDbDataAdapter("select * from islemler", conn)
Dim ds As New DataSet
dv.Fill(ds, "islemler")
DataGridView2.DataSource = ds.Tables("islemler")
DataGridView2.Columns(0).HeaderText = "Id"
DataGridView2.Columns(0).Width = 30
DataGridView2.Columns(1).HeaderText = "Yapılan İşlemler 1"
DataGridView2.Columns(1).Width = 250
DataGridView2.Columns(2).HeaderText = "Yapılan İşlemler 2"
DataGridView2.Columns(2).Width = 250
DataGridView2.Columns(3).HeaderText = "Yapılan İşlemler 3"
DataGridView2.Columns(3).Width = 250
DataGridView2.Columns(4).HeaderText = "Yapılan İşlemler 4"
DataGridView2.Columns(4).Width = 250
DataGridView2.Columns(5).HeaderText = "Yapılan İşlemler 5"
DataGridView2.Columns(5).Width = 250
DataGridView2.Columns(6).HeaderText = "Yapılan İşlemler 6"
DataGridView2.Columns(6).Width = 250
DataGridView2.Columns(7).HeaderText = "Yapılan İşlemler 7"
DataGridView2.Columns(7).Width = 250
DataGridView2.Columns(8).HeaderText = "Yapılan İşlemler 8"
DataGridView2.Columns(8).Width = 250
DataGridView2.Columns(9).HeaderText = "Yapılan İşlemler 9"
DataGridView2.Columns(9).Width = 250
DataGridView2.Columns(10).HeaderText = "Yapılan İşlemler 10"
DataGridView2.Columns(10).Width = 250
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MessageBox.Show("Bilgisayar Adı Giriniz", "Bilgisayar adı", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Focus()

ElseIf TextBox2.Text = "" Then
MessageBox.Show("Marka Giriniz", "Marka", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox2.Focus()

ElseIf TextBox3.Text = "" Then
MessageBox.Show("Model Giriniz", "Model", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox3.Focus()

ElseIf TextBox4.Text = "" Then
MessageBox.Show("Seri No Giriniz", "Seri No", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox4.Focus()

ElseIf TextBox5.Text = "" Then
MessageBox.Show("HDD Giriniz", "HDD", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox5.Focus()

ElseIf TextBox6.Text = "" Then
MessageBox.Show("RAM Giriniz", "RAM", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox6.Focus()

ElseIf TextBox7.Text = "" Then
MessageBox.Show("CPU Giriniz", "CPU", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox7.Focus()

ElseIf TextBox8.Text = "" Then
MessageBox.Show("CD / DVD Giriniz", "CD / DVD", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox8.Focus()

ElseIf ComboBox1.Text = "" Then
MessageBox.Show("İşlem Yapanı seçiniz", "İşlem Yapan", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox1.Focus()

ElseIf ComboBox2.Text = "" Then
MessageBox.Show("İşlem Yeri seçiniz", "İşlem Yeri", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox2.Focus()

ElseIf DateTimePicker1.Text = "" Then
MessageBox.Show("İşlem Tarihi seçiniz", "İşlem Tarihi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
DateTimePicker1.Focus()

ElseIf TextBox9.Text = "" Then
MessageBox.Show("Yapılan İşlemleri Giriniz", "Yapılan İşlem", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox9.Focus()

ElseIf TextBox10.Text = "" Then
MessageBox.Show("Personel Adı Giriniz", "Personel Adı", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox10.Focus()

ElseIf TextBox11.Text = "" Then
MessageBox.Show("Departman Giriniz", "Departman", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox11.Focus()

ElseIf TextBox12.Text = "" Then
MessageBox.Show("Görevli Giriniz", "Görevli", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox12.Focus()

ElseIf TextBox13.Text = "" Then
MessageBox.Show("Sicil No Giriniz", "Sicil No", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox13.Focus()

ElseIf TextBox14.Text = "" Then
MessageBox.Show("Monitör Giriniz", "Monitör", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox14.Focus()

ElseIf TextBox15.Text = "" Then
MessageBox.Show("Seri No Giriniz", "Seri No", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox15.Focus()

ElseIf TextBox16.Text = "" Then
MessageBox.Show("Barkot Okuyucu Giriniz", "Barkot Okuyucu", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox16.Focus()

ElseIf TextBox17.Text = "" Then
MessageBox.Show("Printer Scanner Giriniz", "Printer Scanner", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox17.Focus()

ElseIf TextBox18.Text = "" Then
MessageBox.Show("Durum Giriniz", "Durum", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox18.Focus()

ElseIf RichTextBox1.Text = "" Then
MessageBox.Show("Açıklama Giriniz", "Açıklama", MessageBoxButtons.OK, MessageBoxIcon.Warning)
RichTextBox1.Focus()

ElseIf DateTimePicker2.Text = "" Then
MessageBox.Show("İşlem Tarihi Seçiniz", "İşlem Tarihi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
DateTimePicker2.Focus()

Else
Try
Dim i
For i = 0 To ListBox1.Items.Count - 1
If TextBox1.Text = ListBox1.Items(i) Then
MessageBox.Show("Bu Pc daha önce kayıt edilmiş yapılan işlemleri Bilgi Giriş İşlemleri menüsünden Bilgi Güncelleyi tıklayınız !", "Mükerrer Id no", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Text = ""
TextBox1.Focus()
Exit Sub
End If
Next
Dim komut As OleDbCommand
Dim komut1 As OleDbCommand
conn.Open()
komut = New OleDbCommand("insert into TeknikServis(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1 6,17,18,19,20,21,22,i1,i2) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & DateTimePicker1.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "','" & TextBox16.Text & "','" & TextBox17.Text & "','" & TextBox18.Text & "','" & RichTextBox1.Text & "','" & DateTimePicker2.Text & "','" & TextBox9.Text & "','" & TextBox19.Text & "')", conn)
komut1 = New OleDbCommand("insert into islemler(i1,i2) values('" & TextBox9.Text & "','" & TextBox19.Text & "')", conn)
komut.ExecuteNonQuery()
komut1.ExecuteNonQuery()
conn.Close()
conn.Close()
verigoster()
verigoster1()
MessageBox.Show("Bilgisayar Kayıt Edildi", "Kayıt!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
TextBox1.Text = ""
TextBox1.Focus()
Catch ex As Exception
MessageBox.Show("Hata var!" & vbCrLf & ex.Message, "İşlem Hatası", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
End If
End Sub

Private Sub Giris_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Visible = False
verigoster()
verigoster1()
list()
list()
End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
End If
End Sub

Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox3.Focus()
End If
End Sub

Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox4.Focus()
End If
End Sub

Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox5.Focus()
End If
End Sub

Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox6.Focus()
End If
End Sub

Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox6.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox7.Focus()
End If
End Sub

Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox7.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox8.Focus()
End If
End Sub

Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox8.KeyUp
If e.KeyCode = Keys.Enter Then
ComboBox1.Focus()
End If
End Sub

Private Sub ComboBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
If e.KeyCode = Keys.Enter Then
ComboBox2.Focus()
End If
End Sub

Private Sub ComboBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox2.KeyUp
If e.KeyCode = Keys.Enter Then
DateTimePicker1.Focus()
End If
End Sub

Private Sub DateTimePicker1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker1.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox9.Focus()
End If
End Sub

Private Sub TextBox9_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox9.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox10.Focus()
End If
End Sub
Private Sub TextBox10_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox10.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox11.Focus()
End If
End Sub

Private Sub TextBox11_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox11.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox12.Focus()
End If
End Sub

Private Sub TextBox12_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox12.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox13.Focus()
End If
End Sub

Private Sub TextBox13_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox13.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox14.Focus()
End If
End Sub

Private Sub TextBox14_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox14.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox15.Focus()
End If
End Sub

Private Sub TextBox15_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox15.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox16.Focus()
End If
End Sub

Private Sub TextBox16_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox16.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox17.Focus()
End If
End Sub

Private Sub TextBox17_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox17.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox18.Focus()
End If
End Sub

Private Sub TextBox18_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox18.KeyUp
If e.KeyCode = Keys.Enter Then
RichTextBox1.Focus()
End If
End Sub

Private Sub RichTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
DateTimePicker2.Focus()
End If
End Sub

Private Sub DateTimePicker2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker2.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox19.Focus()
End If
End Sub
End Class

Asıl program ve asıl kodlar bunlar dır bu kodlara bakarak yardımcı olabilirmisiniz acaba plaka olarak verdiğim örnek pc adı dır,

08-11-2010, 13:32:27

#4

kibrix

Arkadaşlar çok önemli benim için yardımcı olursanız sevinirim

08-11-2010, 21:26:13

#5

~~uguronline~~

Üyeliği durduruldu

c# üzerinde yapmıştık bu tarz bişey. örnek olarak şu şekilde:

            string bugunku_randevu = "declare @bas datetime; "
            + "declare @son datetime; "
            + "set @bas=CONVERT(datetime,Convert(varchar(10),GETDATE(),102)+' 00:00:00'); "
            + "set @son=CONVERT(datetime,Convert(varchar(10),GETDATE(),102)+' 23:59:59'); "
            + @"select COUNT(durum) from liste where tarih between @bas And @son AND durum !='Tamamlandı'; ";

            SqlCommand com2 = new SqlCommand(bugunku_randevu, con);
            con.Open();
            sayi = Convert.ToInt32(com2.ExecuteScalar());
            label1.Text = label1.Tag + sayi.ToString();
            con.Close();

08-11-2010, 22:11:25

#6

kibrix

Bana uyarlayabilirmisin verdiğim kodlara göre

uguronline adlı üyeden alıntı: mesajı görüntüle

c# üzerinde yapmıştık bu tarz bişey. örnek olarak şu şekilde:

            string bugunku_randevu = "declare @bas datetime; "
            + "declare @son datetime; "
            + "set @bas=CONVERT(datetime,Convert(varchar(10),GETDATE(),102)+' 00:00:00'); "
            + "set @son=CONVERT(datetime,Convert(varchar(10),GETDATE(),102)+' 23:59:59'); "
            + @"select COUNT(durum) from liste where tarih between @bas And @son AND durum !='Tamamlandı'; ";

            SqlCommand com2 = new SqlCommand(bugunku_randevu, con);
            con.Open();
            sayi = Convert.ToInt32(com2.ExecuteScalar());
            label1.Text = label1.Tag + sayi.ToString();
            con.Close();

09-11-2010, 00:07:29

#7

~~uguronline~~

Üyeliği durduruldu

vb bilmiyorm malesef