vivid的技术专栏

 （1）导入本地试验一：需要引入的有：Microsoft ADO Ext 2.1. For DDL Security  and Microsoft ActiveX Data Objects 2.5 Library以上Public Sub Command1_Click1()首先，从html table中提取出表头（传为参数）(no)在本地新建一个mdb文件，各字段为表头（ok)打开mdb文

dim i as Integerfor i=0 to 10statementnext  i-----------------------------------------------------------------Public Sub Command1_Click3(recordCount As Integer)首先，从html table中提取出表头（传为参数）(no)在本地新建一个m

在Visual Basic中，常用的数据访问接口有下列三种：数据库访问对象(DAO，Data Access Object)、远程数据库对象(RDO，Remote Data Object)和ActiveX数据对象(ADO，ActiveX Data Object )。数据库访问技术一直在不断进步，而这三种接口的每一种都分别代表了该技术的不同发展阶段。最新的是ADO，它是比RDO和DAO更加简单，然而更

数据库可以在程序中自动建立,代码给你粘过来,你可以做参考:Dim sjkname As String, tzgs As Integer, filename As Stringsjkname = Label2.CaptionIf Option2.Value = True Thentzgs = Combo2.TextElsetzgs = 7End IfDim MyTable As TableDef,

在Visual Basic应用程序中，可以通过编写代码来建立一个数据库，以及对数据库进行索引、查询等许多操作。这样就需要用到几个新的对象 ，如：“Database”、“TableDef”、“Field”等，这些被统称为数据存取对象（Data AccessObject），也就是我们经常见到的DAO。 1.  创建数据库文件 首先讲的对象是DBEngine，它是DAO的最高层接口，在它下面可以生成一个

一、一维数组只有一个下标，数学上形如数列{ai}表示的数据均可用一维数组来处理。注意数组的输入与输出方法。Private Sub Command1_Click()    Dim a(100) As Integer    Dim s As Integer    For i = 1 To 100       a(i) = i                        Next i     End

Private Sub Command3_Click()Dim conn As New ADODB.Connectionconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/1.mdb;Persist Security Info=False"conn.Execute "create table a (b longbinary)"End

使用API调用Winodws各种通用对话框(Common Diaglog)的方法（一）1.文件属性对话框Type SHELLEXECUTEINFOcbSize As LongfMask As Longhwnd As LonglpVerb As StringlpFile As StringlpParameters As StringlpDirectory As StringnShow As Long

极速倒入sql记录到excel表格,19个子段5万条记录只需30秒http://expert.csdn.net/Expert/topic/1035/1035148.xml?temp=.9380762在网上看到一段程序,没有使用vba编程将sql数据倒入excel表格,速度极快,贴出于大家共赏.其主要思想是：将EXCEL作为一个数据库使用，它的名字就是数据库的名字，工作表就是一张数据库中的表。建立一

从VB将数据导出到EXCEL,网上可能有很多这样的代码,但是前提都要安装EXCEL,今天我分享给大家的就是没有安装EXCEL的一样也可以导出.Rem 作者:谢炎锦  创建时间:2002-12-20   Mail:XieYanJin@163.ComRem 内容如下:Rem 引用方式: Export(Ado.Recordset) 或 Export(Rds.RecordSet)Rem 支持 Rds 与

（2）从本地导出程序部分Public Function test2() As IntegerDim cnn As ADODB.ConnectionDim rstC As ADODB.RecordsetSet cnn = New ADODB.ConnectionDim temp As String改进：让用户自己选择路径cnn.Open "Provider = Microsoft.Jet.OLE

Public Sub Command1_Click2(para As String)首先，从html table中提取出表头（传为参数）(no)在本地新建一个mdb文件，各字段为表头（ok)打开mdb文件，循环写入表体数据（ok)Dim cat As New ADOX.CatalogDim rs As New ADODB.RecordsetDim conn As New ADODB.Conn

---------------------------------------------------------------------------------- （1）导入本地试验2：需要引入的有：Microsoft ADO Ext 2.1. For DDL Security  and Microsoft ActiveX Data Objects 2.5 Library以上Public

(3)把html页面上的数据写入到excel中的实验，试验成功，表明只要传的参数为innerHTML，就可以到处为excel思路：在本地创建.xls文件-----〉把innerHTML写入该文件 Public Sub writefile2()                        Open "d://tangexcel.xls" For Output As #1      Print

实际上，形参的完整的语法格式应该为：[[Optional][ByVal|ByRef]|ParamArray] > [()][As 类型>][=缺省值>]ByVal表示该参数按值传递，简称值参。此时形参与实参各占一个独立的存储空间，形参的存储空间是调用时才分配的。如果选择值参，则实参与过程体内的运算无关，它仍保留原值。因此，为了保护实参不受过程运算的影响，应选用数值参数。ByRef表示该参数按地址传

数组的高级功能尽管数组最通常被用来存储成组的变量，但是在别的一些方面数组也是很有用的。可以将一个数组的内容赋值给另一个数组、创建返回数组的函数，还可以创建返回数组的属性。在许多情况下，这些技术能改进应用程序的性能。数组赋值正如可以将一个变量的值赋给另一个变量，例如 strA = strB ，也可以将一个数组的内容赋给另一个数组。试想，例如，要将一组字节从一个位置复制到另一个位置。可以通过每次复制一

  Excel 是一个非常优秀的报表制作软件，用VBA可以控制其生成优秀的报表，本文通过添加查询语句的方法，即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中,比起往每个CELL里写数据的方法提高许多倍。将下文加入到一个模块中,屏幕中调用如下ExporToExcel("select * from table")则实现将其导出到EXCEL中Public Functio

浏览器:var Main_Tab = null;var selArray="";function ini(){Main_Tab = ExTable;  //指向固定表var selArray="";var array_1 = new Array(); for(var i=0;i{  array_1[i]=new Array();   for(var j=0;j   array_1[i][j]=Ma

最初的测试程序1  Public Sub writefile()                        Open "d://example3.txt" For Output As #1      Print #1, "这是一个示例"    Print #1,                     写入一个空行    Print #1, "同学,"; " "; "你好!"       

activex:Public Function test2() As StringDim tempstr As StringDim a(1) As Stringa(0) = "D$1,D$2,D$3,D$4"test2 = Join(a)End Functionhtml:var str = haha.test2();alert(str);var mm = "";var a = str.match(

 VB写控件，主要是MAKE DLLPublic Sub writefile()                        Open "d://example3.txt" For Output As #1      Print #1, "这是一个示例"    Print #1,                     写入一个空行    Print #1, "同学,"; " "; "你好!"

Public Function test() As IntegerDim cnn As ADODB.ConnectionDim rstC As ADODB.RecordsetSet cnn = New ADODB.ConnectionDim temp As String改进：让用户自己选择路径cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data So

=============================================名称: FindPath作用: 查找指定文件夹下面的所有文件和其子目录下的文件参数：strPath 要查找的目录，      strFiles 用于存查找结果的缓冲区，String 类型的动态数组，调用时事先初始化， 如Redim strFiles(0)      FileCount