Delphi 2010 ‘da odbc kullanmadan ole ile veri \u00e7ekme komutu..<\/p>\n
butonumuz’un i\u00e7eri\u011fi<\/p>\n
procedure TAnaForm.cxButton1Click(Sender: TObject);\r\nvar\r\n book:variant;\r\n excel,sheet:variant;\r\n satir, sutun,i,RehID,d:integer;\r\n DbS,ExcelS:string;\r\n\r\n function excelsonsatir(AColumn: Integer): Integer;\r\n const\r\n xlUp = 3;\r\n begin\r\n Result := excel.Range[Char(96 + AColumn) + IntToStr(65536)].end[xlUp].Rows.Row;\r\n end;\r\nbegin\r\n\r\n excel := CreateOleObject('Excel.Application');\r\n OpenDialog1.Title := 'Excel Dosyas\u0131n\u0131 A\u00e7';\r\n OpenDialog1.Filter := 'Excel Dosyalar\u0131 *.xls';\r\n\r\n\/\/ if OpenDialog1.Execute then begin\r\n book := Excel.WorkBooks.Open(cxTextEdit1.text);\r\n\r\n try\r\n Screen.Cursor := crHourGlass;\r\n sheet := book.worksheets[1];\r\n cxLabel1.Caption := 'Excelden veriler aktar\u0131l\u0131yor.Bekleyiniz...';\r\n cxProgressBar1.Properties.Max := excelsonsatir(1)+1;\r\n\r\n for satir := 2 to excelsonsatir(1)+1 do begin\r\n\r\n cxProgressBar1.Position := satir;\r\n cxProgressBar1.Refresh;\r\n\r\n if VarToStr(sheet.cells[satir,2]) <> '' then\r\n begin\r\n tablo.ADOQuery1.Close;\r\n tablo.ADOQuery1.SQL.Text:='select * from ILSEMT where SEMTADI='''+trim( VarToStr(sheet.cells[satir,2]) )+'''';\r\n tablo.ADOQuery1.Open;\r\n\r\n DbS:=trim(Tablo.ADOQuery1.FieldByName('SEMTADI').AsString);\r\n ExcelS:=trim(VarToStr(sheet.cells[satir,2]));\r\n\r\n if DbS=ExcelS then\r\n begin\r\n \/\/showmessage(Tablo.ADOQuery1.FieldByName('SEMTADI').AsString+'-'+VarToStr(sheet.cells[satir,2])+' AYNI eklenmeyecek');\r\n end else\r\n begin\r\n\/\/ showmessage('insert into ILSEMT(ILNO,SEMTADI,UZAKLIK) values('''+trim( VarToStr(sheet.cells[satir,1]) ) +''','''+trim( VarToStr(sheet.cells[satir,2]) )+''','''+trim( VarToStr(sheet.cells[satir,3]) )+''') ');\r\n cxMemo1.Lines.Add(VarToStr(sheet.cells[satir,2]));\r\n tablo.ADOQuery1.Close;\r\n tablo.ADOQuery1.SQL.Text:='insert into ILSEMT(ILNO,SEMTADI,UZAKLIK) values('+trim( VarToStr(sheet.cells[satir,1]) ) +','''+trim( VarToStr(sheet.cells[satir,2]) )+''','''+StringReplace(trim( VarToStr(sheet.cells[satir,3]) ),',','.',[rfReplaceAll])+'''); select scope_identity() as deger; ';\r\n tablo.ADOQuery1.open;\r\n end;\r\n\r\n\/\/ showmessage('di\u011fer kayda ge\u00e7iyor');\r\n end;\r\n\r\n if tablo.ADOQuery1.fields[0].asinteger>0 then d:=tablo.ADOQuery1.fields[0].AsInteger;\r\n\r\n \/\/nakliye ye giri\u015f\r\n\/\/ tablo.ADOQuery1.Close;\r\n\/\/ tablo.ADOQuery1.SQL.Text:='insert into NAKLIYE(SEMTNO,TUTAR,ALT,UST) values('+trim( inttostr(d) ) +','+trim( VarToStr(sheet.cells[satir,6]) ) +','''+trim( VarToStr(sheet.cells[satir,4]) ) +''','''+trim( VarToStr(sheet.cells[satir,5]) ) +''') ';\r\n\/\/ tablo.ADOQuery1.execsql;\r\n \/\/nakliyeye giri\u015f\r\n\r\n end;\r\n excel.DisplayAlerts := False;\r\n excel.quit;\r\n excel := Unassigned;\r\n Application.Messagebox(PChar('Veriler kaydedilmi\u015ftir.'),Pchar('uyar\u0131'),MB_OK);\r\n finally\r\n Screen.Cursor:=crDefault;\r\n end;\r\n\/\/ end;\r\nend;<\/pre>\n <\/p>\n","protected":false},"excerpt":{"rendered":"
Delphi 2010 ‘da odbc kullanmadan ole ile veri \u00e7ekme komutu.. butonumuz’un i\u00e7eri\u011fi procedure TAnaForm.cxButton1Click(Sender: TObject); var book:variant; excel,sheet:variant; satir, sutun,i,RehID,d:integer; […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_uag_custom_page_level_css":"","site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[345,2],"tags":[7,151],"class_list":["post-219","post","type-post","status-publish","format-standard","hentry","category-excel","category-yazilim","tag-delphi","tag-excell"],"uagb_featured_image_src":{"full":false,"thumbnail":false,"medium":false,"medium_large":false,"large":false,"1536x1536":false,"2048x2048":false},"uagb_author_info":{"display_name":"VeYSeL","author_link":"https:\/\/dijitalturk.com\/veysel\/author\/veysel\/"},"uagb_comment_info":1,"uagb_excerpt":"Delphi 2010 ‘da odbc kullanmadan ole ile veri \u00e7ekme komutu.. butonumuz’un i\u00e7eri\u011fi procedure TAnaForm.cxButton1Click(Sender: TObject); var book:variant; excel,sheet:variant; satir, sutun,i,RehID,d:integer; […]","_links":{"self":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/posts\/219","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/comments?post=219"}],"version-history":[{"count":0,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/posts\/219\/revisions"}],"wp:attachment":[{"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/media?parent=219"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/categories?post=219"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dijitalturk.com\/veysel\/wp-json\/wp\/v2\/tags?post=219"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}