Delphi Forum

Arkadaşlar Merhaba; SQL de çalışan bir kodu Delphi de çalıştırmak istiyorum "Incorrect Syntax near ','' Process stopped Hatası veriyor. Yardım edebilir misiniz? KONTROL.SQL.Text:='CREATE TABLE [TBLEMANETIPTSTH]('+ '[STOK_KODU] [TDBSTOKKOD] NOT NULL,'+ '[FISNO] [TDBBELGENO] NULL,'+ '[STHAR_GCMIK] [TD...

Yusuf şimşek kardeşim denedim şöyle bir durum var ; Bu şekil de kullanınca "< 0 " hep oluştura gidiyor. Ama "> 0" bu şekilde kullanınca tepki yok her ne yaptıysam da olmadı "= 0" , "<>0" denedim olumlu olumsuz "not" denedim olmadı. KONTROL.SQL.Text:='SELECT * FROM information_schema.tables WHERE tab...

Yusuf Şimşek Kardeşim İlgi ve alakan için çok teşekkür ederim. Allah senden Razı olsun ne kadar dua etsem de azdır. Kodlarını henüz deneyemedim ancak akşam bakabilirim daha sakin ve yazmış olduğunuz kodları anlayabilmek öğrenmek için. Sonucu da bur da paylaşırım.

Arkadaşlar Bu şekilde Kontrolü sağladım. Kod şöyle ; KONTROL.SQL.Text := 'SELECT * FROM information_schema.tables WHERE table_name = ''TBLPARAMETRE'''; KONTROL.Open; if not KONTROL.Eof then ShowMessage('TBLPARAMETRE Oluşturma') else ShowMessage('TBLPARAMETRE Oluştur'); End; Sorum şu , 4 Tablom daha ...

Hayırlı Sabahlar ; Yok ben SQL de bu cümle ile doğruluğuna bakıyorum. Delphi de kullanmıyorum. Ama çözü me bir türlü ulaşamadım .

Merhaba ; Bu şekilde düzenledim yine sonuç alamadım nerde yanlış yapıyorum ? Amacım İlgili şirketi bulmak ve altındaki tabloları kontrol etmek var ise programa girecek yok ise hangisi yoksa onu Create edecek. procedure TForm1.BitBtn3Click(Sender: TObject); Var DATA:String; begin //////////////şirket...

Arkadaşlar Merhaba ; Bir konuda yardımınıza ihtiyacım var. İlk giriş de programa Database seçiliyor ve ben bu Database İlişiklendirip Tablo kontrolü yapmak istiyorum özetle İlgili şirket Database altında Tablo var mı? yok mu? kontrol etmek istiyorum. Bu şekilde de denedim yine olmadı DATABASE bulamı...

Merhaba; Yusuf Kardeşim çok teşekkür ederim bilgilendirmen için.

Tekbir sorunum kaldı; İlgili şirketi getirttim tamam peki Nasıl Click yaptırabilirim çünkü seçim yapmadan bilgiler gelmiyor; Bu şekilde olmadı :( procedure TForm1.FormActivate(Sender: TObject); Var ilkacilis:integer; Begin if ilkacilis<>1 then Begin DBLookupComboBox1.OnClick; ilkacilis:=1; End; End;

Yusuf Kardeşim ; Emeğine ve yüreğine sağlık yardımların için çok teşekkür ediyorum. Bu şekilde halletim ve bur da paylaşıyorum; procedure TForm1.FormShow(Sender: TObject); Var SirketGetirme : TStringList; begin SirketGetirme := TStringList.Create; SirketGetirme.LoadFromFile('C:\SIRKET.DLL'); DBLooku...

Yusuf Kardeşim; Şunu denedim bir tane Edit1 ekledim ve eşitledim baktım ki buraya da gelmedi şirket bilgisi acaba kaydederken mi hata yapıyorum; Kaydetme bölümüm; SirketKayit:= TStringlist.create; SirketKayit.Add(Edit2.Text); SirketKayit.SaveToFile('C:\SIRKET.DLL'); Geri çağırma kodlarım; procedure ...

Merhaba ; Yusuf Kardeşim ben şöyle bir şey yaptım , SaveToFile ile c:\SIRKET diye bir dosyaya şirketin adını yazdırdım sonra LoadFromFile ile de okuyorum ShowMessage(DATA) ile baktığım da şirket ismide geliyor ama ne yaptıysam bir türlü DBLookupComboBox1.Text eşitleyemedim bur da yardımcı olur musun...

KoPilot kardeşim birşey soracam DBLookupComboBox1 de şirket bilgilerini listeliyor ve ilgili şirketi seçtiğim zaman tamam buttonuna basıyorum bu seçmiş olduğum şirket ismini kaydedebileceğim bir kod örneği var mı elinde ? Gönderebilir misin?

Arkadaşlar Merhaba; Programa ilk giriş de Tablo daki şirketleri bulduruyorum ve seçerek giriş yapıyorum. Yapmak istediğim seçtiğim şirketi default getirtmek PARAM Tablosunda şirket alanını EPARAM_2 olarak tutuyorum bu şirketi DBlookupComboBox1 buldurup nasıl eşitleyebilirim ki sürekli şirket seçmek ...

yusuf simsek kardeşim örnek bir kod var mı?