| スポンサードリンク |
SQL = " SELECT STRCONV(フィールド名,16) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,16) AS 名前 FROM テーブル名 "
STRCONV の引数に16を指定することでひらがなをカタカナに変換することができます。
「なりたいのはスーパー仕事人だ」を変換すると「ナリタイノハスーパー仕事人ダ」になります。
|
|
サンプルソフト
［実行時の画面］
「文字列のひらがなをカタカナに変換する STRCONV関数」ボタンをクリックすると、
ニュースフィールドのカタカナに変換可能な文字を変換し右のテキストボックスに表示しています。
怪物が“こんがり王子”に変身した
[結果] 怪物ガ“コンガリ王子”ニ変身シタ
きんに君 再び筋肉留学へ出発
[結果] キンニ君 再ビ筋肉留学ヘ出発
みんなのマップを参考にして
[結果] ミンナノマップヲ参考ニシテ
■実行画面
［サンプルデータ テーブル］
データ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(ニュース,16) 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
|
|
ダウンロード