全て
| カテゴリ未分類
通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株Stock
| VBA
| SharePoint
| REST API
| RenderListDataAsStream
| PowerAutomateDesktop
| Graph API
| PowerApps
| PowerAutomate
| PowerFx
| OfficeScriptオフィススクリプト
| PowerAutomate日時Excel日時相互関係
| PowerShell
| Dataverse
| UiPath
| OneDrive
| LINQ
| VB.NET
| C#.NET
| WPFC#.NET
| Git
| ネットワーク
| Azure
| AWS
| JP1
| セキュリティ
| JavaScript
| Google Cloud
| データベース
| ASP.MET
| 画像アップローダ
| 小説
2022.01.08
カテゴリ： VBA
２VBA作成
Option Compare Database
Option Explicit
Sub CreateTestData()
' 現在のデータベース
'CurrentDb.Connection
Dim vSQL As String
' 一旦クリアする
vSQL = "DELETE FROM T_DateTime;"
'SQLを実行
CurrentDb.Execute vSQL
Dim dtCurrent As Date
dtCurrent = Now
Dim idx As Integer
For idx = 0 To 32
' １日ごとに作成
dtCurrent = DateAdd("D", idx, Now)
vSQL = "INSERT INTO T_DateTime([日付]) VALUES('" & Format(dtCurrent, "yyyy/MM/dd") & "');"
'SQLを実行
CurrentDb.Execute vSQL
Next idx
End Sub
【1/9までの特典】モバイルモニター 高画質フルHD 15.6インチ【3年保証 送料無料】WT-156H2-BS モバイルディスプレイ ゲーミングモニター ポータブルディスプレイ デュアルディスプレイ 液晶 IPSパネル スマートフォン Android iPhone iPad 5523
お気に入りの記事を「いいね！」で応援しよう
Last updated
2022.01.08 13:27:41
[VBA] カテゴリの最新記事
-
Excel VBAを使用してWorkbook内の全てのSt… 2024.07.20
-
VBAでエラー発生時にリトライするコード 2024.02.22
-
ODBCでDataverseに接続する方法 2024.02.19
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
