VB中实现地图操作的方法
1. 在VB的Form设计时，加入一个picturebox控件，这个控件作为OLE容器，MapInfo中的地图将在该控件上显示。
2. 执行VB的函数Createobject(“MapInfo.Application”),启动MapInfo。这时MapInfo在后台启动，对用户来说不可见，不会弹出splash窗口
3. 调用MapBasic的函数Set Application Window，设置MapInfo的父窗体ID，也就是VB窗体的ID，以后的MapInfo对话框都把VB窗体作为父窗体。
4. 生成一个OLE自动化回调对象，用来处理MapInfo的回调信息。然后调用MapBasic的函数SetCallback来指向这个回调对象。
5. 调用MapBasic的函数Open Table来打开所要打开的表，这个时候仅仅是打开数据库文件而已，图层并不可见。
6. 调用MapBasic的函数Map from生成可见的地图，地图显示在picturebox内。
7. 调用MapBasic的函数Set Next Document Parent，重新定向MapInfo文档窗口的父窗体，这样地图窗口就成为VB应用程序的子窗体。
相关文档：
'在引用里添加ADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用" & _
"户;Initial Catalog=数据库名;Data Source=服务器名"
......
使用VB将ASP代码封装到DLL文件完整实例
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
用VB封装ASP，建立SayHello测试程序
1、打开VB6，新建ActiveX DLL
2、在工程引用中加入Microsoft Active Server Pages Object Library选择
3、填加代码如下：
'Code Start
'声明部分
Private MyScriptingContext ......
VB实现SQL Server数据库备份/恢复
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**模 块 名：fBackupDatabase_a
’**描 述：备份数据库,返回出错信息,正常恢复,返回""
’**调 用：fBackupDatabase_a "备份文件名","数据库名"
’**参数说明� ......
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) 前两个字节为FFFE
Log.Message("fi ......
