bağlantı için borland data provider kullanıyorum
beri girişi yaptığum ekranda bir dbwebgrid var ve veri girişi yaptığım anda veri bu grid üzerinde görüntüleniyor fakat yeni kayıdın bulunduğu satıra girmek için select'e bastığımda grid üzerinden birinci kayıda gidiyor. daha önce veri eklediğimde viewstate'i kapatıp, sayfayı yeniden çağırırkende viewstate'i yeniden açmıştım ve sorunsuz şekilde çalışmıştı fakat neyi değiştirdim bulamıyorum şu an çalışmıyor...
kodları aşşağıda veriyorum (biraz karışık ama çok fazla şey denedim kusura bakmayın)
--------------------------------
procedure TWebFrmYeniSiparisler.SipAc;
var
sira,sqlstr,sipkodu:string;
i:integer;
GridStr: string;
begin
sqlstr:='Select * from Siparisler order by ID desc';
DBConn2.Close;
DBConn2.Open;
DBData2.Active:=false;
DBData2.SelectCommand.CommandText := sqlstr;
DBData2.SelectCommand.ExecuteNonQuery;
DBData2.Active:=true;
DBDset.Reset;
i:=DBData2.Fill(DBDset);
DBConn2.Close;
sira:='00000';
if i > 0 then
begin
sira:=DBDset.Tables[0].Rows[0].Item['SIPKODU'].ToString;
end;
sira:=sira.Substring(2,5);
sipkodu:='00000'+ Convert.ToString((Convert.ToInt32(sira.ToString)+1));
if sipkodu.Length > 5 then
begin
sipkodu:=sipkodu.Substring((sipkodu.Length-5),5);
end;
sipkodu:='BR'+sipkodu;
Session.Item['SipKodu'] := sipkodu;
sqlstr:='Insert into Siparisler(SIPKODU,SIPFID,SIPREFF,SIPTARIHI,SIPTUTAR,SIPKDVTUTAR,';
sqlstr:=sqlstr + 'SIPKDVLITUTAR,SIPDURUMU) VALUES(';
sqlstr:=sqlstr + '''' + sipkodu + ''',';
sqlstr:=sqlstr + '''' + Session.Item['FirmaID'].ToString + ''',';
sqlstr:=sqlstr + '''' + Session.Item['UserID'].ToString + ''',';
sqlstr:=sqlstr + 'GETDATE(),';
sqlstr:=sqlstr + '0,0,0,';
sqlstr:=sqlstr + '''' + 'Hazırlanıyor' + ''')';
DBConn2.Close;
DBConn2.Open;
DBCom.Connection:=DBConn;
DBCom.CommandText:=sqlstr;
DBCom.ExecuteNonQuery;
DBConn2.Close;
GridStr:='Select * from Siparisler Where SIPDURUMU = ''Hazırlanıyor'' AND SIPFID = ' + Session.Item['FirmaID'].ToString;
DBConn.Close;
DBConn.Open;
DBData.Active:=false;
DBData.SelectCommand.CommandText:=gridstr;
DBData.SelectCommand.ExecuteNonQuery;
DBData.Active:=true;
dataSet.Reset;
DBData.Fill(dataSet);
DataBind;
GridStr:='Select * from Siparisler Where SIPDURUMU = ''Hazırlanıyor'' AND SIPFID = ' + Session.Item['FirmaID'].ToString;
DBWebGrid1.EnableViewState := false;
DBConn2.Close;
GridStr:='Select * from Siparisler Where SIPDURUMU = ''Hazırlanıyor'' AND SIPFID = ' + Session.Item['FirmaID'].ToString;
DBConn.Close;
DBConn.Open;
DBData.Active:=false;
DBData.SelectCommand.CommandText:=gridstr;
DBData.SelectCommand.ExecuteNonQuery;
DBData.Active:=true;
dataSet.Reset;
i:=DBData.Fill(dataSet);
Button2.Visible := i > 0;
Response.Redirect('YeniSiparisler.aspx');
end;
aşşağıdaki PageAcsess kafanızı karıştırmasın çalışıyor...
procedure TWebFrmYeniSiparisler.TWebFrmDefault_Load(sender: System.Object; e: System.EventArgs);
var
GridStr:string;
i:integer;
begin
if Not LibSys.TMySysUnit.PageAcsess('YeniSiparisler.aspx') then
begin
Response.Redirect('LoginPage.aspx');
end;
GridStr:='Select * from Siparisler Where SIPDURUMU = ''Hazırlanıyor'' AND SIPFID = ' + Session.Item['FirmaID'].ToString;
DBConn.Close;
DBConn.Open;
DBData.Active:=false;
DBData.SelectCommand.CommandText:=gridstr;
DBData.SelectCommand.ExecuteNonQuery;
DBData.Active:=true;
dataSet.Reset;
i:=DBData.Fill(dataSet);
Button2.Visible := i > 0;
if not DBWebGrid1.EnableViewState then
begin
DBWebGrid1.EnableViewState := true;
end;
end;