程式代碼如下：Sub procedure3
Sub procedure3
Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim conn
Dim oRs
Dim oCom
Dim myMinute,mySecond
Dim TintData,TfloatData,TboolData,TstringData,Tdate,Ttime
TintData=https://bbs.csdn.net/topics/HMIRuntime.tags("TintData").Read
TfloatData=https://bbs.csdn.net/topics/HMIRuntime.tags("TfloatData").Read
TboolData=https://bbs.csdn.net/topics/HMIRuntime.tags("TboolData").Read
TstringData=https://bbs.csdn.net/topics/HMIRuntime.tags("TstringData").Read
Tdate=HMIRuntime.tags("Tdate").Read
Ttime=HMIRuntime.tags("Ttime").Read
myMinute=HMIRuntime.tags("Tminute1").Read
mySecond=HMIRuntime.tags("Tsecond1").Read
If ((myMinute=0 And mySecond=0) Or (myMinute=10 And mySecond=0) Or (myMinute=20 And mySecond=0) Or (myMinute=30 And mySecond=0) Or (myMinute=40 And mySecond=0) Or (myMinute=50 And mySecond=0)) Then
sCon="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=GUANLV02\WINCC"
sSql="insert into Table6 (Tdate,Ttime,TintData,TfloatData,TboolData,TstringData) values('" & Tdate & "','" & Ttime & "'," & TintData & "," & TfloatData & "," & TboolData & ",'" & TstringData & "')"
Set conn=CreateObject("adodb.connection")
conn.connectionstring=sCon
conn.open
Set oRs=CreateObject("adodb.recordset")
Set oCom=CreateObject("adodb.command")
oCom.commandType=1
Set oCom.ActiveConnection=conn
oCom.commandText=sSql
Set oRs=oCom.Execute
Set oCom=Nothing
conn.close
Set oRs=Nothing
Set conn=Nothing
End If
End Sub
執行后資料庫中表的結果如下：
請教：
這是為什么呢？是我的SQL插入陳述句不全嗎？還是什么別的原因？
我的要求是插入時間是按降序排列的。該如何做呢？
謝謝各位！
uj5u.com熱心網友回復：
插入順序不重要。你要有序，查詢的時候加上order by就可以了。uj5u.com熱心網友回復：
select * from 表名 order by 欄位名 desc這樣查詢時顯示就是按指定欄位降序排列了
uj5u.com熱心網友回復：
+1uj5u.com熱心網友回復：
Ttime欄位名定義的是字串，select 陳述句使用order by陳述句出錯。還有什么辦法可以將記錄按降序排列？如果不改變資料庫的型別該如何做？
如果將時間型別改為datatime 的話，又該如何做？
哪個好做一些？
謝謝
uj5u.com熱心網友回復：
可以在說白話一點嗎?......這塊我也困擾著
uj5u.com熱心網友回復：
資料庫插入位置隨機, 因為這并不重要.如果你想按照某種順序排列, 只需要在查詢的時候加上排序即可
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109510.html
上一篇：列名無效 反復實驗無解
下一篇：請教大家一個問題