双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何获取局域网内sqlserver2000服务器的日期。

2004-08-31 10:25:22 200 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

liqiang208 墨衍会员 · AI 创作全网分发关注 + 加入社区

等保: Postgresql配置ssl链接等保: postgresql配置ssl链接完整方案和避坑指南阅读详情

我用ado连接到sqlserver，在查询想用服务器的日期，怎么办？谢谢

...全文

基于NXP BFU730F的宽带WiFi LNA设计：从原理到实测的完整指南低噪声放大器（LNA）是无线通信接收链路中的关键器件，其性能直接决定了系统的接收灵敏度。LNA的核心原理是在放大微弱信号的同时，尽可能降低自身引入的噪声，并保持良好的线性度以应对强干扰。在宽带应用场景下，如覆盖2.4GHz至5.9GHz的现代WiFi系统，设计需在宽带匹配、噪声优化和增益平坦度之间取得精妙平衡。本文以NXP的BFU730F SiGe:C HBT晶体管为核心，深入解析一种采用电阻反馈和LC匹配网络的经典宽带LNA架构。该设计通过优化反馈网络，在宽达3.5GHz的频带内实现了优异的噪声系数（低至阅读详情

liqiang208

数据库(包含打印，安装，报表) 1,218 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

wumylove1234 2004-09-02

打赏
举报

取出来的又有日期,又有时间.
写个函数把二者分开(如果想要时间的话)

TBNTB 2004-09-01

打赏
举报

学习中,各位老大历害

eagle008 2004-09-01

打赏
举报

当然是用 Select getdate() 最方便了

pcm112 2004-09-01

打赏
举报

haha!!

email0755 2004-09-01

打赏
举报

呵呵！简单问题复杂化！复杂问题简单化！
标准答案都一大把。。。。。。。。

flyingZFX 2004-09-01

打赏
举报

select getdate()

这简直太容易了，

真是难的不会，会的不难呀，

sharpidea 2004-09-01

打赏
举报

神经病啊，那么麻烦！
rs.open"select getdate()",conn,.....
msgbox rs(0).value
就是拉

huangjianyou 2004-09-01

打赏
举报

一个比一个简单。

^_^

zyg0 2004-09-01

打赏
举报

select getdate()

DebugXP 2004-09-01

打赏
举报

直接rs.open "select GetDate()"得到的就是服务器时间

apple800 2004-09-01

打赏
举报

简单点：用ado连接到sqlserver后，select getdate() 就是服务器的时间

pcm112 2004-09-01

打赏
举报

顶一下！！

wumylove1234 2004-09-01

打赏
举报

Public Function GetServerDate() As Date
'*****************************************
' '获取服务器时间的函数
'*****************************************
On Error GoTo errhandle
Dim Cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim para1 As ADODB.Parameter
Set Cnn = New ADODB.Connection
Set para1 = New ADODB.Parameter
Set cmd = New ADODB.Command
Cnn.ConnectionString = ConnectString
Cnn.Open
cmd.CommandText = "my_get_severtime"
cmd.ActiveConnection = Cnn
cmd.CommandType = adCmdStoredProc
Set para1 = cmd.CreateParameter("mydate", adDate, adParamOutput)
cmd.Parameters.Append para1
cmd.Execute
GetServerDate = cmd.Parameters("mydate")
Set Cnn = Nothing
Set cmd = Nothing
Set para1 = Nothing
Exit Function
errhandle: '如果获得服务器时间出错,则调用本地时间
GetServerDate = Date
Set Cnn = Nothing
Set cmd = Nothing
Set para1 = Nothing
End Function
Public Function GetServerTime() As Date
'***************************************
'取服务器时间
'***************************************
Dim Sqlstring As String
Dim Rst As ADODB.Recordset
Set Rst = New ADODB.Recordset
Sqlstring = "select substring(convert(varchar(20),getdate(),20),12,9)"
Set Rst = ExecuteSQL(Sqlstring)
On Error GoTo errhandle
GetServerTime = CDate(Rst.Fields(0).Value)
Rst.Close
Set Rst = Nothing
errhandle: '出错取本地时间
GetServerTime = Time
Set Cnn = Nothing
End Function

online 2004-08-31

打赏
举报

'引用microsoft activex data object 2.x library
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()
Dim apppath As String
Dim dbfilename As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
conn.Open ConnectString
conn.CursorLocation = adUseClient

Set rs = New ADODB.Recordset
看这里
rs.Open "select getdate() as sj", conn, adOpenKeyset, adLockOptimistic
msgbox rs.fields("sj")
End Sub

pcm112 2004-08-31

打赏
举报

Option Explicit
'
'
Private Declare Function NetRemoteTOD Lib "Netapi32.dll" ( _
tServer As Any, pBuffer As Long) As Long
'
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
'
Private Type TIME_ZONE_INFORMATION
Bias As Long
StandardName(32) As Integer
StandardDate As SYSTEMTIME
StandardBias As Long
DaylightName(32) As Integer
DaylightDate As SYSTEMTIME
DaylightBias As Long
End Type
'
private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneIn
formation as TIME_ZONE_INFORMATION) as Long
'
private Declare Function NetApiBufferFree Lib "Netapi32.dll" (byval lpBuffer
as Long) as Long
'
Private Type TIME_OF_DAY_INFO
tod_elapsedt As Long
tod_msecs As Long
tod_hours As Long
tod_mins As Long
tod_secs As Long
tod_hunds As Long
tod_timezone As Long
tod_tinterval As Long
tod_day As Long
tod_month As Long
tod_year As Long
tod_weekday As Long
End Type
'
private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destina
tion as Any, Source as Any, byval Length as Long)
'
'
Public Function getRemoteTOD(ByVal strServer As String) As Date
'
Dim result As Date
Dim lRet As Long
Dim tod As TIME_OF_DAY_INFO
Dim lpbuff As Long
Dim tServer() As Byte
'
tServer = strServer & vbNullChar
lRet = NetRemoteTOD(tServer(0), lpbuff)
'
If lRet = 0 Then
CopyMemory tod, ByVal lpbuff, Len(tod)
NetApiBufferFree lpbuff
　　　　result = DateSerial(tod.tod_year, tod.tod_month, tod.tod_day) + _
　　　　TimeSerial(tod.tod_hours, tod.tod_mins - tod.tod_timezone, tod.tod_s
ecs)
getRemoteTOD = result
Else
Err.Raise Number:=vbObjectError + 1001, _
Description:="cannot get remote TOD"
End If
'
End Function
'要运行该程序，通过如下方式调用。
Private Sub Command1_Click()
Dim d As Date
'
d = getRemoteTOD("your NT server name goes here")
MsgBox d
End Sub
'

Private Sub Form_Load()

End Sub

✦双11狂欢大促✦

如何获取局域网内sqlserver2000服务器的日期。

相关推荐

双11狂欢大促