程序代码如下: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=HMIRuntime.tags("TintData").Read
TfloatData=HMIRuntime.tags("TfloatData").Read
TboolData=HMIRuntime.tags("TboolData").Read
TstringData=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.openSet oRs=CreateObject("adodb.recordset")
Set oCom=CreateObject("adodb.command")
oCom.commandType=1
Set oCom.ActiveConnection=conn
oCom.commandText=sSqlSet oRs=oCom.ExecuteSet oCom=Nothing
conn.close
Set oRs=Nothing
Set conn=Nothing
End If
End Sub
执行后数据库中表的结果如下:
请教:
这是为什么呢?是我的SQL插入语句不全吗?还是什么别的原因?
我的要求是插入时间是按降序排列的。该如何做呢?
谢谢各位!

解决方案 »

  1.   

    插入顺序不重要。你要有序,查询的时候加上order by就可以了。
      

  2.   

    select * from 表名 order by 字段名 desc
    这样查询时显示就是按指定字段降序排列了
      

  3.   

    Ttime字段名定义的是字符串,select 语句使用order by语句出错。还有什么办法可以将记录按降序排列?
    如果不改变数据库的类型该如何做?
    如果将时间类型改为datatime 的话,又该如何做?
    哪个好做一些?
    谢谢