DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Zeki hocam teşekkür ederim.Sorgunun olduğu yer text alanı olduğu için textbox işlemi yapamazsınız.
Bkz: dataadapter, command
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;
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
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