Dim connectstr As String
Dim sqlstr As String
Dim s(8) As Integer
Private Sub Command1_Click()
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path _
& "\车库系统.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Database Password=19750628"
sqlstr = "SELECT * FROM 车位表 order by 车位号"
Set DataGrid1.DataSource = Adodc1
Adodc1.ConnectionString = connectstr
Adodc1.RecordSource = sqlstr
MsgBox connectstr
MsgBox sqlstr
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
For i = 0 To 7
s(i) = Adodc1.Recordset.Fields(1)
If s(i) = -1 Then
MsgBox "您的车将停在第" & i + 1 & "车位"
Adodc1.Recordset.Fields(1) = "车牌号"
Adodc1.Recordset.Fields(3) = "存车时间"
Exit For
Else
Adodc1.Recordset.MoveNext
End If
Next i
If s(7) = 0 Then
MsgBox "车库已满"
End If
End Sub
Private Sub Command2_Click()
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path _
& "\车库系统.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Database Password=19750628"
sqlstr = "SELECT * FROM 车位表 order by 车位号"
Set DataGrid2.DataSource = Adodc2
Adodc1.ConnectionString = connectstr
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
Adodc2.Recordset.Fields(1) = "车牌号"
Adodc2.Recordset.Fields(4) = "取车时间"
End Sub