至高吴上(Alfa.wu)

一个人,一生,能坚持做好一件事情是多么的牛XX啊!!!

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2012年11月12日

摘要: 2012-02-16 21:02【转】如何复制一个正在使用的文件?(VB6.0)刚刚在群里与别人聊到,使用VB的FileCopy函数无法复制正在使用中的文件.他是想将数据库备份.网上有不少的办法,有使用API的,有使用FSO的等.我想,无法复制使用中的文件,可能是使用了读写模式打开源文件的原因吧.于是就试着写了以下函数:Public Function FileCopyEx(ByVal SouFileName As String, ByVal DestFileName As String) '复制文件,可以复制正在使用的文件. 'SouFileName - 源文件 'De 阅读全文
posted @ 2012-11-12 01:22 Alfa 阅读(3581) 评论(0) 推荐(0) 编辑

摘要: PrivateSubForm_Load() DimSAsString,S1AsString S=Environ("temp") OpenS&"\AA.txt"ForOutputAs#1 Print#1,"呵呵" Close#1 OpenS&"\AA.txt"ForInputAs#1 Input#1,S1 Close#1 MsgBoxS1 EndSub 阅读全文
posted @ 2012-11-12 00:50 Alfa 阅读(808) 评论(0) 推荐(0) 编辑

摘要: 编辑本段GUID概念 GUID: 即Globally Unique Identifier(全球唯一标识符) 也称作 UUID(Universally Unique IDentifier) 。 GUID是一个通过特定算法产生的二进制长度为128位的数字标识符,用于指示产品的唯一性。GUID 主要用于在拥有多个节点、多台计算机的网络或系统中,分配必须具有唯一性的标识符。 在 Windows 平台上,GUID 广泛应用于微软的产品中,用于标识如注册表项、类及接口标识、数据库、系统目录等对象。编辑本段GUID格式 GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxx... 阅读全文
posted @ 2012-11-12 00:48 Alfa 阅读(1478) 评论(0) 推荐(0) 编辑

2012年11月11日

摘要: Function GetFileExt(Filename As String) Dim TMP1, TMP2 TMP1 = Split(Filename, ".") If UBound(TMP1) <> 0 Then TMP2 = Split(TMP1(UBound(TMP1)), "\") If UBound(TMP2) = 0 Then GetFileExt = TMP1(UBound(TMP1)) End If End If End Function 阅读全文
posted @ 2012-11-11 12:14 Alfa 阅读(1015) 评论(0) 推荐(0) 编辑

摘要: Dim fileDlg As Object ' 文件对话框 ' 变量初始化 Set fileDlg = CreateObject("MSComDlg.CommonDialog") ' 打开附件 fileDlg.DialogTitle = "选择附件文件" fileDlg.Filter = "Excel (*.xls;*.xlsx)|*.xls;*.xlsx|" & _ "Word (*.doc;*.docx)|*.doc;*.docx|" & _ ... 阅读全文
posted @ 2012-11-11 11:27 Alfa 阅读(9410) 评论(1) 推荐(0) 编辑

2012年11月8日

摘要: 在SQL Server中联机丛书是这样说的:SQL Server timestamp 数据类型与时间和日期无关。SQL Server timestamp 是二进制数字,它表明数据库中数据修改发生的相对顺序。实现 timestamp 数据类型最初是为了支持 SQL Server 恢复算法。每次修改页时,都会使用当前的 @@DBTS 值对其做一次标记,然后 @@DBTS 加1。这样做足以帮助恢复过程确定页修改的相对次序,但是 timestamp 值与时间没有任何关系。我用口水话解释一下便于理解:我们知道数字类型有个“标识”属性,设置好“标识种子”、“标识递增量”,每增加一条记录时,这个字段的值就会 阅读全文
posted @ 2012-11-08 19:03 Alfa 阅读(2421) 评论(2) 推荐(0) 编辑

2012年11月7日

摘要: http://www.cnblogs.com/Miss-Lin/archive/2012/08/13/2635848.html一、数据录入通过VB向SQL Server数据库中录入数据,可以使用数据绑定控件录入数据与使用SQL语句录入1.利用数据绑定控件录入数据使用数据绑定控件录入数据可以运行较少的代码,实现向数据库中录入数据,数据绑定后,由于数据绑定控件已经与数据表相连接,所以只需通过ADO控件的AddNew方法添加一条新的空白记录,再通过Update方法保存当前的记录,即可完成向数据库中录入数据。例:向数据库中添加一条记录?123456789101112131415161718192021 阅读全文
posted @ 2012-11-07 10:42 Alfa 阅读(27799) 评论(0) 推荐(1) 编辑

摘要: VB中调用带参数存储过程的实现(数据库)张永晓 ---- VB做为快速应用开发(RAD)工具越来越得到开发人员的认可和接受。它对许多API(如ODBC API、SOCKET API等等)的封装使得编程变得简单起来。同时,它支持集成开发环境下的可视化、事件驱动、面向对象等编程特点。下面,我们谈谈在VB中调用存储过程的实现方法及其注意事项。 ---- 我们知道,VB的数据库编程有许多种方法,比如直接用ODBC API编程,这种方法灵活、高效,程序员可以实现对数据库复杂的控制;也可以用VB中的数据对象,如RDO(远程数据对象)、DAO(数据访问对象)、ADO(ActiveX 数据对象),这种方法实现 阅读全文
posted @ 2012-11-07 10:35 Alfa 阅读(4489) 评论(0) 推荐(0) 编辑

摘要: VB数据库记录查询四法山东 许振华 在VB中进行数据库记录的查询操作,必需根据打开数据库的方式来确定。以VB3.0为例,数据集对象有Table、Dynaset、Snapshot三种,下面四种查询方法分别适用于以上面不同的对象方式打开的数据库。1.用SEEK方法查询。这种方法只使用于以Opentable方式打开的Table类型的数据表,而且在查询之前必须要以查询字段建立索引文件,由于已建立了索引文件,所以查询速度很快,这种方式的查询结果是将指针移到符合条件的第一个记录。例如:set tb=db.opentable("demo")tb.index="nameindex 阅读全文
posted @ 2012-11-07 10:33 Alfa 阅读(1838) 评论(0) 推荐(0) 编辑

2012年11月6日

摘要: [DataContract] public class PU_ArrivalVouchs : IPU_ArrivalVouchs { /// <summary> /// 采购到货单子表标识 /// </summary> [DataMember(IsRequired = true,Order=0)] public int? Autoid { get; set; } /// <summary> /// 采购到货单主表标识 /// </summary> ... 阅读全文
posted @ 2012-11-06 10:40 Alfa 阅读(626) 评论(0) 推荐(0) 编辑