VBNET 2017 de sorguyu yapamadım.

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki resimde textbox taki veriyi sorgulamak istiyorum,ama olmadı.
Nasıl yapmalıyım?Teşekkür ederim.

Adsız2.jpg
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Sorgunun olduğu yer text alanı olduğu için textbox işlemi yapamazsınız.
Bkz: dataadapter, command
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Sorgunun olduğu yer text alanı olduğu için textbox işlemi yapamazsınız.
Bkz: dataadapter, command
Zeki hocam teşekkür ederim.
Baktım ama pek bir şey anladığımı söyleyemeyecem!
Bu yapmış olduğum şekilde olmazmı?
Olmaz ise başka yöntemler arayacam.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
c# ta ben böyle kullandım, vbnet uyarlayın.
C#:
                DateTime vFDate = Convert.ToDateTime(dTPSatisTab2.Text);
                DateTime vTDate = vFDate;
                s = "SELECT urun, sum(miktar) , sum(emanet_miktar), sum(tutar), sum(el_iskontosu), sum(kdv_tutar), sum(alinan), sum(kalan)  
                FROM satislar WHERE (tarih BETWEEN @basTar AND @bitTar) AND verildi='E'   GROUP BY urun ";
                OleDbDataAdapter dtAdptrSatislar3 = new OleDbDataAdapter();
                OleDbCommand cmd = new OleDbCommand(s, conn);
                DataTable dtTblSatislarToplam = new DataTable();
                cmd.Parameters.AddWithValue("@basTar", vFDate);
                cmd.Parameters.AddWithValue("@bitTar", vTDate);
                dtAdptrSatislar3.SelectCommand = cmd;
                dtTblSatislarToplam.Rows.Clear();
                dtAdptrSatislar3.Fill(dtTblSatislarToplam);
                dataGridView9.DataSource = dtTblSatislarToplam;
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Veysel bey ilginiz için teşekkür ederim.
Bir deneyecem inşallah yaparım.VBnet te daha yeniyim,Çevirebilecemmi bilmiyom.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=z:\data\atilim.mdb; Jet OLEDB:Database Password=******;")
            Dim vFDate = Convert.ToDateTime(DateTimePicker1.Text)
            Dim vTDate = vFDate
            Dim s As String = ""
            s = "SELECT urun, sum(miktar), sum(emanet_miktar), sum(tutar), sum(el_iskontosu), sum(kdv_tutar), sum(alinan), sum(kalan) FROM satislar WHERE (tarih BETWEEN @basTar AND @bitTar) AND verildi='E' GROUP BY urun"
            Dim dtAdptrSatislar = New OleDbDataAdapter()
            Dim dtTblSatislarToplam = New DataTable()
            Dim cmd = New OleDbCommand(s, conn)
            cmd.Parameters.AddWithValue("@basTar", vFDate)
            cmd.Parameters.AddWithValue("@bitTar", vTDate)
            dtAdptrSatislar.SelectCommand = cmd
            dtTblSatislarToplam.Rows.Clear()
            dtAdptrSatislar.Fill(dtTblSatislarToplam)
            DataGridView1.DataSource = dtTblSatislarToplam
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
End Class
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba
Aşağıdaki kod ile(Bülent beyin kodunu modifiye ederek) çözümü buldum.
İlgilenen arkadaşlara ve üstadlara teşekkür ederim.

Kod:
 Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        DataGridView1.DataSource = Nothing
        Dim sorgu
        sorgu = "SELECT * FROM Tablo1 where ADI like '" & TextBox3.Text & "%';"
        Call VeritabaninaBaglan()
        Dim cmd As OleDbCommand = New OleDbCommand(sorgu, con)
        Dim da As New OleDb.OleDbDataAdapter(cmd)
        Dim ds As New DataSet
        da.Fill(ds, "Tablo1")
        DataGridView1.DataSource = ds.Tables("Tablo1").DefaultView
        cmd = Nothing : da = Nothing : ds = Nothing
        con.Close()
    End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Veri kaydetme,silme,ve güncelleme işlerini adodan bildiğimiz execute metodu ile yapıyorum.
Bülent beyin örnek kodlarından aldım.
 
Üst