引言: 我之前所寫的程式中，有用到locate來找資料是否重復 if DM_MT.Table_MT_dba.locate('dba_id',Edit_MT_DBAid.text,[])then begin showmessage('管理員代碼 ' Edit_MT_DBAid.text ' 重覆!!請重新輸入!'); edit_mt_dbaid.SetFocus; end 但是今天又測試了一下，發現他並不會去執行這一行指令了 因為之前連線的主機當掉，我改連localhost的資料庫 突然就不行了， 請問，這和mysql的版本或是什麼有關係呢… < face="Verdana, Arial, Helvetica"> 我沒用過mysql, 但應該關係不大吧! 可能和你置放的事件位置有關係(因為你的訊息告訴我們是沒有去執行), 不知是否有錯誤發生呢?

引言: 建議你用sql 不要用 locate的function 天行健 君子當自強不息~~@.@

為什麼呢，之前都用的好好的， 一夕之間，我的新修改查裡，只要用到locate的， 都不能用了… 我現在已經在改成sql的語法了…(好多哦) 不過我還是想知道…為什麼… >

引言: [quote] 建議你用sql 不要用 locate的function 天行健 君子當自強不息~~@.@

我現在已經不用locate而改設一個query來存我每個用到的sql語法 但是…我現在又有問題了 我的dbgrid的游標要怎麼讓他移到我所找到的資料上呢… 因為之前用locate可以找到資料並移到該資料上， 現在不用locate，不曉得要怎麼讓游標移動了

引言:

引言: [quote] 建議你用sql 不要用 locate的function 天行健 君子當自強不息~~@.@

我現在已經不用locate而改設一個query來存我每個用到的sql語法 但是…我現在又有問題了 我的dbgrid的游標要怎麼讓他移到我所找到的資料上呢… 因為之前用locate可以找到資料並移到該資料上， 現在不用locate，不曉得要怎麼讓游標移動了 < face="Verdana, Arial, Helvetica"> 基本上要讓游標指到該筆資料可以用locate啊 天行健 君子當自強不息~~@.@

引言: 你可以把locate 前後的程式碼post上來看看 天行健 君子當自強不息~~@.@

引言:

引言: 你可以把locate 前後的程式碼post上來看看 天行健 君子當自強不息~~@.@

以下是我的程式碼… if (Edit_MT_dbaQuery.text='') then messagedlg('查詢值不可為空! ',mterror,[mbok],0) else with DM_MT do begin IF Table_MT_DBA.Locate('DBA_ID',Edit_MT_dbaQuery.text,[]) THEN begin Close; showmessage('已查到管理者代碼為 ' edit_mt_dbaquery.Text ' 的記錄'); end else begin showmessage('查無此筆 ' Edit_MT_dbaQuery.text ' 管理員記錄'); Edit_MT_dbaQuery.SetFocus; end; bitbtn2Click(nil);//關閉form end; 就這樣…麻煩您幫我看一下囉…謝謝

引言: 站長的經驗是Delphi的Locate指令, 有時會有查不到的情況發生, 而且也是像您一樣本來可以後來又不行, 所以, 建議最好不要用Locate的指令! ～～～Delphi K.Top討論區站長～～～

引言: 我已經一個一個將有使用到locate的地方改成query的語法了… 但是…像我在查詢某個資料時， 要怎麼讓dbgrid裡的游標移到我所找到的那筆資料呢？ 因為之前用locate就可以… 現在…唉…/_\ 已經近乎完工的程式，又得再改了… 不過還好及時發現的早…>< < face="Verdana, Arial, Helvetica"> 我想只能一筆一筆Next測試看看是否符合條件了, 其它網友有沒有好的辦法! ～～～Delphi K.Top討論區站長～～～

引言:

引言: 你可以把locate 前後的程式碼post上來看看 天行健 君子當自強不息~~@.@

以下是我的程式碼… if (Edit_MT_dbaQuery.text='') then messagedlg('查詢值不可為空! ',mterror,[mbok],0) else with DM_MT do begin open; IF Table_MT_DBA.Locate('DBA_ID',Edit_MT_dbaQuery.text,[]) THEN begin Close; showmessage('已查到管理者代碼為 ' edit_mt_dbaquery.Text ' 的記錄'); end else begin showmessage('查無此筆 ' Edit_MT_dbaQuery.text ' 管理員記錄'); Edit_MT_dbaQuery.SetFocus; end; bitbtn2Click(nil);//關閉form end; 就這樣…麻煩您幫我看一下囉…謝謝

引言: 這一句.. IF Table_MT_DBA.Locate('DBA_ID',Edit_MT_dbaQuery.text,[]) THEN 改這樣試看看.. IF Table_MT_DBA.Locate('DBA_ID',Edit_MT_dbaQuery.text,[loPartialKey ]) THEN TRY TRY SEE...

嗯…那是什麼指令呢？ 我試了他會出現錯誤哎…有拼錯嗎？

引言: 嗯…我那個close是關掉我的form， 因為這個程式是另一個form在做查詢的， 當我查完時會關閉form， 不過我看了一下我的程式，好像是多此一舉， 故我也有聽T.J.B大哥的話，把他註解掉， 但是，LOCATE還是沒辦法偵測到我的資料…>< 我今天拿了我的程式給同學測，發覺在同學的電腦上， 用LOCATE跑起來是沒問題的… 怎麼辦呢…/_\ 問題到底出在那??

引言: 請各位幫幫忙 請問一下 Locate改寫成SQL方式要如何修改? 可否show出更改前,後的程式碼做參考 另外如果我在TQuery下一SQL要查詢符合條件 的資料筆數,在 edit1.text show出資料筆數, 要如何做.

 
if DM_MT.Table_MT_dba.locate('dba_id',Edit_MT_DBAid.text,[])then
begin
showmessage('管理員代碼 ' Edit_MT_DBAid.text ' 重覆!!請重新輸入!');
edit_mt_dbaid.SetFocus;
end

  With DM_MT.Table_MT_dba do
  begin
    close;
    sql.clear;
    sql.add('select count(*) value from xxx where dba_id = ''' Edit_MT_DBAid.text  ''' '); 
    prepare;
    open;
    
    if not (isempty) then
    begin
    showmessage('管理員代碼 ' Edit_MT_DBAid.text ' 重覆!!請重新輸入!');
    edit_mt_dbaid.SetFocus;
    end
  end;

EDIT1.TEXT:= DM_MT.Table_MT_dba.FIELDBYNAME('value').asstring;

引言: 看了各位大大的留言....發現跟小弟所用的方式有點出入耶^^" 在此提供小弟locate的用法... if DM.AA48.Locate('AA48_C',VarArrayOf([AA48.Text]), [loPartialKey]) then 不同之處在於-->VarArrayOf([AA48.Text]) 不知是小弟愚知還是....@@ 小弟都是這樣用滴^^ 希望對大家有幫助...