사용환경 : 델파이4 / Windows 98



안녕하세요..

이번주까지 엑셀의 데이타를 기존의 데이타베이스에 밀어넣어야 하는데

제가 만들고 있거든요 근데 안되네요..

조금 손보면 되는지 아님 아예 로직이 틀린건지 한번 검토해주세요..

많이 바쁘시겠지만.. 고수님들 부탁드립니다.



좀더 자세히 상황설명을 하자면..

엑셀에 존재하는 사번이 db에도 존재하는 사번이면 해당 엑셀의 값을

db의 테이블에 해당사번의 특정필드값으로 밀어넣는 것을 하려고 하거든요..

(한마디로 엑셀사번과 db사번이 같으면 해당사번의 필드업데이트(밀어넣기))

주요소스는 아래와 같습니다.



procedure TForm1.insertClick(Sender: TObject);

var

i : byte;

begin



v := createoleobject('excel.application');

v.workspace.open('c:test.xls'); -->여기에서 에러가 걸려요..



// v.workbooks('c:test.xls');

v.visible := false;



for i:=1 to 6 do -->엑셀다이타수만큼의 표현을 몰라서 상수로..쩝(가능하시면

이것두 알려주세요.!!)

begin

query1.close;

query1.ParamByName('custom_id').value := v.cells[i+1,1].formula;

query1.open;

if query1.FieldByName('custom_id').value = v.cells[i,1].formula then

begin

query1.FieldByName('bigo').value := v.cells[i, 2].formula ; //넣는부분

query1.Post;

end;

end;//for아래 begin

end;//프로시져 end





고수님들 부탁드립니다.흑흑...