求教 VB 访问 access 数据库问题 - 编程论坛

#2

appsion2014-10-04 14:18

只有本站会员才能查看附件，请登录

#3

vb新生2014-10-05 20:42

感谢appsion的答复，你太厉害啦。是我表述不清楚，有点出入。其实我想要list2显示的不是字段，而是所有的数据记录，只不过不用显示全部字段的，只选取部分字段（3个字段）显示。右侧则根据单击LIST2中的某条记录来显示该记录的详细数据（即全部字段），请不惜赐教，恭候。

#4

chen35232014-10-06 21:29

其实这里涉及用SQL查询的问题。最好还是找书看看，因为我年纪比较大，看了很久才懂一点点。如果我把语句写上，到你的程序未必可以使用，因为不知你数据库的字段结构。
我用的是Adocd控件查询，以下是我程序用的语句，目前使用查询的人说还可以好用：
     If DataCombo1.Text = "点击选择项目名称" Or DataCombo1.Text = "" Then
        My = ""
     Else
        My = "项目名称=" & Chr(34) + DataCombo1.Text + Chr(34)
     End If

     If Text1.Text = "输入关键词" Or Text1.Text = "" Then
        You = ""
     Else
         You = Chr(34) + "%" + Trim$(Text1.Text) + "%" + Chr(34)
      End If


    If My = "" And You = "" Then
         SQL = "SELECT * FROM 项目文件表  order by 文件ID desc"
    ElseIf My <> "" And You <> "" Then
         SQL = "SELECT * FROM 项目文件表  where  " & My & " and 文件名 like " & You & " order by 文件ID desc"
    ElseIf My = "" And You <> "" Then
         SQL = "SELECT * FROM 项目文件表  where   文件名 like " & You & " order by 文件ID desc"
    ElseIf My <> "" And You = "" Then
         SQL = "SELECT * FROM 项目文件表  where  " & My & " order by 文件ID desc"
    End If

         = adCmdunknow
        Adodc1.RecordSource = SQL
        Adodc1.Refresh
          Set DataGrid1.DataSource = Adodc1
          DataGrid1.Columns(0).Width = 0
          DataGrid1.Columns(2).Width = DataGrid1.Width - DataGrid1.Columns(1).Width - DataGrid1.Columns(3).Width - DataGrid1.Columns(4).Width - DataGrid1.Columns(5).Width - DataGrid1.Columns(6).Width - 300


[ 本帖最后由 chen3523 于 2014-10-6 21:55 编辑 ]