Delphi Forum

ADOConnection 1 tane, sadece Döngü içinde Connected:=False;Yeni bağlantı değeri;Connected:=True; şeklinde kullanıyorum. Bu döngü içinde tabi kayıtlar üzerinden hesaplamalar eklemeler yapıyorum. Ayrıca taşınabilirlik açısından ideal bir yapı kurmuştum ama dediğim gibi sayı 30'u geçince arıza oluyor. ...

Yukarıda 2 teknik anlattım, 1.si (Tag yöntemli olan) delphinin tüm versiyonlarında çalışır. Senin anlattığından: type TForm1 = class(TForm) . . . private { Private declarations } public { Public declarations } ok1refno, ok2refno, ok3refno, ok4refno:Integer; end; gibi bir tanımın çağıran tüm formlard...

ADOConnection, ADOQuery ve ADOTable vs. kullanarak değişik veri tabanlarına çeşitli kayıt işlemleri yapıyorum ama yaklaşık ADOConnection ile 30 veya 35. bağlantıyı kurduktan sonra program uçuyor (direk kapanıyor ya da kitleniyor ama asla yeni bağlantıyı açıp işleme devam etmiyor). Kodlar, daha az ol...

Hileli kodlar :) OrtakForm.Tag:=Integer(CagiranForm); OrtakForm.Show; şimdi tag değeri çağıran formu tutuyor. Bunu elde etmek için ise ShowMessage(TForm(OrtakForm.Tag).Name); kodu kullanılabilir. Başka bir yöntem de var. Bunun için delphi versiyonu en az 2005 olmalı. OrtakForm.PopupParent:=CagiranFo...

Bir zamanlar bir bileşen yazmıştım. TImage'ı kopyala yapıştırla alıp bazı eklemeler yapmıştım. unit Gorsel; interface uses Windows, Messages, SysUtils, Classes, Forms, Menus, Graphics, StdCtrls, Controls; type TDrawType = (dtNone,dtCenter,dtTile,dtStretch); TDrawEvent = procedure(const Canvas:TCanva...

DateToStr fonksiyonu GÜN.AY.YIL formatında değer döndürür. Halbuki sorguda AY.GÜN.YIL formatı kullanılmalıdır. Mesela 1 Ocak 2006 ile 5 Ocak 2006 şartı verilirken tarih değerine verilen şart Where tarih Between '01.01.2006' and '01.05.2006' olacağına sizin kodunuzda Where tarih Between '01.01.2006' ...

SQL'e Hangi kullanıcı ile bağlandığınıza göre sorgulardaki tarih formatı da değişir. Windows NT Tümleşik Güvenliği kullanarak bağlanıyorsanız tarih formatı standart AY.GÜN.YIL biçinde olacaktır. Sizde sorguda GÜN.AY.YIL formatı kullandığınız için bu tür sorunlar yaşıyorsunuz. Aslında sorgularınızda ...

Tabi kodlarınızı Install ile dağıtmıyorsunuzdur umarım. Aksi halde yapacak birşey yok.

.net piyasaya yeni düştü geleceği varmıdır bilinmez ama geniş kapsamlı bir proje asla .net'te yazılmamalı. Uygulamadaki tüm sorunlarını bizzat gördüm ve yaşadım. Aynı kodlarla olağanüstü yavaş kalıyor. Sebebi malum, sanal işlemcinin (CLR) çalıştırdığı komutlar 2 aşamadan geçtiği için. Zaten .net pro...

1. Her satırın bittiği yerde #13#10 string bilgisi olmalı. procedure Tfrmgiris.Button1Click(Sender: TObject); const NL=#13#10; begin ADOConnection1.Execute('if exists (select * from dbo.sysobjects '+ 'where id = object_id(N''[dbo].[SP_MUSTERI_EKLE]'') and '+ 'OBJECTPROPERTY(id, N''IsProcedure'') = 1...

O zaman yoksa prosedür oluşturulsun istersen şu şekilde yazmalısın. procedure Tfrmgiris.Button1Click(Sender: TObject); begin ADOConnection1.Execute('if not exists (select * from dbo.sysobjects '+ 'where id = object_id(N''[dbo].[SP_MUSTERI_EKLE]'') and '+ 'OBJECTPROPERTY(id, N''IsProcedure'') = 1)'+ ...

function DllFunc(Liste:PChar;var Boyu:DWord):Integer;stdcall; var S:String; i:Integer; begin try Result:=0; S:='STRİNG DEĞER';//<--<<--<--<<-- i:=Length(S); if Boyu>i then Boyu:=i+1 else S:=Copy(S,1,i-1); StrCopy(Liste,PChar(S)); Result:=1; except Result:=-1; end; end; bu örnek dll fonksiyonu aynı ...

Delphi bileşenlerinden sorgular yazılırken ":" karakteri parametre belirtmek için kullanılır. Onun için bu sorguyu hiç bir Query ile yazamazsın. Bunun yerine ADOCommand1'in bağlı olduğu ADOConnection nesnesi ADOConnection1 olduğunu varsayarsak procedure Tfrmgiris.Button1Click(Sender: TObje...

Bu iki kod arasında bazı farklar var (Delphi tarafında fazlalıklar). Mesela "Declare @ERROR INT" satırı ve "@ERROR" değişkenini kullanan "SET @ERROR = @@ERROR" satırlarının hiç bir işlevi yok. Birde en sonda bulunan "SELECT @KOD" satırının da bir işlevi yok. M...

Bunu kendi ihtiyaçlarına göre değiştirebilirsin. function Goster(const FormSinifi:TFormClass;const Modal:Boolean=True;const ModalSonraYokEt:Boolean=False):TForm; begin try Result:=FormSinifi.Create(Application); if Modal then Result.ShowModal else Result.Show; if Modal and ModalSonraYokEt then FreeA...