catsの出来ることからこつこつと…

[0回]

こんにちは。

今日の日経新聞に「.日本」ドメインを2010年から使える様にするといった記事が載ってました。

その他にも「.東京」「.大阪」などの地名も使える様にするらしいです。

むか～し、日本語.jpで取れると話題になりましたが、あまり普及しませんでしたよね？

その二の舞になるのでしょうか・・・

それともちゃんと普及するのでしょうか・・・

[0回]

PHPで、テーブルのIDの乱数を発生させたい場合は下記の通りになります。



//[テーブル]の最小値と最大値を見て、乱数を発生させる
$sql = "SELECT min([フィールド]) as mi,max([フィールド]) as ma FROM [テーブル]";

$conn = mysql_connect($server, $user, $pass) or die("接続エラー1");
mysql_select_db($dbname) or die("接続エラー2");
$ret = mysql_query($sql, $conn) or die("クエリーエラー");
while ($row = mysql_fetch_array($ret)){
 $cnt_min = $row['mi'];
 $cnt_max = $row['ma'];
}
$ran = mt_rand($cnt_min,$cnt_max);
//乱数 ここまで
 

[0回]

VBAなどで、乱数を発生させたい場合は下記の通りになります。
最大数値と最小数値に任意の数値を入れて下さい。


Dim RN As Long
Randomize
RN = fix( ([最大数値] * Rnd) + [最小数値] )
Debug.Print RN
 

[0回]

VBAで、ひらがなをカタカナに変換したり、半角にしたり、大文字にしたりするVBAです。


Function KANA()

Dim CN As ADODB.Connection
Dim RSA As ADODB.Recordset
Dim SQL As String

Set CN = CurrentProject.Connection
Set RSA = New ADODB.Recordset

SQL = "SELECT [主キー],[カナフィールド] FROM [テーブル名]"

RSA.Open SQL, CN

Do Until RSA.EOF
 'vbUpperCase　　1　　文字列を大文字に変換します。
 'vbLowerCase　　2　　文字列を小文字に変換します。
 'vbProperCase　　3　　文字列の各単語の先頭の文字を大文字に変換します。
 'vbWide　　4　　文字列内の半角文字 (１バイト) を全角文字 (２ バイト) に変換します。
 'vbNarrow　　8　　文字列内の全角文字 (２バイト) を半角文字 (１バイト) に変換します。
 'vbKatakana　　16　　文字列内のひらがなをカタカナに変換します。
 'vbHiragana　　32　　文字列内のカタカナをひらがなに変換します。
 'vbUnicode　　64　　システムの既定のコード ページを使って文字列を Unicode に変換します。
 'vbFromUnicode　　128　　文字列を Unicode からシステムの既定のコード ページに変換します。
    SQL = "UPDATE [テーブル名] SET [カナフィールド]='"
    SQL = SQL & StrConv(RSA![カナフィールド], vbKatakana)
    SQL = SQL & "' WHERE [主キー]=" & RSA![主キー]
   
    CN.Execute SQL

    RSA.MoveNext
Loop

CN.Close
Set CN = Nothing

End Function

[0回]