惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

K
Kaspersky official blog
罗磊的独立博客
F
Fortinet All Blogs
人人都是产品经理
人人都是产品经理
量子位
V
Visual Studio Blog
Blog — PlanetScale
Blog — PlanetScale
M
MIT News - Artificial intelligence
B
Blog RSS Feed
腾讯CDC
博客园_首页
aimingoo的专栏
aimingoo的专栏
博客园 - 三生石上(FineUI控件)
博客园 - Franky
S
SegmentFault 最新的问题
N
Netflix TechBlog - Medium
小众软件
小众软件
奇客Solidot–传递最新科技情报
奇客Solidot–传递最新科技情报
K
KPMG report finds enterprise disconnect between AI and its ROI | CIO
Threat Intelligence Blog | Flashpoint
Threat Intelligence Blog | Flashpoint
L
LINUX DO - 热门话题
cs.CL updates on arXiv.org
cs.CL updates on arXiv.org
Martin Fowler
Martin Fowler
D
Docker
P
Privacy & Cybersecurity Law Blog
S
Securelist
V
V2EX
Jina AI
Jina AI
阮一峰的网络日志
阮一峰的网络日志
T
Tor Project blog
The Hacker News
The Hacker News
Microsoft Azure Blog
Microsoft Azure Blog
AWS News Blog
AWS News Blog
The GitHub Blog
The GitHub Blog
有赞技术团队
有赞技术团队
T
The Exploit Database - CXSecurity.com
Help Net Security
Help Net Security
酷 壳 – CoolShell
酷 壳 – CoolShell
Application and Cybersecurity Blog
Application and Cybersecurity Blog
博客园 - 叶小钗
Recent Announcements
Recent Announcements
Cloudbric
Cloudbric
Y
Y Combinator Blog
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
Latest news
Latest news
MongoDB | Blog
MongoDB | Blog
H
Hackread – Cybersecurity News, Data Breaches, AI and More
Recorded Future
Recorded Future
V2EX - 技术
V2EX - 技术

博客园 - 蓝箭GZ

[转载]AgileEAS.NET 敏捷软件开发平台 致力于中小企业快速应用开发 原创:分享通过简单设置提速3D游戏!(如果内存大,请禁用虚拟内存。) 原创:EXT2.0通过ASP动态生成json数据并分页! 原创:分享大内存的XP系统终极优化经验! 转贴:Vbs脚本编程简明教程! 终于找到一款非常强大的程序代码编辑器PrimalScript v4.0.484汉化版! 空牙-游戏音乐合成视频 转:怀念街机的那段传奇历史 原创:ASP.NET2.0中使用AJAX1.0控件的一点经验 原创:基于VB的ASP.NET2.0的事务及错误处理 原创:Flash cs3 等软件不能在win2003sp1上安装的问题解决(安装遇到错误无法继续, 无法访问Windows Installer服务......) 原创:简单的ASP无组件上传原理实践总结! 转贴:检测系统颜色与使用字体 原创:我理解的ActiveX组件和对象 (转贴) Microsoft XML 分析器 (MSXML) 的版本列表 (转贴) Microsoft .NET Framework 的版本列表 关于网上的一篇很好的文章(RECORDSET对象详解)所存在的错误! (转贴) ADO.NET的开发场景及传统ADO的处理 (转贴) 数据库设计三大范式应用实例剖析
原创:VS2005开发的一些实用经验一(VB.NET--WINFORM)
蓝箭GZ · 2008-05-31 · via 博客园 - 蓝箭GZ

        VS2005提供了强大的功能,很多控件提供,只要合理使用,结合简单的代码编程,就会快速地开发出实用的信息管理系统。
        我一直编程的目标都是,用简单的手工代码编写,实现功能强大的功能,又要代码写得小,又要控制灵活,将纯控件编程与手写编程结合是最好的实现方法。

    VS2005的工具箱中很多控件无加入,自已可以通过[工具箱\选择项]的方式加入更多的功能,也可以通过[工程\添加引用...],加入一些不常用,又好实用的控件或类,如System.Windows.Forms和microsoft.Reportviewer.WinForms(生成打印报表用的)

以下是一些在VB.NET开发中实用的经验,参考:

1、灵活连接DataGridView:(以连接mdb文件为例)
(1)、拖放一个控件

OleDbDataAdapter到设计表单,设置里面的SQL语句,一 般设为“SELECT * FROM 表名”就可以了,它就会动生成一个OleDbDataAdapter1和一个连接OleDbConnection1,再拖放一个DataSet控件,选择“非类型化数据集”,就会生成一个空的DataSet1。

(2)、DataGridView的数据全绑定:
    form_load事件中输入简单的几行代码:

OleDbConnection1.Open()       '打开连接
            OleDbDataAdapter1.Fill(DataSet3, "表名")         '填充“表”中数据进数据集
            DataGridView1.DataSource = DataSet1            '绑定数据源
            DataGridView1.DataMember = "表名"                '绑定表名
            。。。。。。
            OleDbConnection1.Close()        '关闭连接

(3)、只显示有用的几列数据:
            DataSet1.Clear()                   '每次填充前要先清空,否则会追加

            OleDbConnection1.Open()       '打开连接
            OleDbDataAdapter1.Fill(DataSet3, "表名")         '填充“表”中数据进数据集
            DataGridView1.DataSource = DataSet1            '绑定数据源
            DataGridView1.DataMember = "表名"                '绑定表名
               
            DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True     '列中数据太长自动换行

            DataGridView1.Columns(0).Visible = False        '不显示
            DataGridView1.Columns(1).Visible = False        '不显示
            DataGridView1.Columns(2).HeaderText = "故障现象"
            DataGridView1.Columns(2).Width = 300            '设置列宽
            DataGridView1.Columns(2).DefaultCellStyle.WrapMode = DataGridViewTriState.True
            DataGridView1.Columns(3).HeaderText = "报障日期"
            DataGridView1.Columns(3).Width = 100
            DataGridView1.Columns(4).Visible = False
            DataGridView1.Columns(5).HeaderText = "维修报告"

            OleDbConnection1.Close()        '关闭连接
            
(4)、动态查询:
            DataSet1.Clear()                   '每次填充前要先清空,否则会追加
            OleDbConnection1.Open()       '打开连接

           
            Dim mysql As String
            mysql = "select * from company"                '自已写查询条件
            mysql = mysql + " where comp_name like '%" & Trim(TextBox1.Text)
            OleDbDataAdapter1.SelectCommand.CommandText = mysql            '替换OleDbDataAdapter1中的查询语句

            OleDbDataAdapter1.Fill(DataSet1, "表名")         '填充“表”中数据进数据集
            DataGridView1.DataSource = DataSet1            '绑定数据源
            DataGridView1.DataMember = "表名"                '绑定表名
            OleDbConnection1.Close()        '关闭连接

        
(5)、多表查询填充DataSet1,并将结果绑定到DataGridView1
            DataSet1.Clear()                   '每次填充前要先清空,否则会追加
            OleDbConnection1.Open() 
            Dim mysql As String
            mysql="select main_id,comp_name,comp_address,comp_phone,comp_linkman,equi_name,equi_type,equi_configure"
            mysql=mysql+",main_trouble,main_bzdate,main_stdate,main_wcdate,main_report,main_username2"
            mysql = mysql + ",main_price,main_memo from"
            mysql = mysql + " company as a,equipment as b,maintain as c where b.comp_id=a.comp_id and c.equi_id=b.equi_id and main_id=" & myid
            OleDbDataAdapter1.SelectCommand.CommandText = mysql
      

            OleDbDataAdapter1.Fill(DataSet1, "任意名称的表名")
            DataGridView1.DataSource = DataSet1            '绑定数据源
            DataGridView1.DataMember = "表名"                '绑定表名
            OleDbConnection1.Close()        '关闭连接