自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

左兴宇的专栏

校企一卡通专业开发设计

  • 博客(15)
  • 收藏
  • 关注

原创 项目管理流程

1:首先你要对整个项目的业务了解透彻,你才能够设计出一个优良的架构来,而且可以避免很多后期开发的问题。这方面的资料除了你自己的经验,另外看有没有相关的功能规范,测试规范什么的。熟悉业务是很必要的。 2:在了解业务流程后,写出详细的设计文档,功能文档,出数据库架构文档。到这一步,其实已经把你要做的项目细分了,有多少个功能点,每个功能点用到那几个表,功能点之间是怎么个关系都明确了。 3:建库建表,这里

2009-10-19 19:34:00 582

原创 MYSQL存储过程VB调用方法。

Private Sub Command1_Click()        Dim MyComm As New ADODB.Command      定义一个命令对象    Dim Rs_GetList As New ADODB.Recordset 定义一个记录集对象    Dim param As ADODB.Parameter         定义一个参数对象        With MyC

2009-10-19 15:46:00 1666 1

原创 从B表中检索数据,和A表匹配。。根据别人的问题写的。带注释

--建表,测试数据declare  @tables table (iID int,tablename varchar(30))insert into @tables select 1,A unionselect 2,B unionselect 3,C unionselect 4,D unionselect 5,AB unionselect 6,AC unionselec

2009-10-13 17:50:00 1303

原创 普通行列转换(version 2.0)

/*标题:普通行列转换(version 2.0)作者:爱新觉罗.毓华(十八年风雨,守得冰山雪莲花开)时间:2008-03-09地点:广东深圳说明:普通行列转换(version 1.0)仅针对sql server 2000提供静态和动态写法,version 2.0增加sql server 2005的有关写法。问题:假设有张学生成绩表(tb)如下:姓名 课程 分数张三 语文 74张三 数学 83张三

2008-11-25 17:33:00 2774 5

原创 Access数据库压缩修复函数备份一举三得

引用Microsoft jet and Replication Object 2.6 LibraryAccess数据库压缩修复函数备份一举三得:代码归vbman2003所有Sub BackupMdb(sFile As String,dFile as string)    sFile源文件,dFile目标文件    Dim miJRO As jro.JetEngine    Set

2008-11-25 13:11:00 1038

原创 十六进制转化为二进制

===========================================================================代码老张所有 用途:将十六进制转化为二进制 输入:Hex(十六进制数) 输入数据类型:String 输出:HEX_to_BIN(二进制数) 输出数据类型:String 输入的最大数为2147483647个字符Public Function

2008-11-25 09:04:00 1857 3

原创 模拟按键WIN+R(开始-运行)

网络代码,版权归原作者所有  Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const VK_R = 83Const VK_LWIN = 91Private Sub C

2008-11-24 22:11:00 2640

原创 得到字符串中汉字的个数的函数及其说明

函数如下Private Function HZCount(strHZ As String) As Long    Dim b() As Byte    b = StrConv(strHZ, vbFromUnicode)    HZCount = UBound(b) + 1 - Len(strHZ)    End Function   StrConv   函数          

2008-11-20 08:39:00 1898

转载 如何在ADO中用异步的方式打开一个RecordSet

请问如何在ADO中用异步的方式打开一个RecordSet? 因为我有一个SQL语句,用     RecordSet.Open "..." 的方式打开,时间会很长,我想让用户在OPEN 的时候能够取消OPEN 操作,该如何做?我用adExecuteAsync参数为什么不行?请专家们多多指教,谢谢!  回答:     首先,常量应是adAsyncExecute而不是adExecuteAsy

2008-11-19 13:45:00 1492

原创 VB6.0实现DB5加密

1、新建一个窗体,创建一个文本框和命令按钮,加入下面代码:Option ExplicitPrivate Sub Command1_Click()Dim c1 As New Class1MsgBox c1.DigestStrToHexStr(Text1.Text)End Sub2、添加一个类模块,加入下面代码:Option ExplicitPrivat

2008-11-18 15:08:00 5348 28

原创 处理窗体TEXTBOX清空

我们在程序中, 经常要对界面上的TEXT进行初始化操作,有方法是列举出所有的text,然后一个个清空,这样操作太麻烦。下面提供一个简单的方法Private Sub Form_Load()Dim Obj As ObjectFor Each Obj In Me    If TypeName(Obj) = "TextBox" Then           ’ "TextBox" 替换这个名字,可以处

2008-03-17 17:59:00 1158 2

原创 查询2个时间间隔内的记录的新写法

在做报表的时候,经常用到2个时间范围,如2006-01-01到2006-01-02,界面选择范围是这样的,但程序里处理的时候,其实时间是从2006-01-01 00:00:00到2006-01-02 23:59:59今天在论坛上发现这样一个写法,觉得挺有道理的select * from tableName where DateDiff(dd, 2006-01-01, 2006-01-

2007-05-08 11:02:00 1258

原创 SQL里的从1累加到100的函数

Alter function GetAdd(@MaxNum int)returns intas begin declare @Sum int declare @i int set @i=0                     --赋初值 set @Sum=0 while ( @i begin  set @i=@i+1           --计数器累加  set @Sum=@Sum+@

2007-04-26 10:25:00 8347

原创 SQL里实现Split函数

/*---------------------实现split功能 的函数--ZZ 2007/04/01--只返回最后的一串*/alter function F_Split( @SourceSql varchar(8000),--字符串 @StrSeprate varchar(10)--分隔符)returns  varchar(1000)as begin    declare @i int   

2007-04-26 10:21:00 1096 1

原创 用VB代码在SQL SERVER 中创建数据库,表,列.以及对数据库的操作

前面看了一编用VB代码创建ACCESS数据库的文章,写的很好.根据思路,写下创建SQL 数据库的方法,供大家参考.1:引用ADO2.5lib2:在窗体上添加一个按钮COMMAND13:按钮代码如下:Private Sub Command1_Click()Dim cnn As New ADODB.Connection定义新的连接Dim rs As New ADODB.Recordset定义新的记

2005-04-15 18:10:00 8156 1

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除