Article ID: 142930
Article Last Modified on 3/14/2005
Date {d 'yyyy-mm-dd'}
Time {t 'hh:mm:ss'}
Timestamp {ts 'yyyy-mm-dd hh:mm:ss[.f...]'}
ASCII(), CHAR(), CONCAT(), DIFFERENCE(), INSERT(), LCASE(), LEFT(), LENGTH(), LOCATE(), LTRIM(), REPEAT(), REPLACE(), RIGHT(), RTRIM(), SOUNDEX(), SPACE(), SUBSTRING() and UCASE().
ABS(), ACOS(), ASIN(), ATAN(), ATAN2(), CEILING(), COS(), COT(), DEGREES(), EXP(), FLOOR(), LOG(), LOG10(), MOD(), PI(), POWER(), RADIANS(), RAND(), ROUND(), SIGN(), SIN(), SQRT(), TAN() and TRUNCATE().
DATABASE(), IFNULL() and USER().
CURDATE(), CURTIME(), DAYNAME(), DAYOFMONTH(), DAYOFWEEK(), DAYOFYEAR(), HOUR(), MINUTE(), MONTH(), MONTHNAME(), NOW(), QUARTER(), SECOND() and TIMESTAMPADD()
Private Sub Command1_Click()
Dim cn As rdoConnection
Dim en As rdoEnvironment
Dim rs As rdoResultset
'establish connection
Set en = rdoEngine.rdoEnvironments(0)
en.CursorDriver = rdUseOdbc
'Below should be modified to match your data source
Dim cnStr As String
cnStr = "driver={SQL Server};server=myserver;" & _
"database=pubs;uid=myuid;pwd=mypwd"
Set cn = en.OpenConnection(DSName:="", Prompt:=rdDriverNoPrompt, _
Connect:=cnStr)
Dim sql As String
sql = "Select * from authors where {fn LEFT(au_lname, 3)} = 'gre'"
Set rs = cn.OpenResultset(Name:=sql, Type:=rdOpenDynamic, _
Option:=rdAsyncEnable)
'check if still executing for asynchronous query option
While rs.StillExecuting
DoEvents
Wend
If rs.RowCount > 0 Then
While Not rs.EOF
Me.Print rs("au_lname")
rs.MoveNext
Wend
End If
MsgBox Str(rs.RowCount) & " rows returned."
End Sub
Keywords: kbhowto kbrdo KB142930