vb.net操作数据库之ACCESS（3）
这一篇我再说说水晶报表的情况。ACCESS中对应水晶报表方面，大家可能会遇到的最多的问题应该就是打开报表后
会出现需要登录的问题。
这个是为什么呢？明明我没有设置密码，怎么会有要输入密码呢？如果你够沉着，如果你的debug经验不缺乏的话，
你会发现在水晶报表跳出输入密码的登录框中，access的路径不是我现在数据库放置的位置，仍然是我在编码的时候
选择的数据库地址。他为什么没有变呢？其实这个时候你需要问，这个地址为什么要变？
当你使用公用服务器的时候，可能不会出现这个问题，因为你不管到哪个客户端使用，服务器地址不会变。然而你用access，
当数据库跟着换了电脑后，服务器地址当然也变了，而你编码中的地址却没有变，这个就是问题出现的原因咯！明白了吧？
其实是很简单的一个道理。
那怎么办呢？老规矩，看代码。
‘数据库连接
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'开始查询
Dim sql As New System.Text.StringBuilder
Dim DT As New DataTable
sql.Append(" SELECT * from WORDINFO")
Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection)
Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
DT = New DataTable
RS.Fill(DT)
DBConnection.Close()
’以上就是数据库里查询，下面就是把查询结果给水晶报表来显示。
’先定义报表的位置，接着定义一个报表页面，然后是一个自动登录数据库的
Dim reportPath As String = Application.StartupPath & "\" & "CrystalReport.rpt"
Dim rptDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim logonInfo As New CrystalDecisions.Shared.TableLogOnInfo
rptDoc.Load(reportPath)
‘这里就是设置数据库登录的信息，ACCESS中有账号密码的话就填，没有的话就全部空，
’如果其他的数据库，如sql就要填服务器和数据库名称了
logonInfo.ConnectionInfo.ServerName = ""
logonInfo.ConnectionInfo.DatabaseName = ""
logonInfo.ConnectionInfo.UserID = ""
logonInfo.ConnectionInfo.Password = ""
rptDoc.Database.Tables(0)
相关文档：
最近在学习windows API的时候发现在个叫句柄的概念搞不清楚，于是查了一下现在把自己的理解写出来，后面再贴网上的介绍。句柄是一个代表窗口的正整数，当然窗口的概念在这里包含了桌面、按钮、滚动条等，这就是我最简单的理解了。
以下是网上的介绍：
了解句柄
在调用 ......
Windows中的桌面图标的排列方式是否让你感到厌倦而想按照自己的想法排列图标。是否想改变桌面图标文字的背景而不
使在图标文字下出现一个个难看的色块。这里我要介绍如何通过VB来对桌面的图标进行彻底的改变。
其实在Windows下的桌面以及任务栏等都是窗口对象，我们可以利用Windows API函数FindWindow ......
VB无所不能之五：建立“标准”DLL动态链接库文件（2）
——作者：钟声
博客地址：http://blog.csdn.net/useway
昨天我们讲到，如何通过特殊方法获取OBJ文件，那么今天我们继续讲如何进行编译连接。
......
RGB函数：RGB是通过指定红绿蓝不同的分量值得到不同的颜色。
·格式：RGB（红色值，绿色值，蓝色值）
·取值范围为0--255，分别代表所要颜色中的红、绿、蓝分量的大小。
QBColor函数：用一个整数值对应RGB的常用颜色值
·格式QBColor（颜色值）
·颜色值是一个整数，取值范围0--15代表16种� ......
1.语言/环境基础
--项目的组成
--语言基础
----变量的作用域和生存期
----基本语句(for循环,赋值语句let(普通变量赋值),set(对象的赋值,只用set),分支语句)
----静态数组和动态数组(数组的声明,上下界确定,动态数组的使用,定义新的之后,怎么保留以前的数据)
----主要的系统函数和过程(By ......
