一个自己写的本网路
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Dim l As String
Dim sql As String
l = ListView1.ListItems.Item(ListView1.SelectedItem.Index).Text
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\db.mdb"
sql = "delete from VbMemo where id =" & l
conn.Execute sql
conn.Close
ListView1.ListItems.Remove ListView1.SelectedItem.Index
MsgBox "删除成功!"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Long
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\db.mdb"
rs.Open "select * from VbMemo", conn, 1, 3
If Not rs.EOF Then
Do While Not rs.EOF
i = i + 1
ListView1.ListItems.Add , , rs("id").Value
ListView1.ListItems.Item(i).ListSubItems.Add , , rs("title").Value
ListView1.ListItems.Item(i).ListSubItems.Add , , rs("memotime")
rs.MoveNext
Loop
End If
conn.Close
End Sub
Private Sub Timer1_Timer()
Dim d As Date
For i = 1 To ListView1.ListItems.Count
d = ListView1.ListItems.Item(i).ListSubItems.Item(2).Text
If (((Now + (5 / 24 / 60)) > d) And Now < d) Then
MsgBox "时间到了"
End If
Next
End Sub