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

和智能智能排课系统1、2、3是一套

Dim SqlString As String '查询字符串

Dim Connstring As String '连接字符串

Dim RS1 As New ADODB.Recordset '记录集变量

Dim Cmd As New mand

Private Sub Command1_Click()

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

MsgBox ("连接成功")

Command1.Enabled = False '连接按钮不可用

Command2.Enabled = True '显示数据可用

End Sub

Private Sub Command2_Click()

Set Cmd.ActiveConnection = Conn '设置Command对象的ActiveConnection为某个打开的连接

SqlString = "Select 课程名称,教师姓名,上课教室,班级编号,上课时间 from 排课表 Where 上课教室 like '" & Text1.Text & "' " '形成查询字符串1

mandText = SqlString '设置Command对象执行的命令字符串

mandType = adCmdText '设置命令类型,表示CommandText中为一命令文本 ,童P188

Set RS1 = Cmd.Execute '执行命令得到一个结果记录集

Call ShowData(RS1, MSFlexGrid1) '调用过程显示记录集中的数据

Command1.Visible = True

End Sub

Private Sub ShowData(Rs As ADODB.Recordset, Dgrid As MSFlexGrid)

'该过程用来在Dgrid网格中显示记录集RS中的内容

Dim RowNum As Integer

RowNum = 1 '代表MsFlexGrid控件的行数

Dgrid.Rows = RowNum '设置MsFlexGrid控件的行数

Dgrid.Cols = Rs.Fields.Count '设置MsFlexGrid控件的列数

For j = 0 To Rs.Fields.Count - 1 '遍列所有列

Dgrid.TextMatrix(0, j) = Rs.Fields(j).Name '把列名显示在设置MsFlexGrid控件的首行

Next j

Do While Not Rs.EOF '如果不是记录集的结尾

RowNum = RowNum + 1 '行数加1

Dgrid.Rows = RowNum '设置MsFlexGrid控件的行数

For j = 0 To Rs.Fields.Count - 1 '遍列所有列