Delphi Forum

Sayin Saban AKMAN,
verdiğiniz ip ucu, işime çok yaradı, teşekkür ederim.

Merhaba,

Delphi 7 ve AdoQuery kullanıyorum.
Sorum şu;

Data içerisinde diyelim ki 50 kayıt var,
Ben bu 50 kayıt içerisinde 42 nci kaydın aktif kayıt olmasını nasıl sağlayabilirim.

Çünkü, 42 nci kayıttan itibaren yapmam gereken işlemler var.

Bunu şu şekilde çözüyorum, ancak bu şekilde bir ...

Sorunu şu şekilde çözdüm,
lazım olan arkadaşların işine yarar diye buraya yazıyorum...
------
procedure TForm1.Button4Click(Sender: TObject);
begin
if Edit1.Text ='' Then Edit1.SetFocus;
if Edit1.Text<>'' Then
Begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('SELECT TABLO1.Tc ...

Lüzum hissettiğim zaman bu değişikliği şöyle yapıyorum.
1. programın yedeğini alıyorum.
2. Programı açıp, adoconnection ile adoQuery1 leri yerleştiriyorum. Önce manuel değil de otomatik olarak program içinden bağlantı yapıp adoquery lerin string editörlerini dolduruyorum... sonra programi ...

Önce SQL QUERY ANALYZER 'i açıyorsunuz...
ve aşağıdaki kodları yazarak Run yapiyorsunuz...
her iki işlemi de ayrı ayrı da yapabilirsiniz, birlikte de yapabilirsiniz..


DENEME ISIMLI DATA'da LOG TEMIZLEME
----------------------------------------
USE DENEME
DBCC SHRINKFILE(DENEME_Log,2)

USE ...

öncelikle ilginiz için teşekkür ederim.
yalnız şöyle bir sorun var.

iki tablodaki ortak alan olan tc_kimlikno ile arama yapmanın bir zorluğu yoktur, yani daha doğrusu, birinci tablodaki alanlar üzerinden arama yapılabiliyor, ve bu birinci tablodan arama yapılıdğında TABLO2 dolayısıyla DBGRID2 de ...

Öncelikle, örnekleri incelediğim halde çare bulamadığım için buraya yazıyorum..

Elimde 2 tablo var, Master ve Detail Tablo
her iki tabloyu birbirine TC KİMLİK NO ile bağlıyorum.

ANa Tablo da, TC_KIMLIKNO, ADI,SOYADI

Detail Tablo da ise, TC_KIMLIKNO, GOREV_YERI, UNVANI

alanlar bulunmaktadır ...

Arkadaşlar,
nüfus ve vatandaşlık genel müdürlüğü ile ilgili kurumlarca yapılan ikili anlaşmalar gereği, yapılan programda oluşturulan kodlar sonucu anılan yerden alınan user ve şifre ile izin verilen alanlara ulaşılıyor ve kendi veritabanımıza transfer edebiliyoruz.

Hatta, Nüfus ve vatandaşlığın ...

Program'in girişinden kastiniz
form'un creatine mi,, yoksa yapılan her kisa porgramin başlangicina mi..
ikisi arasında bir fark olur mu?

örnekteki işlemi yaptıktan sonra aşağıdaki tarih ayarlamasını yapmaya gerek var mı?

aşağıdaki örnek delphi7 de test edilmiştir, her hangi bir hata da vermemiştir.. bunu kendi programina uygun hale getirerek kullanabilirsin..
kolay gelsin..
not: fonksiyon buradaki bir arkadaşimizdan alinmiştir..
//////////////
Function SayiUret(RandMin, RandMax: Integer): Integer;
Var
RandRange ...

arkadaşim,
xP de kurulu olan service Pack2'yi bilgisayarindan kaldir ve yeniden kurmayi dene.. bir de Regedit'te de biraz temizlik yaparsan daha iyi olur.. önceden bende de sorun çıkmıştı, arkadaşlara sordum ama net bir yanit alamamıştım, üzerinde ittifak edilen çözüm genel olarak bu yazdığım dı ...

aşağıdaki kodlar işine yarayabilir.. yalnız kullandığın veritabanına göre işaretlerde değişme olabiliyor, örneğin SQL veritabanı ile ACCESS veritabanı arasında fark olabiliyor..
bu durumda da biraz gayret etmen, biraz araştırma yapman ve biraz da deneme yanılma yolu ile kendini yorman gerekiyor ...

ilave olarak,
dişardan aldigin parametrelerle de veritabanina bağlanti yapabilirsin..
-- AdoQuery1.ConnectionString:='Provider=SQLOLEDB.1;Password='+UserSifresi+';Persist Security Info=true;User ID='+LoginAdi+';Initial Catalog=DENEMEVERITABANIADI;Data Source='+Ip_Numarasi+'';
AdoQuery1.LockType ...

Aşağıdaki örnekte olduğu gibi düzenlersen dileğin yerine gelmiş olur.. örneği bir button 'un on klick'ine de yazabilirsin.. formun Oncreatesi'ne de yazabilirsin..
Örnekte gördüğün gibi, bağlanti yapildiktan sonra, veritabaninin açılımı ve kullanimi ile ilgili ayarlamalar yapiyoruz..
-----
procedure ...

aşağıdaki kodlar işinize yarayabilir, kendi ihtiyaciniza göre değiştirebilirsiniz
---------
procedure TForm1.IsimSoyisimArama1Click(Sender: TObject);
var
araadi,arasoyadi:string;
begin
araadi:=inputbox('İsim GİRİŞİ', 'prompt', 'İsmi');
arasoyadi:=inputbox('SOYAD GİRİŞİ', 'prompt', 'Soyismi ...