text dosyadan Mssql database e aktarım

[conari]

Merhaba arkadaşlar siteye bu gün üye oldum.üye olmadan da forumu inceliyordum.

başlıkta belirtmiş oldugum olay için biraz yardıma ihtiyacım var.
Bir barkod okuyu cihaz var,cihaz barkod numarasını okuyo kullanan kişi de adet giriyor.(yani sayım işlemi)
barkod cihazından da bilg. bir text dosya alıyoruz.
yapmak istediğim buradan itibaren anlaşıldı sanırım.Sayım rrakamları Mssql database ini aktarmak için ufak bir program yazıyorum şu an

nasıl başlıyabilirim .yardımlar için teşekkür..

[aslangeri]

s.a.
aramıza hoşgeldin.
ma yaparak başlayabilirsin.
text dosyasından kayıt okuma ile ilgili epey şeyler konuşuldu.
emin olun sonuca ulaşmanızda size yardımcı olacaktır.
kolay gelsin.

[conari]

Arkadaşlar formda biraz araştırma yaptım.Barkod txt okuma ve yazma işlemi ile ilgili örnekler var, Fakat ben baya bu konuya uzak kalmışım.

Yardım edebilecek arkadaşlar arıyorum..

Kod: Tümünü seç

var 
Dosya:Textfile; 
DosyaAdi,Satir:String; 
miktar:integer; 
begin 
DosyaAdi:='c:\deneme.txt'; 
AssignFile(Dosya,DosyaAdi); 
{$I-} 
Reset(Dosya); 
  if IOResult=0 then 
  begin 
    while not EOF (Dosya) do 
    begin 
    ReadLn(Dosya,Satir);//bir satır oku 
    qryDeneme.First; 
         if (Copy(Satir,1,2)='28') then//başlangıç flaginin 28 olup olmadığı kontrol edilir 
         begin 
           if qryDeneme.Locate('BARKOD',Copy(Satir,3,5),[]) then 
           begin 
           qryDeneme.Edit; 
           miktar:=StrToInt(Copy(Satir,8,5)); 
           qryDenemeMIKTARI.AsInteger:=miktar; 
           qryDeneme.Post; 
           end; 
         end; 
      if (Copy(Satir,1,2)='27') then//başlangıç flaginin 27 olup olmadığı kontrol edilir 
        begin 
        if qryDeneme.Locate('BARKOD',Copy(Satir,3,5),[]) then 
          begin 
          qryDeneme.Edit; 
          miktar:=StrToInt(Copy(Satir,8,5)); 
          qryDenemeMIKTARI.AsInteger:=miktar; 
          qryDeneme.Post; 
          end; 
        end; 
     end; 
  begin  
  DosyaAdi:='c:\deneme.txt'; 
  AssignFile(Dosya,DosyaAdi); 
  {$I-} 
  Reset(Dosya); 
  end; 
    if IOResult=0 then 
    begin 
    while not EOF (Dosya) do 
      begin 
      ReadLn(Dosya,Satir);//bir satır oku 
      qryDeneme.First; 
         if (Copy(Satir,1,3)='869') then //burada da başlangıç flaginin 869 olup olmadığı kontrol edilir. 
         begin 
              if qryDeneme.Locate('BARKOD',Copy(Satir,1,13),[]) then 
              begin 
              qryDeneme.Edit; 
              miktar:=StrToInt(Copy(Satir,14,20)); 
              qryDenemeMIKTARI.AsInteger:=miktar; 
              qryDeneme.Post; 
              end; 
          end; 
      end; 
   end; 
end; 
end;

kodu siteden aldım ama bunu biraz açabilecek arkadaşlar arıyorum..