Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: FireBird'e Kayıt Ekleme  (Okunma sayısı 1470 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı bulent1453

  • Delphi 5 Level 3
  • ***
  • İleti: 221
  • Rep: +1/-0
  • Cinsiyet: Bay
  • ilmin kapısı sormaktır.
FireBird'e Kayıt Ekleme
« : 06 Temmuz 2008 02:11:58 »
Arkadaşlar firebird Vt nına Bağlanmayı tamamladım.
fatih beyin 243-244. sayfalarına çalışıyorum.
ancak uygulama hata veriyor.
yardım edin lütfen;
kod ve hata mesajı aşağıdadır;

Kod: [Seç]
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
FbBaglan: FbConnection;
FbKomut: FbCommand;
SqlCumlesi: String;

begin
 FbBaglan:= FbConnection.Create(FbConStr);
 FbBaglan.Open;

 //SQL Cümlesi oluştur.
 SqlCumlesi:= 'INSERT INTO TBL_UYELER'+
 ' (ADI, SOYADI, TARIH) VALUES '+
 ' ('''+TextBox1.Text+ ''','+
 ''''+TextBox2.Text+ ''', '''+
 SYSTEM.DateTime.Today.ToShortDateString + ''');';
 //Command nesnesini oluştur.
 FbKomut:= FbCommand.Create(SqlCumlesi, FbBaglan);
 FbKomut.ExecuteNonQuery;
 FbBaglan.Close;
end;
Kod: [Seç]
procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);


var
Fbstr: FbConnectionStringBuilder;
begin
// bağlantı stringini oluştur.
Fbstr:= FbConnectionStringBuilder.Create;
Fbstr.DataSource:='localhost';
Fbstr.Database:='C:\ILK_ASP.FDB';
Fbstr.ConnectionTimeout:=20;
Fbstr.UserID:='SYSDBA';
Fbstr.Password:='masterkey';
Fbstr.Dialect:=3;
Fbstr.PacketSize:=4096;
Fbstr.Role:= '';
Fbstr.Charset:='wIN1254';
Result:=FbStr.toString;

end;

hata mesajı:  [Pascal Error] WebForm1.pas(117): E2003 Undeclared identifier: 'Result'

ancak Result:=FbStr.toString;

silip RUN ile çalıştırdığım ve buton ile bilgi eklemek istediğim zaman aşağıdaki hata çıkıyor;

debugger exception notification
project //localhost/WebApplication1/WebForm1.aspx raised exception class system.Web.HttpUnhandledexception.

hatası veriyor

nerede yanlış yaptım.
yardım lütfen!!!!!!!!!!!!!!!!!

« Son Düzenleme: 06 Temmuz 2008 02:18:05 by bulent1453 »

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: FireBird'e Kayıt Ekleme
« Yanıtla #1 : 06 Temmuz 2008 08:22:12 »
Result bir fonksiyonda kullanılır. Kodlarınızda bir fonksiyon göremiyorum
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı bulent1453

  • Delphi 5 Level 3
  • ***
  • İleti: 221
  • Rep: +1/-0
  • Cinsiyet: Bay
  • ilmin kapısı sormaktır.
Ynt: FireBird'e Kayıt Ekleme
« Yanıtla #2 : 06 Temmuz 2008 11:26:42 »
kitabınızn 243. sayfasındaki (Pusula yay.) kodları uygulamaya çalıştım hata veriyor.

neden yukarıdaki mesaj geilyor üstadım SQL de bir eksik veya hata mı var saygılar

Çevrimdışı bulent1453

  • Delphi 5 Level 3
  • ***
  • İleti: 221
  • Rep: +1/-0
  • Cinsiyet: Bay
  • ilmin kapısı sormaktır.
Ynt: FireBird'e Kayıt Ekleme
« Yanıtla #3 : 06 Temmuz 2008 22:19:30 »
bu hata mesajından nasıl kurtulurum.

vt kayıt yapmıyor
aşağıdaki mesaj geliyor

debugger exception notification
project //localhost/WebApplication1/WebForm1.aspx raised exception class system.Web.HttpUnhandledexception.
 bu lanet mesajdan nasıl kurtulurum

Çevrimdışı sairadam

  • Delphi 1 Level 3
  • ***
  • İleti: 28
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Sair Adam
Ynt: FireBird'e Kayıt Ekleme
« Yanıtla #4 : 27 Temmuz 2008 06:53:08 »
Firebird connection stringini webconfig dosyasina tanimlar ve o şekilde kullanirsan hata almazsin. Örnek:

Kod: [Seç]
<connectionStrings>
<add name="dbim" connectionString="Server=localhost;User=SYSDBA;Password=masterkey;Charset=UNICODE_FSS;Database=F:\sitem\db\sitem.fdb"
providerName="FirebirdSql.Data.FirebirdClient" />
</connectionStrings>
sayfa icinde kullanimi ise :
Kod: [Seç]
procedure Tsayfa.b1_Click(sender: System.Object; e: System.EventArgs);
var
db:FbConnection;
calistir:FbCommand;
sql:string;
begin

db:=FbConnection.Create(ConfigurationManager.ConnectionStrings['dbim'].ConnectionString);
db.Open;
sql:='INSERT INTO tablom (ALAN1,ALAN2) VALUES('+#39+ALAN1.TEXT+#39+','+#39+ALAN2.TEXT+#39+')';
calistir:=FbCommand.Create(sql,db);
calistir.ExecuteNonQuery;
db.Close;
end;

Umarım yardımcı olur. Gerçi epey geç bi cevap ama bakarsın başkalarının işine yarar :D
« Son Düzenleme: 27 Temmuz 2008 16:13:51 by sairadam »
Hobim kod yazmak sevdamsa sensin.
Haydi bir el atında şu neşem düzelsin.