自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

学习·交流

经验始于积累,进步源于总结

  • 博客(21)
  • 资源 (1)
  • 收藏
  • 关注

原创 msgbox是 Visual Basic 和 VBS 中的函数,可实现弹出窗口.

msgbox  Visual Basic 和 VBS 中的函数,可实现弹出窗口.  作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。  语法:  MsgBox(prompt[, buttons] [, title] [, helpfile, context])  参数说明:  MsgBox 函数的语法具有以下几个命名参数:  Prompt

2010-01-02 13:52:00 8551 1

原创 打开记录集语法

语法格式: recordset.Open Source, ActiveConnection, CursorType, LockType, Options 参数说明: 1、Source 可选。Variant,计算有效的 Command 对象、SQL 语句、表名、存储过程调用、URL 或包含持久存储的 Recordset 的文件或 Stream 对象的名称。 2、ActiveConnection 可选

2010-01-02 12:24:00 1138

原创 用vb怎么样能获取一个access 表里面的记录总数,并赋值给一个变量

用vb怎么样能获取一个access 表里面的记录总数,并赋值给一个变量  先用记录集打开此表然后用记录集的recordcount属性获取记录条数Recordcount只对客户端游标(adUseClient)有效 dim s as longset rs=new adodb.recordsetrs.cursorLocation=adUseClientrs.open "selec

2010-01-02 12:15:00 5932

原创 VB数据库编程怎样将一个表里面的一个字段的记录赋值给一个字符串

VB数据库编程怎样将一个表里面的一个字段的记录赋值给一个数据库用ACCESS做的,请高手指点在VB中怎样将一个表里面的一个字段的记录赋值给一个变量呢??例如:一个叫"姓名"的字段里有一个记录"张三",怎样将"张三"赋值给一个字符串变量呢?    Dim str as StringDim rst as ADODB.RecordSetset rst=new ADODB.Record

2010-01-02 12:06:00 4896

原创 TREEVIEW递归调用逻辑2

突然回忆起一个道理: 应该先写最里面的循环, 再逐步写外面的循环。

2010-01-02 01:46:00 504

原创 树形结构在开发中的应用

http://www.microsoft.com/china/community/Column/21.mspx树形结构在开发中的应用http://www.waywellstudio.cn/article.asp?id=51[VB6]递归-把节点添加到TREEVIEW上

2010-01-02 01:39:00 571

原创 TREEVIEW递归调用逻辑

(一)创建根节点,即唯一的一级子节点。 (二)添加并展开第一个2级子节点。1、选择KEY值满足条件的记录集2、把记录集添加到2级节点 (三)根据第一个2级子节点的KEY添加并展开其所属的所有3级子节点。1、确定2级子节点的KEY2、在定位的2级子节点下添加3级节点 (四)递归

2010-01-01 21:29:00 528

原创 用RS.OPEN加一条记录

我要加一条记录,程序如下:     Private   Sub   Command1_Click()     Dim   AdoCN   As   New   ADODB.Connection   建立连接     Dim   rs   As   New   ADODB.Recordset   记录集     connstr   =   "Provider=Microsoft.Jet.OLED

2010-01-01 14:35:00 580

原创 rs.open 与conn.execute的资源消耗

rs.open表示已经建立一个实例对象,用实例对象打开SQL,CONN,并且指定游标,如:rs.open sql,conn,1,1conn.execute表示直接用数据库打开SQL,执行数据库命令操作~用实例对象有它的好处,但是一定要记得销毁,不然耗费服务器资源,关闭方法rs.closeset rs=nothing  

2010-01-01 14:28:00 525

原创 asp中的rs.open于conn.execute的区别

asp中的rs.open于conn.execute的区别    rs.open sql,conn:如果sql是delete,update,insert则会返回一个关闭的记录集,在使用过程中不要来个rs.close在文件最后再写rs.close    中间可以来多个记录集rs1.open sql1,conn,最后一块关闭记录集:rs.close rs1.close    conn.execute(s

2010-01-01 14:25:00 646

原创 rs.open sql,conn 与conn.execute(sql)的区别

rs.open sql,conn 与conn.execute(sql)的区别 收藏 引用“srnld(天涯)”的话:  什么时候用什么?     那就凭个人经验积累的感觉了:       如果只需要一笔带过的碰碰数据库,用execute     如果要对数据库作比较庞杂的操作!则最好用   rs.open  -----------------------------------------

2010-01-01 14:23:00 2778

原创 rs.open sql,conn 与conn.execute(sql)的区别

rs.open sql,conn 与conn.execute(sql)的区别              rs.open sql,conn 与conn.execute(sql)的区别            rs.open             sql,conn:如果sql是delete,update,insert则会返回一个关闭的记录集,在使用过程中不要来个rs.close在文件最后再写r

2010-01-01 14:15:00 3289

原创 Conn.Execute(SqlStr)(n)的作用

Conn.Execute(SqlStr)(n)的作用 Conn.Execute(SqlStr)(n)的作用Dim TempStrTempStr = Conn.Execute(SqlStr)(n)说明:是取得记录集第n列的记录( 0Set Rs = Conn.Execute(SqlStr) TempStr = Rs(n)如下面的SQL语句,News表共有3个字段:ID、Title和Content

2010-01-01 14:07:00 5032

原创 TREE递归调用逻辑

(一)创建根节点,即唯一的一级子节点。 (二)添加并展开2级子节点。1、选择KEY值满足条件的记录集2、把记录集添加到2级节点 (三)添加并展开3级子节点。1、确定2级子节点2、在定位的2级子节点下添加3级节点

2010-01-01 13:09:00 589

原创 VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭

===================VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭在窗体上方一个Treeview,四个command     Option   Explicit         Private   Sub   Command1_Click()     Static   i   As   Integer             TreeVie

2010-01-01 12:48:00 9340 2

原创 treeview 显示ACCESS数据库中的字段

Option ExplicitPrivate Sub Form_Load()工程->引用->选中Microsoft ActiveX Data Objects 2.8 LibraryDim ShuJuKuLianJie As New ADODB.ConnectionDim JiLuJi As New ADODB.Recordset连接数据库的代码段ShuJuKuLianJie.Ope

2010-01-01 02:34:00 3002

原创 treeview展开所有子节点和孙节点

有两种方法:1、 nodX.EnsureVisible 2、tvTreeView.Nodes(1).Expanded = True   

2010-01-01 01:59:00 1463

原创 treeview创建根节点和子节点孙节点

Private Sub Command1_Click()Dim nodX As NodeDim i As IntegerDim j As IntegerTreeView1.LineStyle = tvwRootLinesFor i = 1990 To 2009Set nodX = TreeView1.Nodes.Add(, , , i & "年")NextFor i = 1 To 12Set no

2010-01-01 01:29:00 1820

原创 treeview创建四个根节点

  Dim jiediandongtai     As Node         声明对象变量。  Dim I     As Integer         声明计数器变量。  For I = 1 To 4        Set jiediandongtai = tvTreeView.Nodes.Add(, , , "Node   " & CStr(I))  Next I

2010-01-01 01:03:00 812

原创 treeview创建根节点

                 Dim jiediandongtai As Node                                  Set jiediandongtai = tvTreeView.Nodes.Add(, , , "任务")

2010-01-01 00:59:00 1618

原创 treeview 的add方法

  Add   方法(Nodes   集合)                         在   Treeview   控件的   Nodes   集合中添加一个   Node   对象。         语法         object.Add(relative,   relationship,   key,   text,   image,   selectedimage)      

2010-01-01 00:40:00 3080

酷派tbl联系人转换器,批量导出联系人为CSV格式

酷派tbl联系人转换器,批量导出联系人为CSV格式

2010-11-15

空空如也

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

TA关注的人

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