| スポンサードリンク |
SQL = " SELECT STRCONV(フィールド名,32) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,32) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
STRCONV の引数に32を指定することでカタカナをひらがなに変換することができます。
「女子マラソンスタート」を変換すると「女子まらそんすたーと」になります。
|
|
サンプルソフト
［実行時の画面］
「文字列のカタカナをひらがなに変換する STRCONV関数」ボタンをクリックすると、
ニュースフィールドのひらがなに変換可能な文字を変換し右のテキストボックスに表示しています。
アジア・ハンドボール連盟（ＡＨＦ）の臨時理事会
[結果] あじあ・はんどぼーる連盟（ＡＨＦ）の臨時理事会
ミス日本グランプリに20歳学生
[結果] みす日本ぐらんぷりに20歳学生
贈りたいバレンタインのプレゼント
[結果] 贈りたいばれんたいんのぷれぜんと
■実行画面
［サンプルデータ テーブル］
データID ニュース
10 アジア・ハンドボール連盟（ＡＨＦ）の臨時理事会
11 ミス日本グランプリに20歳学生
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(ニュース,32) 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
|
|
ダウンロード