請問
aaa := '12345-5555'
要如何篩選 aaa:='12345' 篩選 "-" 前面的字串

感謝大大們的幫忙



不好意思沒有敘述清楚

資料庫 access 有一欄位 aaa



aaa 的內容是 'XXXXX-bbbbb'
要如何篩選為 aaa:='XXXXX' 篩選 "-" 前面的字串 , "-" 後面的不要

該如何做 ?

謝謝

編輯記錄

來意不明
1.資料庫?
2.你是要比對字串嗎?
3.你是要把資料欄位中有這類的挑出來嗎?
4.你提到 a:= '12345-12345', 要找出 a:='12345', 很奇怪呢!
5.你是要找出"含"12345的, 還是要找出是12345

我假設你要的是第3項, 但不知你的資料庫是那種, 僅列一種常用寫法

select * from 資料庫名 where a欄位 like '12345%'

我猜想你要的應該是
aaa:=Copy(aaa,1,pos('-',aaa)-1);

如果猜錯那你就得說明清楚一點你要的是什麼?

===================引 用 zkying 文 章===================

請問
aaa := '12345-5555'
要如何篩選 aaa:='12345' 篩選 "-" 前面的字串

感謝大大們的幫忙

------
結案=動力
高手等等我 .... 追隨高手永不懈怠!!

不好意思沒有敘述清楚

資料庫 access 有一欄位 aaa



aaa 的內容是 'XXXXX-bbbbb'
要如何篩選為 aaa:='XXXXX' 篩選 "-" 前面的字串 , "-" 後面的不要

該如何做 ?

謝謝

若是固定長度

select LEFT(aaa, 5) from tabxx

===================引 用 zkying 文 章===================
不好意思沒有敘述清楚

資料庫 access 有一欄位 aaa



aaa 的內容是 'XXXXX-bbbbb'
要如何篩選為 aaa:='XXXXX' 篩選 "-" 前面的字串 , "-" 後面的不要

該如何做 ?

謝謝

------
What do we live for if not to make life less difficult for each other?

編輯記錄

===================引 用 christie 文 章===================
若是固定長度

select LEFT(aaa, 5) from tabxx

===================引 用 zkying 文 章===================
不好意思沒有敘述清楚

資料庫 access 有一欄位 aaa



aaa 的內容是 'XXXXX-bbbbb'
要如何篩選為 aaa:='XXXXX' 篩選 "-" 前面的字串 , "-" 後面的不要

該如何做 ?

謝謝





==============================
不好意思沒有敘述清楚

aaa的長度 38位元 "-" 在任何位置 但是只有一個 "-"
例如 :

aaa 的內容是 '我的-公司" 我只要 "我的"
aaa 的內容是 "我的公司-在台北" 我只要 "我的公司"

Access 請用 instr

SELECT Left(aaa,InStr(1,aaa,'-')-1) AS FieldName FROM TableName;


===================引 用 zkying 文 章===================

===================引 用 christie 文 章===================
若是固定長度

select LEFT(aaa, 5) from tabxx

===================引 用 zkying 文 章===================
不好意思沒有敘述清楚

資料庫 access 有一欄位 aaa



aaa 的內容是 'XXXXX-bbbbb'
要如何篩選為 aaa:='XXXXX' 篩選 "-" 前面的字串 , "-" 後面的不要

該如何做 ?

謝謝





==============================
不好意思沒有敘述清楚

aaa的長度 38位元 "-" 在任何位置 但是只有一個 "-"
例如 :

aaa 的內容是 '我的-公司" 我只要 "我的"
aaa 的內容是 "我的公司-在台北" 我只要 "我的公司"

------
結案=動力
高手等等我 .... 追隨高手永不懈怠!!

       ggg:string;

ggg := adoquery1.Fields[5].value;

query1.params[3].Asstring := Left(ggg,InSert(1,ggg,'-')-1);

編譯沒過 停在left 尾 " (" 前

請各位大大幫幫忙

===================引 用 chuang7287 文 章===================
Access 請用 instr
SELECT Left(aaa,InStr(1,aaa,'-')-1) AS FieldName FROM TableName;
=========================================================
var
ggg:string;
begin

ADOQuery1.SQL.Text:='select Left(aaa,InStr(1,aaa,''-'')-1) as LAAA From TableName'
ADOQuery1.SQL.Open;

ggg :=ADOQuery1.FieldByName('LAAA').AsString;
query1.params[3].Asstring := ggg;
..
end;//Try It.

------
What do we live for if not to make life less difficult for each other?

                 query1.SQL.clear;
query1.SQL.add('update print_add ');
query1.SQL.add(' set 貨品 =');
Query1.SQL.add('select Left(貨品,InStr(1,貨品,''-'')-1)');
Query1.Open;

query1.execsql;
請問用 UPDATE 方式要如何修改 不好意思我是新手上路 請見諒

[code delphi]
Query1.SQL.Text:='update print_add set 貨品 = Left(貨品,InStr(1,貨品,''-'')-1) where InStr(1,貨品,''-'') > 0';
Query1.ExecSql;

[/code]

===================引 用 zkying 文 章===================
query1.SQL.clear;
query1.SQL.add('update print_add ');
query1.SQL.add(' set 貨品 =');
Query1.SQL.add('select Left(貨品,InStr(1,貨品,''-'')-1)');
Query1.Open;

query1.execsql;
請問用 UPDATE 方式要如何修改 不好意思我是新手上路 請見諒

------
What do we live for if not to make life less difficult for each other?

謝謝大大 問題完全解答正確   
===================引 用 christie 文 章===================

[code delphi]
Query1.SQL.Text:='update print_add set 貨品 = Left(貨品,InStr(1,貨品,''-'')-1) where InStr(1,貨品,''-'') > 0';
Query1.ExecSql;

[/code]

===================引 用 zkying 文 章===================
query1.SQL.clear;
query1.SQL.add('update print_add ');
query1.SQL.add(' set 貨品 =');
Query1.SQL.add('select Left(貨品,InStr(1,貨品,''-'')-1)');
Query1.Open;

query1.execsql;
請問用 UPDATE 方式要如何修改 不好意思我是新手上路 請見諒