为什么DataGrid1中不能显示连接的数据库中的数据呢？请好心人帮忙看看！！！
Private Sub Form_Load()'初始化查询条件CboQuery
CboQuery.AddItem ("DID")
CboQuery.AddItem ("PID")
CboQuery.AddItem ("SIID")
CboQuery.AddItem ("SNum")
CboQuery.ListIndex = 0 '默认查询条件为所属部门ID
Call LoadData
End Sub
Private Sub LoadData()
'装载数据
Dim colName As String '保存所选择的查询条件
Dim colValue As String '保存所要查询的具体值
Dim strWhere As String
'得到查询条件
colName = Trim(CboQuery.Text) '取出条件的值
colValue = Trim(txtQuery.Text) '取出所要查询的值
'构建条件
strWhere = "where" & colName & " like '% " & colValue & "% ' "
Set rs = Nothing
'查询员工基本信息
SQL = "select * form SI " & strWhere & " order by SID"
Call SelectSQL(SQL, msg)
Set rs = SelectSQL(SQL, msg)
Set Me.DataGrid1.DataSource = rs '在DataGrid中显示查询的结果
DataGrid1.Refresh
If rs.RecordCount = 0 Then '如果不存在记录
'编辑控件可用性
CmdAdd.Enabled = True
CmdModify.Enabled = False
CmdDelete.Enabled = False
'移动控件不可用
For Index = 0 To 3
Command(Index).Enabled = False
Next Index
Else
'编辑控件可用性
CmdAdd.Enabled = True
CmdModify.Enabled = True
CmdDelete.Enabled = True
'移动控件可用
For Index = 0 To 3
Command(Index).Enabled = True
Next Index
End If
End Sub
就是进去没显示的···
--------------------编程问答-------------------- 打印一下，看看SQL对不对
下边这句where后就少了空格
strWhere = "where" & colName & " like '% " & colValue & "% ' " --------------------编程问答-------------------- 调试的时候 把鼠标放在你的 strwhere 上面 点击放大镜 把SQL语句 复制出来 查看下 --------------------编程问答-------------------- 断点。。看SQL语句 --------------------编程问答-------------------- 看下语句有取到数据没、
再看下数据源绑定了没、 --------------------编程问答-------------------- 结贴率提高点 --------------------编程问答-------------------- 走断点就知道哪有错了 --------------------编程问答-------------------- 多半就是你的这句where后面没有空格
strWhere = "where" & colName & " like '% " & colValue & "% ' "
如果项目中SQL语句都是这样灵活的组成的话，调试的时候多看看得到的SQL语句对不对吧，有时候就是一个空格或是一个单引号的问题呢 --------------------编程问答--------------------
空格有了还是不对么
--------------------编程问答--------------------
这个弄不出来么····
补充：.NET技术 , ASP.NET
