| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 562 人关注过本帖
标题:有关于选择查询
只看楼主 加入收藏
花籽
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-11-28
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
有关于选择查询
图片附件: 游客没有浏览图片的权限,请 登录注册

代码应该怎样写?
搜索更多相关主题的帖子: 查询 
2012-11-28 10:08
fily1314
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
帖 子:166
专家分:1190
注 册:2007-7-18
收藏
得分:10 
判断姓名的checked是否为true,是的话textbox里的内容就到姓名列去查询,否则就到学号列去查询
2012-11-30 23:07
ZMGTCDY
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:51
专家分:115
注 册:2012-10-5
收藏
得分:10 
Private Sub 查询Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询Button.Click
        Dim testCheck1 As Boolean
        Dim testCheck2 As Boolean
        testCheck1 = CheckBox1.Checked
        testCheck2 = CheckBox2.Checked
       If testCheck1 = True Then
            Dim MySQLConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\****.accdb;Jet OLEDB:Database Password=*****"                   Dim MyConnection As New System.Data.OleDb.OleDbConnection(MySQLConnectionString)
            MyConnection.Open()
            Dim MyTable As New Data.DataTable()
            Dim MySQL As String = "select * from 学生管理  where (姓名= '" + Me.姓名TextBox.Text + "')"
            Dim MyAdapter As New OleDbDataAdapter(MySQL, MyConnection)
            MyAdapter.Fill(MyTable)
            Me.学生管理DataGridView.DataSource = MyTable
            If (MyConnection.State = ConnectionState.Open) Then
                MyConnection.Close()
            End If
         Else
           同理
         End If
End Sub
2012-12-03 08:11
快速回复:有关于选择查询
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016973 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved