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为一�
相关文档：
建一个模块
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
webbrowser 不能收到SendMessage的消息
主要是因为1webbrowser 的句柄找不到。经过努力搜索，终于解决了。做个记录.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
vb开发软件是在一定的环境下进行的，如visual basic 6.0 mssql或access等，但是最终软件要给广大群众使用，别人不可能都安装这些东西，所以需要打包，生成安装文件，就想我们下载的很多安装程序，都是打包后的结果！
但是值得注意的是，打包的过程中，有添加，删除组件供你选择，如果用到相对路径，附件，外联� ......
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更� ......
