摘要： 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法，这些方法在开发VB数据库应用程序中很有实用价值，它可以提高数据库程序灵活性。
关键词：数据库、数据表、ADO、ADOX
1: 问题的提出
在Visual Basic中，常用的数据访问接口有下列三种：数据库访问对象(DAO，Data Access Object)、远程数据库对象(RDO，Remote Data Object)和ActiveX数据对象(ADO，ActiveX Data Object )。数据库访问技术一直在不断进步，而这三种接口的每一种都分别代表了该技术的不同发展阶段。最新的是ADO，它是比RDO和DAO更加简单，然而更加灵活的对象模型。正因如此，越来越多的人在用VB开发数据库软件时使用ADO作为数据访问接口。在开发过程中，我们通常的使用的方法是：先使用数据库管理系统(例如：Microsoft Access)或VB中的可视化数据管理器建立好数据库和数据表结构，然后在程序中通过使用ADODC数据库控件或引用ADO对象与数据库中的表建立连接，再通过数据库感知控件(例如：文本框、DataGrid等)来进行数据库的各种操作。在这种开发过程中，我们有时需要面对这样一个问题：如何让用户在程序运行过程中动态地建立自己所需的数据库和数据表以提 ......
正在开发小秘书系统并不断提高其智能水平,其中用到的是脚本支持的技术
虽然这部分不属于初学者使用,然而有些人想学这个东东,这里就发~~~布出去吧!
新建一个标准exe工程(Standard EXE);
"工程"(Project)-->"部件"(Components)
选定"Microsoft Script Control 1.0" ,位置是C:\WINDOWS\system32\msscript.ocx
添加控件到工程,个人爱好我命名mscScript
然后添加一些控件,得到如下图的界面,然后是下面这些函数,过程:
Private Sub Form_Load()
mscScript.AddObject "frmMain", frmMain
mscScript.AddObject "objScript", objScript
End Sub
'---------------------------------------
'vbClass Moudle clsFunction
'---------------------------------------
Public Function strRun(ByVal str As String) As String
Dim strName As String
Dim strExpress() As String
strName = Left(str, InStr(str, " ") - 1)
strExpress = Split(Mid(str, InStr(str, " ") + 1), ",")
strRun = CStr(frmMain.mscScript.Run(strName, strExpress(0), strExpress(1)))
End Function
需要注意是类模块要生成对象:Public ......
——————————————————————————————————
在c#中如何使用以前c++的.lib库和.h头文件
zhujiang_1977（朱江）
我曾经遇到过类似的问题，我的解决方法是，用VC将“以前c++的.lib库和.h头文件”编译成COM，再在C#中使用，结果是功能上大体都可以实现，但是速度上稍微有些慢。
fa2002（风翔万里）
我写过2个VC的接口连接程序，没COM什么事，我建议你到MSDN中寻找"封送处理" 看看MS的建议方法再说。
zeaing（）
你的问题是个很大的问题，牵涉到代码的重用、COM DLL的重用、Win32 API DLL的重用，等等。只能给你一些建议：
1）代码级重用是做不到的。C++的代码不能直接用在C#中。
2）你提到了很多现有的类库，例如OpenGL、DirectX等等。这些类库，都是以DLL形式出现的，要么是Win32 API DLL，要么是COM DLL。无论是哪一种，都可以在C#里面通过Interoperation重用。 ......
——————————————————————————————————
在c#中如何使用以前c++的.lib库和.h头文件
zhujiang_1977（朱江）
我曾经遇到过类似的问题，我的解决方法是，用VC将“以前c++的.lib库和.h头文件”编译成COM，再在C#中使用，结果是功能上大体都可以实现，但是速度上稍微有些慢。
fa2002（风翔万里）
我写过2个VC的接口连接程序，没COM什么事，我建议你到MSDN中寻找"封送处理" 看看MS的建议方法再说。
zeaing（）
你的问题是个很大的问题，牵涉到代码的重用、COM DLL的重用、Win32 API DLL的重用，等等。只能给你一些建议：
1）代码级重用是做不到的。C++的代码不能直接用在C#中。
2）你提到了很多现有的类库，例如OpenGL、DirectX等等。这些类库，都是以DLL形式出现的，要么是Win32 API DLL，要么是COM DLL。无论是哪一种，都可以在C#里面通过Interoperation重用。 ......
3,Return without GoSub
5,Invalid procedure call
6,Overflow
7,Out of memory
9,Subscript out of range
10,This array is fixed or temporarily locked
11,Division by zero
13,Type mismatch
14,Out of string space
16,Expression too complex
17,Cant perform requested operation
18,User interrupt occurred
20,Resume without error
28,Out of stack space
35,Sub Function or Property not defined
47,Too many DLL application clients
48,Error in loading DLL
49,Bad DLL calling convention
51,Internal error
52,Bad file name or number
53,File not found
54,Bad file mode
55,File already open
57,Device I/O error
58,File already exists
59,Bad record length
61,Disk full
62,Input past end of file
63,Bad record number
67,Too many files
68,Device unavailable
70,Permission denied
71,Disk not ready
74,Cant rename with different drive
75,Path/File access error
76,Path not found
91,Object variable or With block variable not set
92,For loop not initia ......
转自：http://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html
WinForm使用WebService自动升级
2009-08-08 10:49
winform程序相对web程序而言，功能更强大，编程更方便，但软件更新却相当麻烦，要到客户端一台一台地升级，面对这个实际问题，在最近的一个小项目中，本人设计了一个通过软件实现自动升级技术方案，弥补了这一缺陷，有较好的参考价值。
一、升级的好处。
长期以来，广大程序员为到底是使用Client/Server，还是使用Browser/Server结构争论不休，在这些争论当中,C/S结构的程序的可维护性差，布置困难，升级不方便，维护成本高就是一个相当重要的因素，也是那些B/S的支持者们将Client/Server结构打入地狱的一个重要原因。
现在好了，我们就在最新的基于Microsoft 的 WinForm上用WebServices来实现软件的自动升级功能。
二、升级的技术原理。
升级的原理有好几个，首先无非是将现有版本与最新版本作比较，发现最新的则提示用户是否升级。当然也有人用其它属性比较的，例如：文件大小。:) 或者更新日期。
而实现的方法呢？在VB时代，我使用的是XmlHTTP+INet控件。用XmlHTTP获取信息，用INET传输升级文件，而用一个简单 ......
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum DownloadResults
eSUCCESS = 0 '下载成功
eCONNECTERROR = 1 '连接错误
eTRANSFERERROR = 2 '数据传输错误
eWRITEERROR = 3 '保存本地错误
eUserStop = 4 '中止
End Enum
'下载进度事件 Identifier-下载标识,RecvdBytes-已下载字节数,MaxBytes-总字节数,PassTimer-已用下载时间(秒)
Public Event DownloadProgress(Identifier As String, RecvdBytes As Long, MaxBytes As Long, PassTimer As Long)
'下载完成事件 Identifier-下载标识,ccDownloadResults-下载结果,PassTimer-已用下载时间(秒)
Public Event DownloadComplete(Identifier As String, Result As DownloadResults, PassTimer As Long)
Dim FstrURL As String 'FTP 下载字符串,含IP,端口号,用户名,密码,下载� ......
最新文章 : vb