hi: 請問一下各位,不知你們有沒有碰過,在3 tier 時,在client 端執行aplyupdates時,就停在aplyupdates的那一行,動也不動,但當去資料庫看時 其資料有進去資料庫. 我的架構是3-tier,用socketconnect,ado connection,sql server. 感恩!

能不能把你的 SOURCE 貼上來啊... -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

引言: 能不能把你的 SOURCE 貼上來啊... -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

我找到原因了,不是程式問題,原因是sql server 要更新至sp3, 應該是說要把MDAC(沒記錯的話應該是叫MDAC) 更新至 MDAC2.7, 我想可能我是用ADO 的關係,所以才需要更新這個東東.

引言: 能不能把你的 SOURCE 貼上來啊... -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

function TToNotes.BeginInsert: boolean; var filecount, vInt, FilelsBxCount, i: integer; filename, BackupName: string; AstringList1, LogStringList: TstringList; modelMappath: string; begin FileListBox1.update; FileListBox1.ApplyFilePath(TR7100DIR); FilterComboBox1.Filter := 'Pascal files (*.data)|*.dir'; if filelistbox1.items.count=0 then Button1Click(nil); if FileListBox1.Items.Count > 0 then begin FilelsBxCount := FileListBox1.Items.Count; if FilelsBxCount > 1 then //控制一次insert幾個dir FilelsBxCount := 1; for vInt := 0 to FilelsBxCount - 1 do //避免被其他常駐程式抓到 begin filename := TR7100DIR FileListBox1.items[vInt]; BackupName := ChangeFileExt(filename, '.cah'); // renamefile(filename, BackupName); end; for vInt := 0 to {FileListBox1.Items.Count} FilelsBxCount - 1 do begin filename := TR7100DIR FileListBox1.items[vInt]; filename := ChangeFileExt(filename, '.cah'); // CRT_date := GetSYSDATE_D; if ToHandleDIR(filename, AstringList1, modelMappath) = true then begin //LogStringList := TStringList.create; // LogStringList.Add(dtBoardBoardSN.asstring ';' dtBoardTopBtm.asstring); // LogStringList.SaveToFile('c:\befapply.txt'); // LogStringList.free; if dtboard.ApplyUpdates(0) > 0 then //就是在這行時回不來 begin if AstringList1 <> nil then AstringList1.free; BackupName := ChangeFileExt(filename, '.afail'); renamefile(filename, BackupName); Continue; end else begin if dtfov.ApplyUpdates(0) > 0 then begin if AstringList1 <> nil then AstringList1.free; BackupName := ChangeFileExt(filename, '.bfail'); renamefile(filename, BackupName); Continue; end; end; for i := 0 to AstringList1.Count - 1 do begin DeleteFile(AstringList1.Strings[i]); end; AstringList1.free; DeleteFile(filename); end else begin if AstringList1 <> nil then AstringList1.free; BackupName := ChangeFileExt(filename, '.fail'); renamefile(filename, BackupName); Continue; end; end; end; end;

引言: 能不能把你的 SOURCE 貼上來啊... -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

function TToNotes.BeginInsert: boolean; var filecount, vInt, FilelsBxCount, i: integer; filename, BackupName: string; AstringList1, LogStringList: TstringList; modelMappath: string; begin FileListBox1.update; FileListBox1.ApplyFilePath(TR7100DIR); FilterComboBox1.Filter := 'Pascal files (*.data)|*.dir'; if filelistbox1.items.count=0 then Button1Click(nil); if FileListBox1.Items.Count > 0 then begin FilelsBxCount := FileListBox1.Items.Count; if FilelsBxCount > 1 then //控制一次insert幾個dir FilelsBxCount := 1; for vInt := 0 to FilelsBxCount - 1 do //避免被其他常駐程式抓到 begin filename := TR7100DIR FileListBox1.items[vInt]; BackupName := ChangeFileExt(filename, '.cah'); // renamefile(filename, BackupName); end; for vInt := 0 to {FileListBox1.Items.Count} FilelsBxCount - 1 do begin filename := TR7100DIR FileListBox1.items[vInt]; filename := ChangeFileExt(filename, '.cah'); // CRT_date := GetSYSDATE_D; if ToHandleDIR(filename, AstringList1, modelMappath) = true then begin //LogStringList := TStringList.create; // LogStringList.Add(dtBoardBoardSN.asstring ';' dtBoardTopBtm.asstring); // LogStringList.SaveToFile('c:\befapply.txt'); // LogStringList.free; if dtboard.ApplyUpdates(0) > 0 then //就是在這行時回不來 begin if AstringList1 <> nil then AstringList1.free; BackupName := ChangeFileExt(filename, '.afail'); renamefile(filename, BackupName); Continue; end else begin if dtfov.ApplyUpdates(0) > 0 then begin if AstringList1 <> nil then AstringList1.free; BackupName := ChangeFileExt(filename, '.bfail'); renamefile(filename, BackupName); Continue; end; end; for i := 0 to AstringList1.Count - 1 do begin DeleteFile(AstringList1.Strings[i]); end; AstringList1.free; DeleteFile(filename); end else begin if AstringList1 <> nil then AstringList1.free; BackupName := ChangeFileExt(filename, '.fail'); renamefile(filename, BackupName); Continue; end; end; end; end;