Private Sub Command1_Click()
Dim date1, date2 As Date
date1 = FormatDateTime("2004-4-27", 2)
date2 = FormatDateTime(Now(), 2)
MsgBox date1 > date2
End Sub
Dim contmp As New ADODB.Connection
Dim rstmp As New ADODB.Recordset
contmp.Open strconn
'contmp.Execute "select * into #tmptable from person "
contmp.Execute "create table #tmptable(name char(10),age char(10),height char(10)) "
rstmp.ActiveConnection = contmp
'insert into #temp select 1,'a'
'create table #temp(a int,b varchar(20))
Dim intLvwCount As Integer
Dim strFirstText As String
Dim strSecondText As String
Dim strThirdText As String
For intLvwCount = 1 To lvwResult.ListItems.Count - 1
strFirstText = Trim(lvwResult.ListItems.Item(intLvwCount).Text)
strSecondText = Trim(lvwResult.ListItems.Item(intLvwCount).SubItems(1))
strThirdText = Trim(lvwResult.ListItems.Item(intLvwCount).SubItems(2))
If rstmp.State = 1 Then rstmp.Close
rstmp.Open "insert into #tmptable values('" & strFirstText & "','" & strSecondText & "','" & strThirdText & "')"
'rstmp.Open "insert into #tmptable select '" & strFirstText & "','" & strSecondText & "','" & strThirdText & "'"
Next intLvwCount
If rstmp.State = 1 Then rstmp.Close
rstmp.Open "select * from #tmptable", , adOpenDynamic, adLockBatchOptimistic
MsgBox rstmp.RecordCount