テーブルのフィールドデータに「？」が入っているとDBへアップされない・・・④
このタイトルで問題が起きて4日目が経ちました。
がっ！とうとう解決することができました。
MSDNフォーラムで質問したところ、糸口がみつかり
そこから解決！！ヾ(＠＾(∞)＾＠)ノ
ありがとう！みなさん！！(*￣O￣*)
とりあえず、詳細を書いておこう！
まず、OledbDataAdapter周りで、「？」マークが
つこうとつくまいと、それが原因でAdapter自体で
エラーを出すことはなし。
エラーの内容を見ると、Adapterではなく、MDBが
出しているものなので、本当にフィールドデータ
の量が違っているのではないか？
これを元にDataTableを作成する時点での「？」が
入るデータの長さを測定。
しかし、長さは「テスト？」だと４とです。
( °д°) あれ？
もう1回質問してみた。今度はコードを添えて。
そうしたところ、先方では再現されなかった。。。
Tableを作成するコードは入れていないので、
やはり、そのあたりが原因なんだろう(￣_￣ i)
Tableを作るときに入れるデータたちは、
入れる前のタイプが「Object」になっており、
それからStringに変換させてTableへ入れている。
( ・д・)/－－＝≡(((卍 ここか？
確かに、Objectのままだったらエラーメッセージ
の内容も理解できる（データ量を超えている・・・）
格納するデータタイプも違うわけだから、
Adapterが自動的に発行するSQLの時点でえらーが
出てくるのも合点がいく。！(´Д｀；)
ここだな。(°д°；)
ここにしよう！(￣Д￣；；
ここだ！！((＞д＜))
というわけで、ObjectをStringにするところから
色々みていこう。。
でもここは極秘らしいので、ブログに書けない。
うう。備忘録なのに解決が書けない。。(´д｀lll)
そのうちこっそり書こう。
そうしよう！
よっしゃ！(≧▽≦)
Visual Studio .NET 2003 + Accessで始めるデータベース連動Webフォーム（VB.NET対応）/葛西 秋雄
￥2,940
Amazon.co.jp
がっ！とうとう解決することができました。
MSDNフォーラムで質問したところ、糸口がみつかり
そこから解決！！ヾ(＠＾(∞)＾＠)ノ
ありがとう！みなさん！！(*￣O￣*)
とりあえず、詳細を書いておこう！
まず、OledbDataAdapter周りで、「？」マークが
つこうとつくまいと、それが原因でAdapter自体で
エラーを出すことはなし。
エラーの内容を見ると、Adapterではなく、MDBが
出しているものなので、本当にフィールドデータ
の量が違っているのではないか？
これを元にDataTableを作成する時点での「？」が
入るデータの長さを測定。
しかし、長さは「テスト？」だと４とです。
( °д°) あれ？
もう1回質問してみた。今度はコードを添えて。
そうしたところ、先方では再現されなかった。。。
Tableを作成するコードは入れていないので、
やはり、そのあたりが原因なんだろう(￣_￣ i)
Tableを作るときに入れるデータたちは、
入れる前のタイプが「Object」になっており、
それからStringに変換させてTableへ入れている。
( ・д・)/－－＝≡(((卍 ここか？
確かに、Objectのままだったらエラーメッセージ
の内容も理解できる（データ量を超えている・・・）
格納するデータタイプも違うわけだから、
Adapterが自動的に発行するSQLの時点でえらーが
出てくるのも合点がいく。！(´Д｀；)
ここだな。(°д°；)
ここにしよう！(￣Д￣；；
ここだ！！((＞д＜))
というわけで、ObjectをStringにするところから
色々みていこう。。
でもここは極秘らしいので、ブログに書けない。
うう。備忘録なのに解決が書けない。。(´д｀lll)
そのうちこっそり書こう。
そうしよう！
よっしゃ！(≧▽≦)
Visual Studio .NET 2003 + Accessで始めるデータベース連動Webフォーム（VB.NET対応）/葛西 秋雄
￥2,940
Amazon.co.jp
娘の学校でイチブトゼンブが流れる・・・の巻
イチブトゼンブ いいすねぇ。
月９だからって訳ではなく、稲葉さんのあの声
あの息づかい、あのビブ・・・о(ж＞▽＜)ｙ ☆
最高っす。
バラードバージョンは、余計に声が強調されて
尚よし！(°∀°)b
長女はB'zおもしろいの？と愚問をたれてきたので、
「俺の娘ならB'zファンだろ！！」っと
おどしてやった。
その長女の学校のお昼休み、昼食中に流す音楽を
リクエストできるらしく、長女はあろうことか
GREEEEEN のキズナをリクエストしているらしい
（GREEEEENは悪く無し。キズナもいい歌）
なぜ？B'zがあるのに？？ヾ(▼ﾍ▼；)
それを言おうとしたその時Σ(･ω･;|||
「すべて知るのは～到底無理なのに～
僕らはどうし～て～♪」
と聞こえてきた。ふへっ!?Σ(~∀~||;)
娘が口ずさんでいる・・・なぜだい？
その学校のリクエストでかかっていたらしく
いい歌だから覚えたそうな・・・えらい！
リクエストした子供。おりこうさんだ。
こんな所にもB'zが浸透していることを
しってとってもうれしい気分になった
いい日だぁ～(^ε^)♪
B’z HISTORY〈2006〉/グループZERO
￥1,365
Amazon.co.jp
イチブトゼンブ/DIVE
￥1,134
Amazon.co.jp
月９だからって訳ではなく、稲葉さんのあの声
あの息づかい、あのビブ・・・о(ж＞▽＜)ｙ ☆
最高っす。
バラードバージョンは、余計に声が強調されて
尚よし！(°∀°)b
長女はB'zおもしろいの？と愚問をたれてきたので、
「俺の娘ならB'zファンだろ！！」っと
おどしてやった。
その長女の学校のお昼休み、昼食中に流す音楽を
リクエストできるらしく、長女はあろうことか
GREEEEEN のキズナをリクエストしているらしい
（GREEEEENは悪く無し。キズナもいい歌）
なぜ？B'zがあるのに？？ヾ(▼ﾍ▼；)
それを言おうとしたその時Σ(･ω･;|||
「すべて知るのは～到底無理なのに～
僕らはどうし～て～♪」
と聞こえてきた。ふへっ!?Σ(~∀~||;)
娘が口ずさんでいる・・・なぜだい？
その学校のリクエストでかかっていたらしく
いい歌だから覚えたそうな・・・えらい！
リクエストした子供。おりこうさんだ。
こんな所にもB'zが浸透していることを
しってとってもうれしい気分になった
いい日だぁ～(^ε^)♪
B’z HISTORY〈2006〉/グループZERO
￥1,365
Amazon.co.jp
イチブトゼンブ/DIVE
￥1,134
Amazon.co.jp
カルボナ～ラでおしゃれな夕食！ヾ(＠＾(∞)＾＠)ノ
パスタが食いたい。。
ミートはけっこう食べているんで、飽きてきたぞ
なんかおしゃれなパスタ料理ないかなぁ(･∀･)/
Googleで探ってみるとカルボナ～ラが(-_☆)
しかも！(⌒￢⌒*)
ナマクリ～ムを使わないんだって・・・・
いい！すごくいい！:*:・(￣∀￣)・:*:
レシピがのっていたサイト様です。
簡単レシピ スピードキッチン カルボナーラ レシピ♪
パスタ …… 2人分
卵 …… 3個
ベーコン …… 3～4枚
黒コショウ …… 適量
パルメザンチーズ（粉チーズ） …… 大さじ2
塩 …… 適量
これ2倍でやりました。
ここで事件！Σ(ﾟдﾟ;)
パルメザンチーズがない！(-_＼)(/_-)三( ﾟДﾟ)
高いから常駐していないのさっ！(ﾞ ｀-´)/
まずは、パスタをゆでる。
これはいつもどおりだから、いいや！
卵は、チーズと黒コショウと合わせてから
よくかき混ぜておきます。
フライパンに油を引いてベーコンを焼いて
パスタの茹で汁を お玉2杯加え入れます。
茹でたパスタの水分を切って、フライパンに入れ
パスタに味を絡ませます。
その中に、混ぜておいた卵を入れ
混ぜたら出来上がり。
なっΣ(~∀~||;)
なんて簡単な・・・
やっぱり手抜きなオレにはちょうどいい
ありがとう。簡単スピードキッチンさん！
そして、げきうまでした！
これからもたくさん紹介くださいね。
手抜きなオレには究極のレシピだす。
ちなみに、地元情報ですが、キューピーさん
からでている、インスタントのカルボナーラ
は、UNION（ユニオン）でしか見たことありません。
一応、おいしい・・・(^ε^)♪207円だった
お試しあれ
QP カルボナーラ（ディスペンパック） 30g×8個
￥735
ママの手作りパン屋さん Yahoo!店
ミートはけっこう食べているんで、飽きてきたぞ
なんかおしゃれなパスタ料理ないかなぁ(･∀･)/
Googleで探ってみるとカルボナ～ラが(-_☆)
しかも！(⌒￢⌒*)
ナマクリ～ムを使わないんだって・・・・
いい！すごくいい！:*:・(￣∀￣)・:*:
レシピがのっていたサイト様です。
簡単レシピ スピードキッチン カルボナーラ レシピ♪
パスタ …… 2人分
卵 …… 3個
ベーコン …… 3～4枚
黒コショウ …… 適量
パルメザンチーズ（粉チーズ） …… 大さじ2
塩 …… 適量
これ2倍でやりました。
ここで事件！Σ(ﾟдﾟ;)
パルメザンチーズがない！(-_＼)(/_-)三( ﾟДﾟ)
高いから常駐していないのさっ！(ﾞ ｀-´)/
まずは、パスタをゆでる。
これはいつもどおりだから、いいや！
卵は、チーズと黒コショウと合わせてから
よくかき混ぜておきます。
フライパンに油を引いてベーコンを焼いて
パスタの茹で汁を お玉2杯加え入れます。
茹でたパスタの水分を切って、フライパンに入れ
パスタに味を絡ませます。
その中に、混ぜておいた卵を入れ
混ぜたら出来上がり。
なっΣ(~∀~||;)
なんて簡単な・・・
やっぱり手抜きなオレにはちょうどいい
ありがとう。簡単スピードキッチンさん！
そして、げきうまでした！
これからもたくさん紹介くださいね。
手抜きなオレには究極のレシピだす。
ちなみに、地元情報ですが、キューピーさん
からでている、インスタントのカルボナーラ
は、UNION（ユニオン）でしか見たことありません。
一応、おいしい・・・(^ε^)♪207円だった
お試しあれ
QP カルボナーラ（ディスペンパック） 30g×8個
￥735
ママの手作りパン屋さん Yahoo!店
CrystalReportをプログラムから印刷
CrystalReportって便利だけど、標準のレポートじゃ
ないから、色々調べるのに苦労する。(:_;)
CrystalReportViewerからツールバーの印刷ボタンでは
なくて、ContextMenuStripを使って右クリックで印刷
させたくなってきたんで、やってみよう！
（動機が適当！！ヾ(＠^▽^＠)ﾉ）
まず、フォームにContextMenuStripコントロールを配置
ViewerにContextMenuStripをセットする。
（プロパティに選ぶところがある！便利！！）
Menuは単純に「印刷する」と「閉じる」で作っておく。
印刷をクリックするとプリンターを選ぶダイアログが
表示されるようにしたいので、PrintDialogコントロール
もいれておく。（PrintDialog1とする）
ここからコードだ！( ・д・)/－－＝≡(((卍
印刷するのClickイベントに書くぞ！
'インスタンス生成（必須なんだって）
Dim ps As New Printing.PrinterSettings
PrintDialog1.PrinterSettings = ps
'ファイルに出力なんてしないので、Falseにする
PrintDialog1.AllowPrintToFile = False
'プリンター選択のダイアログを表示させる
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'OKボタンが押されたときの処理を書こう
Dim rep As 表示されているレポートのClass
'現在表示されているレポートソースをレポートのクラスへChange!!
rep = DirectCast(CrystalReportViewer.ReportSource, ANALYSISRep)
'ダイアログで指定したプリンタ名を取得してレポート印刷のプリンタへ設定
rep.PrintOptions.PrinterName = PrintDialog1.PrinterSettings.PrinterName
'PrintToPrinterで印刷データを投げ込む!
'部数だけはダイアログで設定してもらうので、それを取得します。
rep.PrintToPrinter(PrintDialog1.PrinterSettings.Copies, False, 1, 1)
End If
以上。
なんて！なんてっ！簡単な！！Σ(ﾟдﾟ;)
こんなので、本当にできているのか？
やってみた・・・・・・・・・・・・・
できた・・・・・・・・・・・・・・・
あっさりだった。。。
とても、あっさりだった。。。
CrystalReportさん苦労するなんていってすみません。
俺が無知なだけで、ぜんぜん責任はありませんよ。
ありがとう。CrystalReportさん。
Crystal Reports11徹底活用術/日経BPソフトプレス
￥2,625
Amazon.co.jp
ないから、色々調べるのに苦労する。(:_;)
CrystalReportViewerからツールバーの印刷ボタンでは
なくて、ContextMenuStripを使って右クリックで印刷
させたくなってきたんで、やってみよう！
（動機が適当！！ヾ(＠^▽^＠)ﾉ）
まず、フォームにContextMenuStripコントロールを配置
ViewerにContextMenuStripをセットする。
（プロパティに選ぶところがある！便利！！）
Menuは単純に「印刷する」と「閉じる」で作っておく。
印刷をクリックするとプリンターを選ぶダイアログが
表示されるようにしたいので、PrintDialogコントロール
もいれておく。（PrintDialog1とする）
ここからコードだ！( ・д・)/－－＝≡(((卍
印刷するのClickイベントに書くぞ！
'インスタンス生成（必須なんだって）
Dim ps As New Printing.PrinterSettings
PrintDialog1.PrinterSettings = ps
'ファイルに出力なんてしないので、Falseにする
PrintDialog1.AllowPrintToFile = False
'プリンター選択のダイアログを表示させる
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'OKボタンが押されたときの処理を書こう
Dim rep As 表示されているレポートのClass
'現在表示されているレポートソースをレポートのクラスへChange!!
rep = DirectCast(CrystalReportViewer.ReportSource, ANALYSISRep)
'ダイアログで指定したプリンタ名を取得してレポート印刷のプリンタへ設定
rep.PrintOptions.PrinterName = PrintDialog1.PrinterSettings.PrinterName
'PrintToPrinterで印刷データを投げ込む!
'部数だけはダイアログで設定してもらうので、それを取得します。
rep.PrintToPrinter(PrintDialog1.PrinterSettings.Copies, False, 1, 1)
End If
以上。
なんて！なんてっ！簡単な！！Σ(ﾟдﾟ;)
こんなので、本当にできているのか？
やってみた・・・・・・・・・・・・・
できた・・・・・・・・・・・・・・・
あっさりだった。。。
とても、あっさりだった。。。
CrystalReportさん苦労するなんていってすみません。
俺が無知なだけで、ぜんぜん責任はありませんよ。
ありがとう。CrystalReportさん。
Crystal Reports11徹底活用術/日経BPソフトプレス
￥2,625
Amazon.co.jp
テーブルのオートナンバーフィールドの初期化（増減調整）
Accessのオートナンバーフィールドって、
テストしていくとどんどん増加していって、
大変めんどくさい。
そして、レコードを削除すると、次の番号が
勝手に振られてしまう。(￣へ ￣ 凸
そこで、ALTER TABLE を使おう！
（へっ？今更・・・すまそ。。。）
Alter Table テーブル名 Alter Column オートナンバーフィールド名 Autoincrement(初期値,増幅値)
●解説
データ定義でテーブルのオートナンバー型のフィールドの初期値と増減値を変更するには、ALTER TABLEステートメントを使用します。
書式
ALTER TABLE table ALTER COLUMN
column {AUTOINCREMENT|IDENTITY|COUNTER} (seed, increment)
ALTER TABLEのtableには、フィールドを変更するテーブル名を指定します。columnには、変更する列名（フィールド名）を指定します。seedには初期値、incrementには増減値を指定します。seedとincrementに負の数を指定するときは、マイナス(-)の記号を付加します。
ってな具合でクエリを作成して実行！！
お見事！できました。
ストアドみたいに置いておけば重宝するな。
便利便利・・・VBからでも実行クエリで投げれば
やってくれるなこれっ！(*゜▽゜ノノ゛☆
動的にもできるし・・いいっっ！
なんで、今まで知らなかったんだろう・・・馬鹿
Accessクエリ逆引き大全500の極意/日野間 佐登子
￥2,415
Amazon.co.jp
テストしていくとどんどん増加していって、
大変めんどくさい。
そして、レコードを削除すると、次の番号が
勝手に振られてしまう。(￣へ ￣ 凸
そこで、ALTER TABLE を使おう！
（へっ？今更・・・すまそ。。。）
Alter Table テーブル名 Alter Column オートナンバーフィールド名 Autoincrement(初期値,増幅値)
●解説
データ定義でテーブルのオートナンバー型のフィールドの初期値と増減値を変更するには、ALTER TABLEステートメントを使用します。
書式
ALTER TABLE table ALTER COLUMN
column {AUTOINCREMENT|IDENTITY|COUNTER} (seed, increment)
ALTER TABLEのtableには、フィールドを変更するテーブル名を指定します。columnには、変更する列名（フィールド名）を指定します。seedには初期値、incrementには増減値を指定します。seedとincrementに負の数を指定するときは、マイナス(-)の記号を付加します。
ってな具合でクエリを作成して実行！！
お見事！できました。
ストアドみたいに置いておけば重宝するな。
便利便利・・・VBからでも実行クエリで投げれば
やってくれるなこれっ！(*゜▽゜ノノ゛☆
動的にもできるし・・いいっっ！
なんで、今まで知らなかったんだろう・・・馬鹿
Accessクエリ逆引き大全500の極意/日野間 佐登子
￥2,415
Amazon.co.jp