いつもお世話になります 表計算のデータをBaseにマクロで追加したいのですが、
表計算上の値は変数に入力できましたが その変数を使ってBaseのデータベースに追加しようと思いますが
下記のプログラムでは、日付が、データベースに入力されない(エラーになる)
変数の型が違うのでしょうか?
Dim iKyori As String
Dim Sagyohi As String
Dim SPF As String
Dim Sagyo As String
省略
' 作業内容データーに 追加ルーチン
qes =Nannba
iKyori = kyori
Rem Sagyohi = hinich
Sagyohi = "'2012/12/12'"
SPF = nenryo
Sagyo = "'燃費'"
stm2.executeUpDate("INSERT INTO 作業データ(車両インデックス,走行距離メータ,SPF,作業内容,作業日) VALUES(" &qes +"," &iKyori +","&SPF+","&Sagyo+","&Sagyohi+")")
作業日、Sagyohi を外せばデーターベースに追加できます
文字型を日付型か何かに、変換しなければいけないのでしょうか?
ご教授おねがいします。
【解決】日付が、データベースに入力されない
【解決】日付が、データベースに入力されない
最後に編集したユーザー Kankun [ 1月 29, 2013, 5:11 pm ], 累計 1 回
OpenOffice.org 4.1.5
Win 7 10
Win 7 10
Re: 日付が、データベースに入力されない
Sagyohi = "'2012/12/12'"
の部分を
Sagyohi = "'2012-12-12'"
になるように組めば宜しいかと
HSQLDB JAVA での日付認識の制限だと思います。
calc から取得する場合
日付列の表示書式を YYYY-MM-DD にしていれば
Sagyohi = "'" & oCell.getString & "'"
日付列の全ての表示書式対応の場合
Sagyohi = "'" & format(oCell.getValue,"YYYY-MM-DD") & "'"
の部分を
Sagyohi = "'2012-12-12'"
になるように組めば宜しいかと
HSQLDB JAVA での日付認識の制限だと思います。
calc から取得する場合
日付列の表示書式を YYYY-MM-DD にしていれば
Sagyohi = "'" & oCell.getString & "'"
日付列の全ての表示書式対応の場合
Sagyohi = "'" & format(oCell.getValue,"YYYY-MM-DD") & "'"
Re: 日付が、データベースに入力されない
ike@九州さんいつもおせわになります
今回はわたしのイージーミスでした シングルコーテーションでつつむの忘れてました
たいへんお騒がせしました カルクのセルには日日しか入力していないため以下のプログラム(イメージですが)
で解決できました
Dim nenn As String
Dim tuki As String
Dim Nentuki As String
省略
inputbox(nenn)
inputbox(tuki)
省略
Nentuki = nenn+"-"+tuki+"-"
hinich = oSheet.getCellByPosition(1,i).String
Sagyohi = "'"+Nentuki+hinich+"'" ’ここでシングルコーテーションでつつむの忘れてました
いつもいつも教えていただいて、大変感謝しております!
またご迷惑をおかけすると思いますがその時もよろしくお願いします
今回はわたしのイージーミスでした シングルコーテーションでつつむの忘れてました
たいへんお騒がせしました カルクのセルには日日しか入力していないため以下のプログラム(イメージですが)
で解決できました
Dim nenn As String
Dim tuki As String
Dim Nentuki As String
省略
inputbox(nenn)
inputbox(tuki)
省略
Nentuki = nenn+"-"+tuki+"-"
hinich = oSheet.getCellByPosition(1,i).String
Sagyohi = "'"+Nentuki+hinich+"'" ’ここでシングルコーテーションでつつむの忘れてました
いつもいつも教えていただいて、大変感謝しております!
またご迷惑をおかけすると思いますがその時もよろしくお願いします
OpenOffice.org 4.1.5
Win 7 10
Win 7 10