14-06-2018, Saat: 11:12
Merhaba arkadaşlar,
Projemde güncelleme yapmak istiyorum.
Exe güncellememi ftp üzerinden yapacağım ayrıca veritabanını da güncellemek istiyorum otomatik olarak.
Yani
Exe mi kullanan kişi Exe yi çalıştırdığında exe'de / Db de güncellensin.
Örneğin:
DB_VERSIYON 1 de OgrenciTablo su içerisinde (DB_VERSIYON1 , EXE_VERSIYON1 ILE UYUMLU)
ogrenciTablosu
Isim Nvarchar(50)
Soyisim Nvarchar(50)
Numara Integer
DB_VERSIYON2 de OgrenciTablosu içerisinde (DB_VERSIYON2 , EXE_VERSIYON2 ILE UYUMLU)
ogrenciTablosu
Isim Nvarchar(100)
Soyisim Nvarchar(50)
Numara Integer
Tckn Nvarchar(11)
Aradaki fark
-İsim kolonu boyutu artırıldı
-Tckn kolonu eklendi.
Ben en son olarak EXE2 yi yayınladım. Sistemimi güncellerken ikisini de güncellemek istiyorum.
Umarım anlatabilmişimdir.
Bunu nasıl yapabilirim , tavsiyesi olan var mı? bilgisi olan arkadaşlar yardım edebilir mi?
Teşekkürler
Projemde güncelleme yapmak istiyorum.
Exe güncellememi ftp üzerinden yapacağım ayrıca veritabanını da güncellemek istiyorum otomatik olarak.
Yani
Exe mi kullanan kişi Exe yi çalıştırdığında exe'de / Db de güncellensin.
Örneğin:
DB_VERSIYON 1 de OgrenciTablo su içerisinde (DB_VERSIYON1 , EXE_VERSIYON1 ILE UYUMLU)
ogrenciTablosu
Isim Nvarchar(50)
Soyisim Nvarchar(50)
Numara Integer
DB_VERSIYON2 de OgrenciTablosu içerisinde (DB_VERSIYON2 , EXE_VERSIYON2 ILE UYUMLU)
ogrenciTablosu
Isim Nvarchar(100)
Soyisim Nvarchar(50)
Numara Integer
Tckn Nvarchar(11)
Aradaki fark
-İsim kolonu boyutu artırıldı
-Tckn kolonu eklendi.
Ben en son olarak EXE2 yi yayınladım. Sistemimi güncellerken ikisini de güncellemek istiyorum.
Umarım anlatabilmişimdir.
Bunu nasıl yapabilirim , tavsiyesi olan var mı? bilgisi olan arkadaşlar yardım edebilir mi?
Teşekkürler
Alan := Copy(Gecici, 1, Pos(' ', Gecici)-1);
System.Delete( Gecici, 1, Length(Alan) );
Gecici := Trim(Gecici);
Tip := Gecici;
If Copy( Tip, 1, Pos('(', Tip)-1 ) <> ''
then Tip := Copy( Tip, 1, Pos('(', Tip)-1 )
else Tip := Copy( Tip, 1, Pos(',', Tip)-1 );
System.Delete( Gecici, 1, Length(Tip) );
Gecici := Trim(Gecici);
If ( Gecici <> '' ) AND ( Gecici[1] = '(' )
then Uz := StrToInt(Copy(Gecici, 2, Pos(')', Gecici)-2));
If FieldList.IndexOf(Alan) < 0 then
begin
EksikField.Add( Format('%s|%s|%d|', [ Alan, Tip, Uz ] ) );
end else
begin
If (FieldByName(Alan).Size <> Uz)
then begin
AlanResize( Tablo, Alan , Tip, Uz)
end
else
begin
aTip := '';
case FieldByName(Alan).DataType of
ftAutoInc : aTip := 'AutoIncrement';
ftString : aTip := 'Text';
ftInteger : aTip := 'Integer';
ftBoolean : aTip := 'Logical';
ftDate : aTip := 'Date';
ftTime : aTip := 'Time';
ftMemo : aTip := 'Memo';
end;
If (aTip <> '') AND ( UpperCase(aTip) <> UpperCase(Tip) ) then
begin
if UpperCase(Tip) <> 'AUTOINCREMENT' then
begin // 'INTEGER' ile 'AUTOINCREMENT' karıştırılıyor...
DuzeltField.Add( Format('%s|%s|%d|', [ Alan, Tip, Uz ] ) );
end;
end;
end;
end;
end;
Active := False;
Free;
end; // With
if EksikField.Count > 0 then begin
For i := 0 to EksikField.Count-1 do
begin
sDummy := EksikField[i];
Alan := Copy( sDummy, 1 , Pos('|', sDummy)-1);
system.Delete( sDummy, 1, Pos('|', sDummy) );
Tip := Copy( sDummy, 1 , Pos('|', sDummy)-1);
system.Delete( sDummy, 1, Pos('|', sDummy) );
Uz := StrToInt( Copy( sDummy, 1 , Pos('|', sDummy)-1) );
AlanEkle( Tablo, Alan, Tip, Uz);
end;
end;
if DuzeltField.Count > 0 then begin
For i := 0 to DuzeltField.Count-1 do
begin
sDummy := DuzeltField[i];
Alan := Copy( sDummy, 1 , Pos('|', sDummy)-1);
system.Delete( sDummy, 1, Pos('|', sDummy) );
Tip := Copy( sDummy, 1 , Pos('|', sDummy)-1);
system.Delete( sDummy, 1, Pos('|', sDummy) );
Uz := StrToInt( Copy( sDummy, 1 , Pos('|', sDummy)-1) );
AlanResize( Tablo, Alan, Tip, Uz);
end;
end;
finally
EksikField.Free;
end;
end;
Procedure tStokHelper.AlanEkle( Tablo: String; Alan, Tip : String; Uzunluk:Integer );
Const
FieldEkle = 'ALTER TABLE %s ADD %s %s(%d)';
FieldEkleDate = 'ALTER TABLE %s ADD %s %s';
begin
Case Uzunluk of
0: aZExecute( Format(FieldEkleDate, [Tablo, Alan, Tip ]) );
else aZExecute( Format(FieldEkle, [Tablo, Alan, Tip, Uzunluk ]) );
end; // Case
end;
Procedure tStokHelper.AlanResize( Tablo: String; Alan, Tip : String; Uzunluk:Integer );
Const
FieldEkle = 'ALTER TABLE %s ALTER COLUMN %s %s(%d)';
FieldEkleDate = 'ALTER TABLE %s ALTER COLUMN %s %s';
begin
Case Uzunluk of
0: aZExecute( Format(FieldEkleDate, [Tablo, Alan, Tip ]) );
else aZExecute( Format(FieldEkle, [Tablo, Alan, Tip, Uzunluk ]) );
end; // Case
end;
