SQL STRCONV関数で文字列を半角に変換する

STRCONVの引数に8を指定することで文字列を半角に変換することができます。

SQL = " SELECT STRCONV(フィールド名,8) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,8) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

STRCONV の引数に8を指定することで文字列を半角に変換することができます。
半角にできるのは、全角カタカナ・全角数字になります。

「宮崎産マンゴーは２００００円」を変換すると「宮崎産ﾏﾝｺﾞｰは20000円」になります。

Home　

SQL Tips

サンプルソフト
［実行時の画面］
「文字列を半角に変換する STRCONV関数」ボタンをクリックすると、
ニュースフィールドの半角に変換可能な文字を変換し右のテキストボックスに表示しています。

ヤッターマンの歌
　[結果]ﾔｯﾀｰﾏﾝの歌

映画俳優ジョニー・デップさんが１４日、２億円を寄付
　[結果]映画俳優ｼﾞｮﾆｰ･ﾃﾞｯﾌﾟさんが14日､2億円を寄付

おバカ主役?ヘキサゴン舞台化
　[結果]おﾊﾞｶ主役?ﾍｷｻｺﾞﾝ舞台化

■実行画面
半角変換

［サンプルデータ　テーブル］
データID 　　ニュース
10　　ヤッターマンの歌
11　　映画俳優ジョニー・デップさんが１４日、２億円を寄付
13　　おバカ主役?ヘキサゴン舞台化
ニュースデータベース

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = "■元の文字列" & vbCrLf
    Me!テキスト2 = "■半角に変換" & vbCrLf
    SQL = "SELECT ニュース,STRCONV(ニュース,8) FROM サンプルデータ"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & vbCrLf
        Me!テキスト2 = Me!テキスト2 & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード

Home　

SQL Tips