VB中利用DataBase巧妙设置DataReport中的动态SQL
近日分析一VB做的报表，由于对VB只是了解，谈不上熟练，不过对其水晶报表倒有点认识，之前也做过三两个小的报表 ，加之对PB中的报表了解非常熟悉，当时信心蛮大的。
先是看了DataReport，用于绘制报表格式。再来看DataEnvironment，用于定义获取的数据列。将DataReport与DataEnvironment绑定后就可获取数据了。
基于这个思路还算是简单，做个简单的不带参数条件的SQL通过了。不过打开报表的界面无法自定义，如加个查询的按钮，让查询的条件与报表显示在同一个界面中，(PB实现就太简单了)。想到一个与DataReport差不多同名的ActiveX-DataRepeat，(想通过ActiveX加载该DataReport，这样就可在自定义界面上显示这个Report)先看看再说，结论是两码事。DataReport用于设计报表，Datarepeat与DataGrid类似数据底层转换处理的。(只怪英文差，应该从字面上可以理解这个DataRepeat与Report是两码事，不过这种精神值得提倡，没有调查就没发言权。)
无参数的SQL是没问题，下面就是有参数的了。分析别人的程序是件可怕的事，特别是对VB不熟，加上别人使用的另类方法，更是一头雾水。这回我就遇上了。
代码中没有去处理DataEnvironment，虽然DataReport都与DataEnvironment绑定了，但属于静态式绑定。原作者使用的是DataBase，通过OpenDatabase一个MDB文件，再在QueryDefs子类中去动态设置SQL，这样就将相当于对参数传入了。开始时照猫画虎了，程序未报错，可检索后没有按查询条件来检索。DataEnvironment中我定义了的CmdText方式，将报表需要的列都给出来，Where 条件给不出来，因为条件是在界面中录入的。分析下原有的DataEnvironment，使用的是CmdTable方式，与内部的视图直接对应，可我这无法对应表，我的SQL是多表关联。
“遇到问题，你baidu了吗?”，这话非常流行。那就先找找相关资料，无赖原来这们仁兄使的招数太偏，无果。
继续分析，原来那位仁兄使用了DataBase来与Report打交道，那就查查QueryDefs，该技术好像失传了一般，只能在MSDN上看到English帮助，也没看到DataBase与DataReport相关的，只有段样例是可以用来设置一个Sql语句。
换个角度看问题，既然看不到真正意义的帮助，那就自已了解，还好VB中有这个调试查看器，Debug动态跟踪再看看DataBase对象，DataBase为一�
相关文档：
代码如下:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As
Long, ByVal hWndInsertAfter As Long,& _
ByVal X As Long, ByVal Y As
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long & _
&n ......
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......
引自：http://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
访问远程数据库的情况有以下几种：
1）访问远程数据库的access数据库
2）访问远程mssql数据库或oracle等其他关系数据库，但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口
本文仅在windows2000 advance server,mdac2.8下测试通过� ......
Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......
虽然在VB里实现XP风格很简单，但是要使用XP风格同时又让按钮显示图片，则实现起来要麻烦一些，为此，我写了一个控件来实现前述功能，同时让读者可以从中了解XP主题界面的绘制过程。
使用办法很简单，在VB里新建一个工程，然后添加一个控件模块，粘贴以下代码，再将控件放置到窗口即 ......
