AccessのVBAでSQLのLEFT関数を使い、文字列の左端から指定した文字数分の文字列を取り出す｜フォーム実行例
文字列の左端から指定した文字数分の文字列を返す LEFT関数
SQL = " SELECT LEFT(フィールド名,文字数) FROM テーブル名 "
又は、
SQL = " SELECT LEFT(フィールド名,文字数) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
文字数を2にした場合、
「大阪を楽しみましたか」の場合、「大阪」に
「ススキ揺れ、秋の気配」の場合、「スス」になります。
［コード］
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
Dim rs As Recordset
SQL = "SELECT ニュース,LEFT(ニュース,5) FROM サンプルデータ"
Set rs = CurrentDb.OpenRecordset(SQL)
Do Until rs.EOF
Me!テキスト1 = Me!テキスト1 & rs(0) & " 左から5文字：" & rs(1) & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
End Sub
サンプルソフトのダウンロード
又は、
SQL = " SELECT LEFT(フィールド名,文字数) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
文字数を2にした場合、
「大阪を楽しみましたか」の場合、「大阪」に
「ススキ揺れ、秋の気配」の場合、「スス」になります。
サンプルソフト
［実行時の画面］
「文字列の左端から指定した文字数分の文字列を返す LEFT関数」ボタンをクリックすると、
ニュースフィールドの先頭から5文字を取り出し表示します。
■実行画面
・人工降雨佐世保市の試み失敗 左から5文字：人工降雨佐
・ﾛﾅｳﾄﾞが重傷、引退の危機 左から5文字：ﾛﾅｳﾄﾞ
・GDP0.9%増、年率換算3.7%増 左から5文字：GDP0.
［サンプルデータ テーブル］
データID ニュース
10 人工降雨佐世保市の試み失敗
11 ﾛﾅｳﾄﾞが重傷、引退の危機
13 GDP0.9%増、年率換算3.7%増
［実行時の画面］
「文字列の左端から指定した文字数分の文字列を返す LEFT関数」ボタンをクリックすると、
ニュースフィールドの先頭から5文字を取り出し表示します。
■実行画面
・人工降雨佐世保市の試み失敗 左から5文字：人工降雨佐
・ﾛﾅｳﾄﾞが重傷、引退の危機 左から5文字：ﾛﾅｳﾄﾞ
・GDP0.9%増、年率換算3.7%増 左から5文字：GDP0.
［サンプルデータ テーブル］
データID ニュース
10 人工降雨佐世保市の試み失敗
11 ﾛﾅｳﾄﾞが重傷、引退の危機
13 GDP0.9%増、年率換算3.7%増
［コード］
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
Dim rs As Recordset
SQL = "SELECT ニュース,LEFT(ニュース,5) FROM サンプルデータ"
Set rs = CurrentDb.OpenRecordset(SQL)
Do Until rs.EOF
Me!テキスト1 = Me!テキスト1 & rs(0) & " 左から5文字：" & rs(1) & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
End Sub
サンプルソフトのダウンロード
Home 
SQL TipsCopyright(C) FeedSoft