使用VB将Excel导入到Sql中
使用VB把Excel导入到Sql数据库中，其实有几种方法。
下面我介绍的这种方法，较为简单。
其实这种方法的话，是直接使用T-SQL操作的，因此，到了VB里面，直接eccute这个代码就OK了的。
-----------------------------------------------------下面是在T-sql中的语句
if object_id('NewTable') is not null/*判断表NewTable是否存在，如果存在则删除它*/
drop table NewTable
Select * Into NewTable from OpenDataSource('Microsoft.Jet.OLEDB.4.0'," _
& "'Data Source=" & Excel文件名（绝对路径） & _
";User ID=Admin;Password=;Extended properties=Excel 5.0')...[工作表名]
-----------------------------------------------------上面是在T-sql中的语句
这样，就把这个Excel工作表完整的导入到Sql当前数据库下的NewTable的表中了。
如果想到VB里面使用，则连接到这个数据库，并且使用Excute执行上面的T-SQL语句即可。
相关文档：
数据库sql的特殊字符：
1）单引号’：例如string a = “this is marry’s book.”;
使用insert时就会出错。
解决：a= a.Replace("'","' ......
--结合sys.indexes和sys.index_columns,sys.objects,sys.columns查询索引所属的表或视图的信息
select
o.name as 表名,
i.name as 索引名,
c.name as 列名,
i.type_desc as 类型描述,
is_primary_key as 主键约束,
is_unique_constraint as 唯一约束,
is_disable ......
看完入门篇和进阶篇后，稍加练习，破解一般的网站是没问题了。但如果碰到表名列名猜不到，或程序作者过滤了一些特殊字符，怎么提高注入的成功率？怎么样提高猜解效率？请大家接着往下看高级篇。
第一节、利用系统表注入SQLServer数据库
SQLServer是一个功能强大的数据库系统，与操作系统也有紧密的联系，这给开发者带来了 ......
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
......
来源:http://hi.baidu.com/czgblog/blog/item/3abd5aa911d51ff51f17a292.html
function OnFirstUIAfter()
STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
NUMBER bvOpt1, bvOpt2;
NUMBER bShowUpdateServiceDlg;
......
