Dim $Database = "DCMDB"
Dim $DBServerName = "SZDPDCM.SUZ.COM"
Dim $Driver = "{Microsoft ODBC for Oracle}"
Dim $Port = 1521
Dim $Table_SICAttr = "dcc.SI_Attr"
Dim $Table_SICCONTROL = "dcc.si_cont"
Dim $DSN = "DRIVER=" & $Driver & "; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=" & $DBServerName & ")(PORT=" & $Port & "))" & _
"(CONNECT_DATA=(SID=" & $Database & "))); uid=" & $UserName & ";pwd=" & $Password & ";"
While 1
$objConnection = ObjCreate("ADODB.Connection")
$objConnection.open($DSN)
$QueryCode = "select count(*) from " & $Table_SICCONTROL
$TableContents = $objConnection.Execute($QueryCode)
$aResult = $TableContents.GetRows()
$RecordNum = $aResult[0][0]
MsgBox(0,"all","$RecordNum")
$objConnection.close()
include
,
operate
,
win7
•
下拉菜单空间选中状态如何获取呢[已解决]
•
GUICtrlRichEdit如何像Word一样设置两端对齐或分散对齐
•
系统消息代码里，如何判断鼠标滚轮是向上还是向下？[已解决]
•
[已解决]如何抓資料夾底下*.log檔就好了
•
_ArrayDisplay的帮助文档感觉太混乱了。 已解决
•
请大神帮忙修改，红包酬谢！已解决
•
关于单个进程的cpu使用率问题=已解决
