Private Sub Command1_Click()
Dim strItem As String
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
If (ResearchItem.Text = "" Or txtSearch = "") And SearchItem.Text"全部课程" Then
MsgBox "请输入查询条件!", vbOKOnly
Exit Sub
End If
'根据查询条件生成查询SQL语句
If SearchItem = "课程号" Then
strItem = "select a.lessonID as 课程号,a.lessonNAME as 课程名, b.departmentNAME as 所属院系 from lesson as a inner join department as b on a.departmentID=b.departmentID and a.lessonID like '" + txtSearch.Text + "'"
ElseIf SearchItem = "课程名" Then
strItem = "select a.lessonID as 课程号,a.lessonNAME as 课程名, b.departmentNAME as 所属院系 from lesson as a inner join department as b on a.departmentID=b.departmentID and a.lessonID like '" + txtSearch.Text + "'"
ElseIf SearchItem = "所属院系" Then
strItem = "select a.lessonID as 课程号,a.lessonNAME as 课程名, b.departmentNAME as 所属院系 from lesson as a inner join department as b on a.departmentID=b.departmentID and a.lessonID like '" + txtSearch.Text + "'"
Else
strItem = "select a.lessonID as 课程号,a.lessonNAME as 课程名, b.departmentNAME as 所属院系 from lesson as a inner join department as b on a.departmentID=b.departmentID"
End If
'生成新连接
Set Conn = New ADODB.Connection
Conn.Open getConString
'生成命令
Cmd.ActiveConnection = Conn
Cmd.CommandText = strItem
'生成记录集
rs.CursorLocation = adUseClient
rs.Open Cmd
'将数据网格和记录集绑定
Set DataGridl.DataSource = rs
Set Conn = Nothing
End Sub
中的If (ResearchItem.Text = "" Or txtSearch = "") And SearchItem.Text"全部课程" Then这个有问题...但不知道怎么改...
很急很急,拜托...
你好,请问你说的ResearchItem,txtSearch ,SearchItem这三个控件在哪加载啊?我不知道诶、、、
|