module1.bas

来自「手工出卷和自动出卷以及审核试卷和修改试卷」· BAS 代码 · 共 12 行

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