智能排课系统vb代码(12)
时间:2025-04-05
时间:2025-04-05
和智能智能排课系统1、2、3是一套
P1.Value = dlaytime
End If
End Sub
5、查看手动调课窗口及代码
Dim Conn As New ADODB.Connection '连接变量
Dim SqlString As String '查询字符串
Dim Connstring As String
Private Sub Command2_Click()
Form11.Hide
Form3.Show
End Sub
Private Sub Command5_Click()
Dim Conn As New ADODB.Connection '连接变量
Dim SqlString As String '查询字符串
Dim Connstring As String '连接字符串
Dim RS1 As New ADODB.Recordset '记录集变量
Dim Cmd As New mand
Connstring = "Driver={SQL Server};Server=PC2012110412ewr.;Database=GXPK;" _
& "uid =sa;pwd=t123" 'SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串
'设置连接字符串
With Conn
.ConnectionString = Connstring '给ConnectionString属性赋值
.ConnectionTimeout = 10
.Open '给连接的ConnectionString属性赋值,然后使用求带参数的Open方法打开连接 End With
Set Cmd.ActiveConnection = Conn '设置Command对象的ActiveConnection为某个打开
上一篇:现代高血压药物治疗策略与趋势