VB编程经验总结

《VB编程经验总结》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB编程经验小结：1．VB中动态加载ODBC数据源的方法： Sub RegisterDataSource()   　　Dim strAttribs As String   　　’建造关键字字符串。   　　’C:myfilemyexample.l.mdb数据库文件名（包含路径）   　　strAttribs =“DBQ=” _   　　＆ “C:myfilemyexample.mdb” _   　　＆ Chr＄(13) ＆ “OemToAnsi=No” _   　　＆ Chr＄(13) ＆ “SERVER=SEQU

2、EL” _   　　＆ Chr＄(13) ＆ “Network=DBNMPNTW” _   　　＆ Chr＄(13) ＆ “Database=WorkDB”_   　　＆ Chr＄(13) ＆“Address=\SEQUELPIPESQLQUERY”   　　’建立新的注册的 DSN。   　　rdoEngine.rdoRegisterDataSource “mydatasource”,   　　“Microsoft Access Driver (＊.mdb)”， True,   　　strAttribs   　　

3、End Sub   　　Private Sub Form_Load()   　　Call rdoRegisterDataSource   　　End Sub  　　　２．通过相对路径指定数据库文件在很多情况下，不管采用上述哪一种方法打开数据库，都必须在程序设计时就指定需要打开的数据库文件。但是，我们通常不能保证该软件完成后一定会被安装在每台机器的同一目录下。因此该数据库文件的绝对路径一般在设计时还难以完全确定，只能采用相对路径的办法来解决这个问题。在VB中，App对象是一个全局对象，用来提供当前应用程序的相关信息，其Pat

4、h属性反映的是当前应用程序的可执行文件(.exe)所在的绝对路径，并且只在程序运行时才有效。通过使用App对象的Path属性，可以方便地获得当前程序所在的目录路径。因此，如果把数据库文件存放在与程序路径相关的目录下，便可以在程序设计时就指定数据库文件的相对路径，当程序运行时，通过App对象的Path属性动态地获取其绝对路径。下面的一段代码，用来在程序开始运行时获取程序的路径，并赋值给变量AppPath，然后在数据控件Data1的DatabaseName属性中与数据库文件的相对路径"DatabaseSample.Mdb"结

5、合，组成数据库文件的绝对路径。这段代码通常出现在Form-Load中:SubForm_load()DimAppPathAsString'设置路径变量AppPath=App.Path'获取程序路径IfRight(AppPath,1)<>""ThenAppPath=AppPath+""　'若路径尾部没有""，则添加之　Data1.DatabaseName=AppPath+"DatabaseSample.mdb"　'与相对路径结合，组成绝对路径endsub3．将datenvironment做为活动连接供查询使用withr

6、s 　...... 　.activeconnect=datenvironment1.connect1 　.open"select*fromtable"　　endwith４．记录分组和参数查询:这两项工作都是在Command对象的属性页中设置。将记录按某个字段分组：先设置好Connection1连接和Command1的数据源，然后在Command1的属性页“分组”选项卡上选中“分组命令对象”复选框，然后从左边选择一个字段添加到右边框中，确定即可。这样生成的记录集便具有了层次性，和GROUPBY的效果是一样的，可以用MSHfl

7、exgrid或报表DataReport来绑定。使用带单个参数的SQL查询：在Command1的属性页“通用”卡上选中使用“SQL语句”生成记录集，然后输入在WHERE子句中带？问号的查询：SELECT[name],[money]FROM[invoice]WHERE[name]LIKE?。这个问号就是一个参数，可以在代码中赋值，生成不同记录集。当然，仅这样参数的设置还没完成，在“参数”选项卡上为这个‘问号’设置属性，如参数名，输入/输出参数，数据类型等。代码中赋予具体的参数值，很简单，在初始化命令对象的语句（DataEnvi

8、ronment1.Command1）后面附上参数值就可以了，如：PrivateSubForm_Load()DataEnvironment1.Command2"符章秀"SetMSHFlexGrid1.DataSource=DataEnvironment1.rsCommand2EndSub５．DBGrid控