module1.bas

手工出卷和自动出卷以及审核试卷和修改试卷

Attribute VB_Name = "Module1"
Public Con As New ADODB.Connection
Public Cmd As New ADODB.Command
Public Sub Connect()
  Con.ConnectionString = "Driver={SQL Server};Server=(local);database=PAPER;UID=sa;PWD=sa"
  Con.Open
  Set Cmd.ActiveConnection = Con
  Cmd.CommandType = adCmdText
  Cmd.CommandTimeout = 15
End Sub