数据库.bas

公交调度实例程序

Attribute VB_Name = "数据库"
 Public Sub database()
 Dim cnn1   As ADODB.Connection
 Dim rstTemp As ADODB.Recordset
'创建新的连接对象,打开连接
  Set cnn1 = New ADODB.Connection
  cnn1.ConnectionString = "DSN=系统模拟.mdb"
  cnn1.CursorLocation = adUseClient
  cnn1.Mode = adModeUnknown
  cnn1.Open
 '创建新的纪录集对象
  Set rstTemp = New ADODB.Recordset
  rstTemp.CursorType = adOpenKeyset
   rstTemp.LockType = adLockOptimistic
  Set rstTemp.ActiveConnection = cnn1
 '创建新的的命令对象
 rstTemp.Open "结果", cnn1, , , adCmdTable
End Sub