Dim SqlString As String '查询字符串 Dim Connstring As String '连接字符串 Dim RS1 As New ADODB.Recordset '记录集变量 Dim Cmd As New ADODB.Command Private Sub Command1_Click()
Connstring = \
& \ '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 = \课程名称,教师姓名,上课教室,班级编号,上课时间 from 排课表 Where 上课教室 like '\ '形成查询字符串1
Cmd.CommandText = SqlString '设置Command对象执行的命令字符串
Cmd.CommandType = 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 '遍列所有列
If Not IsNull(Rs.Fields(j).Value) Then '如果列中的数据不为空,切记不能用如 if Var1=Null来判断变量Var1的值是否为Null
Dgrid.TextMatrix(RowNum - 1, j) = Rs.Fields(j).Value '把列的数据显示在MsFlexGrid的相应网格中 End If Next j
Rs.MoveNext '记录指针下移 Loop
Command2.Enabled = False End Sub
Private Sub Command3_Click() Form14.Hide Form3.Show End Sub
Private Sub Command4_Click() RS1.Close '关闭记录集 Conn.Close '关闭连接 Text1.Text = \
Command1.Enabled = True '连接按钮不可用 Command2.Enabled = True '显示数据可用 End Sub
Private Sub Command5_Click() DataReport1.Show vbModal, Me End Sub
3、查看初始化窗口及代码
Option Explicit
Dim SQL As String
Dim Conn As New ADODB.Connection '连接变量
Dim SqlString As String '查询字符串 Dim Connstring As String
Dim msg As String '连接字符串 Private Sub CmdSave_Click() '进行初始化操作
Dim Counnter As Integer Connstring = \
Server};Server=PC2012110412ewr.;Database=GXPK;\
& \ 'SQL Server普通安全模式建立到Pubs数据库的
连接的连接字符串
'设置连接字符串 With Conn
.ConnectionString = Connstring '给ConnectionString属性赋值 .ConnectionTimeout = 10
.Open '给连接的ConnectionString属性赋值，然后使用求带参数的Open
方法打开连接
End With
MsgBox (\连接成功\
ProgressBar1.Visible = True ProgressBar1.Max = 200
ProgressBar1.Value = ProgressBar1.Min
msg = MsgBox(\您确实要初始化这些数据吗?\ If msg = vbNo Then Exit Sub
For Counnter = ProgressBar1.Min To ProgressBar1.Max ProgressBar1.Value = Counnter
If Check1.Value = 1 Then '如果班级信息表被选中 '删除全部提醒信息数据
SQL = \班级信息表\ Conn.Execute SQL End If
If Check2.Value = 1 Then '如果课程信息表被选中 '删除全部通讯日志数据
SQL = \课程信息表\ Conn.Execute SQL End If
If Check3.Value = 1 Then '如果班级课程信息表被选中 '删除全部群组信息数据
SQL = \任课表\ Conn.Execute SQL End If
If Check4.Value = 1 Then '如果教师信息表被选中 '删除全部联系人信息数据
SQL = \教师信息表\
Conn.Execute SQL End If
If Check6.Value = 1 Then '如果排课信息表被选中 '删除全部联系人信息数据
SQL = \排课表\ Conn.Execute SQL End If Next Counnter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min End Sub
Private Sub CmdExit_Click() '退出操作
Form15.Hide Form3.Show End Sub
Private Sub Form_Unload(Cancel As Integer) '退出操作
Form15.Hide Form3.Show End Sub
4、查看自动排课窗口及代码
Dim Conn As New ADODB.Connection '连接变量 Dim SqlString As String '查询字符串 Dim Connstring As String Dim dlaytime As Integer
Private Sub Command2_Click() Dim SQL As String
Dim sc As ADODB.Recordset Set sc = New ADODB.Recordset SQL = \排课表 \End Sub
Private Sub Command3_Click() Form9.Hide Form3.Show End Sub
Private Sub Form_Load()
constr = \
& \ 'SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串 '定义数据库连接 With Conn
.ConnectionString = constr '给ConnectionString属性赋值 .ConnectionTimeout = 10
.Open '给连接的ConnectionString属性赋值，然后使用求带参数的Open方法打开连接 End With
MsgBox (\连接成功\
ProgressBar1.Visible = True ProgressBar1.Max = 200
ProgressBar1.Value = ProgressBar1.Min End Sub
Private Sub Command1_Click() '开始 Dim SQL, sqll, sqlll As String
Dim rt As New ADODB.Recordset Dim rm As New ADODB.Recordset Dim rn As New ADODB.Recordset Dim rp As New ADODB.Recordset Dim rq As New ADODB.Recordset Dim i As Integer
Set Rs = New ADODB.Recordset SQL = \任课表 \Set Rs = Conn.Execute(SQL) ProgressBar1.Max = 100
Do While ProgressBar1.Value < ProgressBar1.Max Do Until Rs.EOF = True i = Rs(\每周节数\ Do Until i = 0
sqll = \时间表\ Set rt = Conn.Execute(sqll) Do Until rt.EOF = True
Set rp = New ADODB.Recordset
coom = \排课表 where [班级编号]='\班级编号\上课时间]='\上课时间\