高校问答创正防爆电气:VB中select语句的问题
来源：百度文库 编辑：高校问答 时间：2024/04/29 01:35:40
Dim yn, ym, yd, dyp
Public Sub Command1_Click()
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=SPSW;Initial Catalog=RWDBTEST;User Id=sa;Password=123456;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select stcd,tm, DYP from ST_PPTN_R WHERE STCD = '" & CStr(20720400) & " 'and TM ='" & CStr(yn) & "-" & CStr(ym) & "-" & CStr(yd) & " 8:00:00 ' ", CN, adOpenDynamic, adLockOptimistic
dyp = Rs.Fields(2)
yn = Text1.Text
ym = Text2.Text
yd = Text3.Text
Label2.Caption = yn1
Label1.Caption = dyp
End Sub
语句中的TM的数据类型是datetime 编译时提示从char数据类型到smalldatetime数据类型转换导致smalldatetime值越界 TM那里应该怎么做啊
Public Sub Command1_Click()
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=SPSW;Initial Catalog=RWDBTEST;User Id=sa;Password=123456;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select stcd,tm, DYP from ST_PPTN_R WHERE STCD = '" & CStr(20720400) & " 'and TM ='" & CStr(yn) & "-" & CStr(ym) & "-" & CStr(yd) & " 8:00:00 ' ", CN, adOpenDynamic, adLockOptimistic
dyp = Rs.Fields(2)
yn = Text1.Text
ym = Text2.Text
yd = Text3.Text
Label2.Caption = yn1
Label1.Caption = dyp
End Sub
语句中的TM的数据类型是datetime 编译时提示从char数据类型到smalldatetime数据类型转换导致smalldatetime值越界 TM那里应该怎么做啊
用这个SQL函数：
CONVERT(CHAR(8),TM,112)
就可以把时间取出来了．例如：20060519
而且是字符型的了，你在SQL看下CONVERT就知道了
谢谢啊～