Microsoft Access ClubAccess超初心者対象ForumAccess初級者対象ForumAccess初・中級者対象ForumAccess VBA Tips ForumDAO、ADO、SQL Forum

     

No1388.SQLサーバーの日付取得

タイトルSQLサーバーの日付取得
記事No: 1388
投稿日: 2004/08/13(Fri) 18:46
投稿者: りょうちゃん
OS:Windows2000
Access Version:access2000

SQLサーバーの日付を、アクセスVBAを使って取得したいと考えてます。select GETDATE() vtime
で日付の取得が出来そうなのですが、具体的なコードをどのように書いたらよいのか分かりません。
その他、良い方法があれば教えてください。
宜しくお願いいたします。

タイトルRe: SQLサーバーの日付取得
記事No: 1389
投稿日: 2004/08/13(Fri) 19:34
投稿者: Dodonpa
こんにちは

MDBからなのかADPからなのかによっても違うかと思いますが、
MDBからだと

'//////////////////////////////////////////////////////////
'/SQL Server日付取得Subプロシージャ /
'//////////////////////////////////////////////////////////
Public Sub GPrcGetDate()
Dim voCn As ADODB.Connection
Dim voCmd As ADODB.Command
Dim voRs As ADODB.Recordset

Set voCn = New ADODB.Connection
With voCn
.Provider = "SQLOLEDB"
.Properties("Data Source") = "サーバ名"
.Properties("Initial Catalog") = "データベース名"
.Properties("User ID") = "ログインID"
.Properties("Password") = "パスワード"
.Open
End With

Set voCmd = New ADODB.Command
With voCmd
.ActiveConnection = voCn
.CommandType = adCmdText
.CommandText = "SELECT GETDATE();"
End With
Set voRs = voCmd.Execute

MsgBox voRs.Fields(0)

voRs.Close: Set voRs = Nothing
voCn.Close: Set voCn = Nothing
End Sub

でいかがでしょう?

タイトルRe^2: SQLサーバーの日付取得
記事No: 1395
投稿日: 2004/08/16(Mon) 09:07
投稿者: りょうちゃん
Dodonpaさん 、ありがとうございました。
SQLサーバーより日付取得ができました。
また何かありましたら、宜しくお願いいたします。


このAccessフォーラム過去ログ集は、Microsoft Access Club が運営しています

アメリカ合衆国内大手データセンターでアダルト対応可能なリーズナブル価格設定の専用・共有レンタルサーバーを提供しています。
アメリカ合衆国内大手データセンターに機器を設置。
アダルト対応OKなディスカウント価格の専用・共有サーバーを提供中。
cPanelに惹かれている方、PLESKよりcPanelと仰る方は必見です。

 

ページの先頭へ 前ページへ戻る