| スポンサードリンク |
SQL = " SELECT STRCONV(フィールド名,4) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,4) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
STRCONV の引数に4を指定することで半角文字列を全角に変換することができます。
全角にできるのは、半角カタカナ・半角数字になります。
「ｵｰｸｼｮﾝでdvdが3500円」を変換すると「オークションでｄｖｄが３５００円」になります。
|
|
サンプルソフト
［実行時の画面］
「文字列を全角に変換する STRCONV関数」ボタンをクリックすると、
ニュースフィールドの全角に変換可能な文字を変換し右のテキストボックスに表示しています。
ｾﾝﾀｰ試験終了、計1151人に再試験
[結果]センター試験終了、計１１５１人に再試験
J1札幌への10億円 回収不能に
[結果]Ｊ１札幌への１０億円 回収不能に
ﾐｽﾀｰ子どもたちにｻｲﾝ
[結果]ミスター子どもたちにサイン
■実行画面
［サンプルデータ テーブル］
データID ニュース
10 ｾﾝﾀｰ試験終了、計1151人に再試験
11 J1札幌への10億円 回収不能に
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(ニュース,4) 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
|
|
ダウンロード