日付けFORMATを変更するには

日付データの書式を変更する場合Convert関数を使用します。

select=列名1,列名2,CONVERT(VARCHAR,日付列名,111) as 別名
from テーブル名

　　結果　→　YYYY/MM/DD

パラメータ３つ目を１１にすると
　　結果　→　YY/MM/DD

パラメータ３つ目を１１２にすると
　　結果　→　YYYYMMDD

特定のフォルダを検索させない

参考にしたサイト

1. http://japan.internet.com/busnews/20100601/8.html

行をランダムにする

• ランダムの結果１件だけを表示する場合
  SELECT TOP 1 * FROM ｘｘｘｘｘｘ order by newid()
  
  
• ランダムで全ての行を表示する場合
  SELECT  * FROM ｘｘｘｘｘｘ order by newid()

最新郵便番号辞の更新手順

1. 郵便番号の入力で住所を変換させるときに使用している￥ajaxzip2￥workに
   http://www.post.japanpost.jp/zipcode/dl/kogaki.html　から
   都道府県一覧の全国一括から（ken_all.lzh）ファイルをダウンロードします。
   
2. 同じフォルダ内にhttp://www.post.japanpost.jp/zipcode/download.html　から
   事業所の個別郵便番号（jigyosho.lzh）ファイルをダウンロードします。
   
3. 上記２つのlzhファイルを同じフォルダに解凍するとCSVファイルが２つ作成されます。
   
4. 同じフォルダ内にあるcsv2jsonzip.plをダブルクリックします。
   自動的にコマンドプロンプトの画面になりデータが生成されます。
   
5. ローカルでテスト後、サーバ側にアップする場合、リモートアクセスが可能であれば
   ２つのCSVファイルとplファイルを転送し、plを実行すればサーバ側も更新されます。

CSVファイルの取り込み後のデータをDBに追加するには

call DbOpen　　'DB接続モジュール

　　MySQL = "SELECT * FROM テーブル名"
　　MyREC.Open MySQL, MyRDB, 3, 3, 1

　　Set fs = CreateObject("Scripting.FileSystemObject")
　　filename=server.mappath("../k_mem/" & newf1)
　　Set readfile=fs.OpenTextFile(filename,1,False)

　　Do while not readfile.atendofstream
　　　　count=count+1
　　　　 if count>1 then
　　　　　　Text=readfile.readline
　　　　　　 data = split(Text, ",")　　　'CSV ファイルは，で分割されている前提
　　　　　　 MyREC.addnew
　　　　　　MyREC(列名A)=right(100000000000+data(2),10)　　'CSV３要素目のデータで桁数併せ　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　のため０で穴埋め
　　　　　　MyREC("列名B")=data(3)　　　　　　　　　　　　　　　'４要素目のデータ
　　　　　　MyREC("列名C")="01"　　　　　　　　　　　　　　　　　'CSVから取り込まず、固定値
　　　　　　MyREC.update
　　　　　　dummy=left(data(1),10)
　　　　end if
　　loop
　　readfile.close
　　set readfile=nothing
　　set fs=nothing

call c_DbClose()　　'DB切断モジュール

★例：　Split(text ,",",3,1) カンマ区切りデータの３要素をテキスト形式で比較します。

　　　　 Split(text ,",") カンマ区切りデータの全ての要素をバイナリ形式で比較します。

テーブルをそのままコピーするには

既存テーブルをデータごとコピーしたいときは（Microsoft SQL)

  SELECT * INTO 新テーブル名　FROM 元テーブル名

新テーブルは前もってデータの定義をする必要などありませんが
KEY属性はコピーされないので、コピー後設定します。

リンク先の変更モジュール

アップロード先のサーバのディレクトリーがLocalと異なっており、参照テーブルがある場合、
Loacalでリンクテーブルの参照先を前もって変更しておく必要があります。
以下モジュールを実行後、サーバにアップします。



Option Compare Database
Option Explicit
Sub リンク先DBの変更()
    Dim strOldPath As String
    Dim strNewPath As String
   
    'strOldPath = リンク元のファイルのパス(変更前)
    'strNewPath = リンク元のファイルのパス(変更後)
   
    strOldPath = "F:\AAAA\BBBB.mdb"
    strNewPath = "D: \AAAA\BBBB.mdb "
   
   
    Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
        If (tbl.Connect <> "") Then
            tbl.Connect = Replace(tbl.Connect, strOldPath, strNewPath)
            tbl.RefreshLink
        End If
    Next

End Sub