VBNET 2017 de sorguyu yapamadım.

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,220
Beğeniler
299
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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

Adsız2.jpg
 
Katılım
31 Aralık 2005
Mesajlar
3,746
Beğeniler
130
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
#2
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
21,220
Beğeniler
299
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#3
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.
 
Katılım
9 Mart 2005
Mesajlar
2,556
Beğeniler
132
Excel Vers. ve Dili
Excel 2003-tr
#4
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
21,220
Beğeniler
299
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#5
Veysel bey ilginiz için teşekkür ederim.
Bir deneyecem inşallah yaparım.VBnet te daha yeniyim,Çevirebilecemmi bilmiyom.
 
Katılım
9 Mart 2005
Mesajlar
2,556
Beğeniler
132
Excel Vers. ve Dili
Excel 2003-tr
#6
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
21,220
Beğeniler
299
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#7
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
21,220
Beğeniler
299
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#8
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