Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58779 / 76732 ←次へ | 前へ→

【22676】Re:mdbファイルについて
発言  ichinose  - 05/2/27(日) 22:44 -

引用なし
パスワード
   ▼mickeypapa さん:
こんばんは。

>
>>Sub DAO_read()
>>  'Microsoft DAO 3.6 Object Library 参照設定
>>  Dim myDb    As DAO.Database
>>  Dim myRst   As DAO.Recordset
>>  Dim myFileName As String
>>  Dim myTblsql As String
>   Dim idx As Long'---------------------←追加
'   ↑ちゃんと宣言する方がいいですね!!
>
>>Sub DAO_write()
>>  myTblsql = "insert INTO 運送DATA select * FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\sqltest.xls]" & _
>>    ".[" & ActiveSheet.Name & "$" & Range("a1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 3).Address(False, flase) & "];"
>
>sqltest.xlsを運送test.xls
>Address(False, flase)をAddress(False, False)にしました。
' あらっ、ではたまたま動いていたんですねえ!!、失礼しました。

>
>そこで質問ですが、一度書込をしたあとに再度呼び出すとデータの並びがおかしくなってしまいます。
>このような状態です。
>
>#2004/10/1#の時   #2004/12/1#の時
>101 2004/10/1    101 2004/10/1
>102 2004/10/1    102 2004/10/1
>118 2004/10/7    103 2004/10/1
>119 2004/10/8    104 2004/10/2
>120 2004/10/9    120 2004/10/9
>121 2004/10/9    121 2004/10/9
>.          .
>.          .
>.          .
>.          .
>150 2004/11/30   240 2005/2/25
>103 2004/10/1    105 2004/10/2
>104 2004/10/2    106 2004/10/3
>105 2004/10/3    107 2004/10/3
>.          .
>115 2004/10/6    .
>.          .
>151 2004/11/30   119 2004/10/8
>.          .
>240 2005/2/25
>Accessでデータを見ると順番に並んでいます。

Accでは、デフォルトで並べ替えを行ってくれますからねえ・・・。

読み込むときにA列で並べ替えをしましょう。
シートを並べ替えてもいいんですが、せっかくmdbからの読込みなのでSQLで・・。

DAO_readのSQLの箇所を以下のように変更して下さい。

  myTblsql = "SELECT * FROM tbl1 WHERE [月 日] Between #2004/1/1# And date() order by [id];"

尚、上記の id は、シートのA列に対応するフィールド名です。
この id というフィールドは、数値型としてAccのテーブルは設定して確認しました。


>目下、日付の変数の代入に苦しんでおります。

あくまでもSQLは、文字列ですから・・。

  dim 検索開始日 as string
  検索開始日="2004/1/1"
  myTblsql = "SELECT * FROM tbl1 WHERE [月 日] Between #" & _
        検索開始日 & "# And date() order by [id];"

で良いと思いますが、別の事で悩んでおられたなら、余計なお世話でした。

1 hits

【22619】mdbファイルについて mickeypapa 05/2/24(木) 21:14 質問
【22623】Re:mdbファイルについて ichinose 05/2/24(木) 22:07 発言
【22636】Re:mdbファイルについて mickeypapa 05/2/25(金) 8:13 質問
【22639】Re:mdbファイルについて ichinose 05/2/25(金) 9:22 発言
【22648】Re:mdbファイルについて mickeypapa 05/2/25(金) 14:08 質問
【22657】Re:mdbファイルについて ichinose 05/2/25(金) 18:34 発言
【22658】Re:mdbファイルについて mickeypapa 05/2/25(金) 21:07 お礼
【22662】Re:mdbファイルについて ichinose 05/2/26(土) 0:18 発言
【22674】Re:mdbファイルについて mickeypapa 05/2/27(日) 17:33 質問
【22676】Re:mdbファイルについて ichinose 05/2/27(日) 22:44 発言
【22851】Re:mdbファイルについて mickeypapa 05/3/4(金) 22:52 お礼
【22899】Re:mdbファイルについて mickeypapa 05/3/6(日) 19:31 質問
【22904】Re:mdbファイルについて ichinose 05/3/6(日) 22:18 発言
【22912】Re:mdbファイルについて mickeypapa 05/3/7(月) 13:40 お礼
【22913】Re:mdbファイルについて mickeypapa 05/3/7(月) 13:43 発言
【22659】Re:mdbファイルについて mickeypapa 05/2/25(金) 21:13 お礼

58779 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free