智能排课系统vb代码(12)

时间: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为某个打开

智能排课系统vb代码(12).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219