ساعت و تاریخ دستگاه server

[morteza_lll]

سلام دوستان
من یک برنامه access تحت شبکه دارم
می خوام ساعت و تاریخ دستگاه سرور مستقیم تو برنامه ام استفاده کنم مثلا تو برنامه اسم سرور بدم بگم ساعت و تاریخ را نشون بده
اگه ممکنه بهم بگید چه کنم ممنون:چشمک:

[mehdihamedali]

سلام من تا حالا این کار رو نکردم ولی اطمینان دارم یکم برنامه نویسی با VBA می خواهد اجازه بده بگردم برات پست میذارم

[morteza_lll]

من منتظرم - ممنون

[mehdihamedali]

سلام دوست عزیز
شرمندهام خیلی گشتم ولی چیزی پیدا نکردم جز دستور زیر که اونم تو Command اجرا میشه البته شاید بدرد نخوره ولی این تنها ترین کمک من به شما میتونه باشه
خودمونیم اجب سئوالی کردی خیلی از برنامه نویس ها رو گذاشتی سر کار
دستور اینه

NET TIME [\\ComputerName | \ip Address]/ Set
چند تا راهنمایی شنیدم که خالی از لطف نیست شما هم بشنوید
میگن اگر یک برنامه روی سرور نصب کنی و برنامه رو طوری بنویسی که پردازشش تو سرور انجام بشه اون وقت میتونی تابع Date رو اونجا اجرا کنی و جواب رو پاس کنی به نرم افزار خودت
میگن اگر پایگاه داده SQL Server روی سرورت نصب باشه میتونی تابع Date رو با اجرای یک دستور SQL به مقصود خودت برسی
میگن برای این کار بهتره تاریخ و زمان سرویس گیرنده ها رو از روی سرور به روز کنی و تغییر ساعت رو از نقش های کاربرات بگیری تا اونا نتونن تاریخ رو عوض کنند
به هر حال این ها همه اون چیزی بود که من تونستم بفهمم. ولی به دانش کم و ناچیز من اکتفا نکن خودت هم یک جستجو کن
موفق باشی

[morteza_lll]

سلام دوست من
با تشکر فراوان که وقت خودتونو برای این سوال گذاشتید واقعا زحمت کشیدید ممنون
من الان یک برنامه نوشتم که روی سرور اجرا میشه ساعت و تاریخ را از روی دستگاه می خونه و تو یک text file می ریزه و بعد من از اون فایلها تو برنامه اکسس خودم استفاده می کنم ولی این روش به نظر خودم زیاد منطقی نیست و ممکنه مشکلاتی را به وجود بیاره
در مورد پیشنهادات شما
اگر اشتباه نکنم روش اول شما همون روشی که من دارم اجرا می کنم
روش دوم هم تست کردم ولی دردسر زیاد داره ( موقع استفاده از آن در برنامه )
روش سوم هم یکم ناجوره چون تمام ساعت و تاریخ دستگاهها را قفل کنی اگر ویندوز عوض شد باید حواست باشه برای کلیه دستگاهها این کارو انجام بدی
ولی واقعا از شما ممنونم که جواب دادید اگر باز هم به نتیجه ای رسیدید من رو یاری کنید اگر هرکه از دوستان چیزی در این مورد میدونه بگه فکرهامونو رو هم بریزیم این مشکلو حل کنیم
چون اگر حل بشه تو بسیاری از برنامه های اکسس تحت شبکه بدرد می خوره
اگر من هم چیزی پیدا کردم همین جا پست می زنم

[mohammadgij]

شما همون روش اولت کاملا صحیح هست و اشکالی ایجاد نمی کنه اما در مورد Sql اگه شا از اکسس پروجکت استفاده می کنی و به Sql متصل میشی که اصلا مشکلی نداری و با یه Stored Procedure که یه دستور سادست میتونی تاریخ و ساعت سرور رو بدست بیاری
اینم کد Sql



As
SELECT DAY(GETDATE()) AS day,MONTH(GETDATE()) AS month,YEAR(GETDATE()) AS year,GETDATE()
as Time

[morteza_lll]

سلام آقا محمد
خیلی ممنون از پاسخ شما
یک سوال ابتدایی دارم
می تونید بگید من از Stored Procedure چطوری تو اکسس استفاده کنم
یعنی خروجیشو بگیرم
ممنون می شم اگر لطف کنید کدشو بگید

[mohammadgij]

شما تا حالا با Stored Procedure کار کردید؟ شما می تونید اون قسمتی که Command رو Execute می کنید اینطور بنویسید. یعنی داخل یک رکوردست بریزید


Dim adorstDate as new adodb.recodset
Dim cmdGetDate As New Adodb.Command
.
.
.
.
.
.
.
.
.

Set adorstDate =cmdGetDate.Execute

[morteza_lll]

سلام آقا محمد
اگه ممکنه کد کامل استفاده از Stored Procedure و خواندن در اکسس برام بنویس
خیلی خیلی ممنون نیازش دارم
مثلا on load یک فرم آن را بدست آورم

[mohammadgij]

ابتدا دستور زیر رو در یک Stored Procedure ذخیره کن و نام بهش بده




SELECT DAY(GETDATE()) AS day,MONTH(GETDATE()) AS month,YEAR(GETDATE()) AS year,GETDATE()
as Time



و برای بدست آوردن تاریخ سروری که Sql روش نصب هست از این قطعه کد استفاده کن و تاریخ رو به صورت میلادی بدست بیار و سپس از توابع تبدیل به شمسی برای تبدیل استفاده کن





Dim adorstDate As New ADODB.recodset
Dim cmdGetDate As New ADODB.Command
Dim connDate As New ADODB.Connection
Dim strYear As String
Dim strMonth As String
Dim strDay As String

connDate.Open "Driver={SQL Server};Server=نام سرور;Uid=نام کاربر;Pwd=پسورد;Database=نام دیتابیس;"

Set cmdGetDate.ActiveConnection = connDate
cmdGetDate.CommandText = "نام Stored Procedure"
cmdGetDate.CommandType = adCmdStoredProc
Set adorstDate = cmdGetDate.Execute

Set cmdGetDate = Nothing
If Not adorstDate.EOF Then
strYear = adorstDate!Year
strMonth = adorstDate!Month
strDay = adorstDate!Day
End If

[morteza_lll]

سلام آقا محمد
خیلی ممنون از پاسخ شما
آقا محمد زمانی که این دستور را در اکسس می نویسم در قسمت
Set adorstDate = cmdGetDate.Execute
error میده :قلب:

[morteza_lll]

سلام ببخشید یک مورد دیگر
اگر ممکنه بگید ساعت را چطوری بگیرم ؟ ممنون

[mohammadgij]

سلام. شما در قسمت کانکشن مشکل داری. یعنی کانکشنت به سرور متصل نمیشه.
ساعت رو هم از adorstDate!Time بدست بیارید

[mohammadgij]

سلام
من یه فایل اکسس گذاشتم و یک بک آپ از دیتابیس SQL که توی این فایل ضمیمه هستش
اول یک دیتابیس به نام ServerDateTime می سازی و فایل BackUp رو Restore می کنی
بعد برنامه اکسس رو اجرا کن و دکمه تایید رو بزن . تاریخ و ساعت رو نشونت میده. برای شمسی شدن هم از ماژول دوستان استفاده کن

[morteza_lll]

آقا ای ول دمت گرم
جوابمو گرفتم
کارت درسته الحق که ماله اهوازی
خیلی ممنون از پاسخگویی و را هنمایی شما دوست عزیز
انشالله بتونم جبران کنم