Serverの時間取得(Ac97)

質問

※スレ違いとは思いますがよろしくお願いします。

[日付時間の取得端末環境]
Windows98
Access97

[Server環境]
WindowsNT4.0SP6
SQL Server7.0

Server側の端末日付時間を取得をしたいのですが、よい方法がないでしょうか？

VB6～やAccess2000～であればADOを使用してストアドプロシージャ
からCURRENT_TIMESTAMP等で仮テーブルに時間を取得しておいて取得
端末側に値を引っ張る方法が取れますが、DAOのサポートしかしてい
ないAccess97でServer時間の取得が出来るのでしょうか？

APIや他のHP等で検索してみましたがHitしませんでした。検索の仕方が
悪いとも思っております。。。「出来る」「出来ない」だけでも結構です
ので御教授お願い致します。

回答No.2

how-do-you-do · ベストアンサー

お疲れ様です

＞やはりAccess97の変数に値を入れる手法は難しいでしょうか？
他のソフトがインストールが無理なら、難しいでしょう。

NT系のマシンならば、APIの「NetRemoteTOD」が使用できます。

http://www.kit.co.jp/vbit/QAndA08.htm

参考URL：

http://vbvbvb.com/jp/gtips/0251/gNetRemoteTOD.html

お礼

返事が送れてすみません！
下記のDAOでストアドプロシージャを実行する方法をWeb上で見つけました。
やはりWeb検索が足りなかったと反省しております。ありがとうございました。

ストアドプロシージャ名 SP_DELETE_T_KARI
DB名　TESTDB

' DAO で SQL Server に接続し、
' ストアドプロシージャを実行した結果を得る

Dim ws As DAO.Workspace, db As DAO.Database
Dim rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)

Set db = ws.OpenDatabase("", False, False, _
"ODBC;Driver={SQL Server};" & _
"SERVER=(local);DATABASE=TESTDB;" & _
"UID=sa;PWD=;")

' Options 引数に dbSQLPassThrough を指定する。
Set rs = db.OpenRecordset("Exec SP_DELETE_T_KARI 50", _
dbOpenDynaset, dbSQLPassThrough)

回答No.1

how-do-you-do

お疲れ様です
簡単な方法なのですが、

"net time \\サーバー名 /set /y"
上記コマンドをshellコマンドで実行する
たぶんwin98もnetコマンドが使用できたような...

後は、フリーソフトの「TClock」を使用するとか...
参考になれば

お礼

早々の御返事ありがとうございます。

DOS窓に日付が取得できました。（ｗ
c:\text.batに
net time \\TEST_Server /set /y > c:\TEST.txt
exit
としておいてAccess97からShellで呼び出しテキストで書き出しておいて
からの取得としてみました。DOS窓自動で閉じたかったもので・・・。
・・・DOSを使うとWindowsVerによって多少の違いが出ると思いますが許容範
囲内です。ありがとうございます。（ｗ

やはりAccess97の変数に値を入れる手法は難しいでしょうか？

※複数の端末に使うmdbの為、ソフトのインストールは難しい状況です。
状況の記入が漏れていてすみません！