VB连接ACCESS,读取ACCESS数据全过程

来源：百度知道 编辑：UC知道 时间：2024/05/12 01:51:40
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
If rs.State = 1 Then
rs.Close
End If
Dim birth, b As String
Dim A() As String
A() = Split(Format(Now, "yyyy-MM-dd"), "-")
Dim dt As String
dt = A(1) & A(2)
rs.CursorLocation = adUseClient
rs.Open "select * from Sheet1 ", "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
If rs.RecordCount > 0 Then
Set dgvlist.DataSource = rs
For i = 0 To rs.RecordCount - 1
dgvlist.Row = i
dgvlist.Col = dgvlist.Columns("生日").ColIndex
If Len(dgvlist.Text) = 3 Then
birth = "0" + dgvlist.Text
Else
birth = dgvlist.Text
End If

If Mid(dt, 1, 2) = Mid(birth, 1, 2) And Int(Mid(birth, 3, 2)) - Int(Mid(dt, 3, 2)) = 5 Then
dgvlist.Row = i
dgvlist.Col = dgvlist.Columns("姓名").ColIndex
MsgBox dgvlist.Text & "生日要到了！！"

Dim A() As String
A() = Split(Format(Now, "yyyy-MM-dd"), "-")
Dim dt As String
dt = A(1) & A(2)

将当前时间格式化为年-月-日
将年-月-日以"-"切分到A数组中
即有A(0)=yyyy 年
A(1)=MM 月
A(2)=dd 日

dt=A(1) & A(2) dt为月日组成的字符串

Private Sub Form_Load()
Dim rs As New ADODB.Recordset '定义记录集
If rs.State = 1 Then '如果该记录集为打开状态则关闭
rs.Close
End If
Dim birth, b As String
Dim A() As String
A() = Split(Format(Now, "yyyy-MM-dd"), "-") '以-为分隔符将年月日分别存储在数组A()中
Dim dt As String
dt = A(1) & A(2) '将月跟日合在一起,例如:1013(十月十三)
rs.CursorLocation = adUseClient '定义游标方式
rs.Open "select * from Sheet1 ", "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;" '执行查询语句
If rs.RecordCount > 0 Then '如果有记录
Set dgvlist.DataSource = rs '将记录作为dgvlist数据源
For i = 0 To rs.Reco