VBAでCSVをアップロード

投稿日: 2013年1月7日 作成者: ブログ主

会話中に何気に「この画面がネットで見れたら便利かも」

という話が発端。

画面はMS-Accessで表示している。

サーバ上のMySQLへテーブルのデータを流し込めればPHPやCGiで見れる。

問題は如何に簡単にボタン一つでテーブルをCSV化してアップロードできるか？

現実的な話にしたかったので調べてみた。

Dim objHTTP
Dim Stream

' XMLHTTPを作成
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
' Stream オブジェクトの作成
Set Stream = CreateObject("ADODB.Stream")

' Streamのオープン
Stream.Open
Stream.Type = 1 ' adTypeBinary

' 送信するファイルを読み込む
Stream.LoadFromFile = "C:\xxx\hoge.csv"


Call objHTTP.Open("POST", "http://hogehoge.com/TextUp.php", False)
Call objHTTP.setRequestHeader("Content-Length", Stream.Size)
Call objHTTP.send(Stream.read(Stream.Size))
msg1 = objHTTP.responsetext

' Streamを閉じる
Stream.Close

objHTTP.Open で指定しているPHP（CGIでもOK）には、

送信したテキストデータを保存する仕組みが必要です。

既に記事にした LOAD DATA INFILE を使って、
かなり高速に処理が可能なことがわかった。

カテゴリー: その他 | コメントする

LOAD DATA INFILE

投稿日: 2013年1月7日 作成者: ブログ主

さくらのレンタルサーバー を使用していて

PHPでMySQLへテキストファイルを一括で入れようと

LOAD DATA LOCAL INFILE を使用したらエラーになった

対処した内容を覚書

$db = mysqli_init();
$db->options(MYSQLI_OPT_LOCAL_INFILE,1)
$db->real_connect($host, $username, $password, $database)
$wkSQL  = "LOAD DATA LOCAL INFILE ・・・;";
$db->query($wkSQL)

簡単な事だけど２行目の options(MYSQLI_OPT_LOCAL_INFILE) で
LOAD DATA INFILE を使用可能にしておくこと

エラー処理とかは必要に応じてご自由に。

環境に合わせて変数も設定しましょう
$host, $username, $password, $database

カテゴリー: PHP・CGI・etc | コメントする

iモードのメール受信

投稿日: 2012年12月21日 作成者: ブログ主

スマホに変えて２年…

iモードの受信設定の方法を忘れてしまってて難儀した。

ドコモの解説サイト を参照して思い出しました。

携帯からメールは届くのに・・・
　とか
特定のメールは届くのに・・・
　など

————————-
入り口だけネタバレ

iMenu　→　お客様サポート →　各種設定　→　メール設定

カテゴリー: その他 | コメントする