VB+SQL初学笔记

 

1.设置递增编号

If rs1.RecordCount > 0 Then

       rs1.MoveLast

       Text1(0) = Format(Val(rs1.Fields("部门编号")) + 1, "00")

'表中已经有值时将text初始化为格式00的最大编号加一

    Else

       Text1(0) = "01"

'无值时设置首值为01

    End If

 

2.快速添加元组

rs1.AddNew

    For i = 0 To 4

      rs1.Fields(i) = Text1(i)

    Next i

'将text（1-4）中的值分别插入四列组成一个新记录

 

3.Msgbox属性设置

MsgBox "系统不允许字段名称为空！", , "提示窗口"

 

4.判断数据类型

IsNumeric（txt）=false'不是数值型

IsDate(txt)=false'不是日期

型

 

5.取字符串的部分值

Right(List1.List(0), Len(List1.List(0)) - 3)

'舍去List第一项数据的前三位，返回余下的值，左则是Left，中间Mid

 

6.DataGrid1的属性

DataGrid1.Columns.Count 'Datagrid1的列数

DataGrid1.Columns() 'Datagrid1列数组

 

7.MaskEdBox控件初始化

MaskEdBox.Mask=#-###

MaskEdBox = "_-___"

 

8.强制类型转换

Trim()'转换为String

Val()'转换为Double

 

9.Adodc和Datagrid出现的Adodc.refresh错误

Adodc1.RecordSource = "员工福利表 where 所属月份 between '" + date1 + "'and '" + date2 + "'"'没有Select * from,和查询语句不同

可以先设置Adodc1的属性，Datagrid.DataSource=adodc1，可见DataSource属性也不用select * from。

然后可以通过如上语句设置Adodc1.refresh，实现查询功能。

DataGrid控件右击属性可以设置各类属性，列名可以和Adodc连接。右击编辑可以手动设置各列宽度。

 

10.Combo限定为下拉菜单式

sytle=dropdown

初始化：Combo1=combo1.list(0)'list首项不能为空

 

11.预设窗口光标

Private Sub Form_Activate()

  Combo5.SetFocus

End Sub

 

12.关闭窗口事件

Private Sub Form_unLoad(Cancel As Integer)

End Sub

 

13.PictureBox控件

Set Picphoto.DataSource = Frm_Msm.Adodc1

Picphoto.DataField = "照片"

If .Fields("照片") Is Nothing Then

       Picphoto.Picture = LoadPicture()

End If'初始化为数据库项

picphoto.picture=nothing'初始化为空

 

14.Dim rs, rs1 As New ADODB.Recordset是错误的

 

15.关于定义connection和recordset

Dim cn as new ADODB.Connection

Dim rs as new ADODB.Recordset'定义并分配内存

或者

Dim cn as ADODB.Connection

Dim rs as ADODB.Recordset'定义

Set cn as New ADODB.Connection

Set rs as New ADODB.Recordset'分配内存

 

16.Adodc控件定义记录源后不能直接使用

需要将一个控件的DataSource和Adodc绑定

 

17.赋值

SQL：用户名='成员'

VB：text1="成员"

 

18.Text属性

ScrollBars滚动条类型

Multiline=true显示滚动条

 

19.触发器

CREATE PROCEDURE ptsm @atst char(40)

 AS 

select 编号,姓名,性别,政治面貌,联系电话,QQ,Email,所在寝室,所在班级,考核分数  from 成员信息表 where 所属部门=@atst

GO

 

20.Treeview控件

添加结点：

Dim nod As Node

set nod = TreeView1.Nodes.Add(,,"R","Root")'设置结点Root,Key="R"

nod.Expanded = True'设置结点为展开状态

set nod = TreeView1.Nodes.Add(,,"P","Parent")

nod.Expanded = True

set nod = TreeView1.Nodes.Add("R",tvwchild,"c1","child1")'定义了Root子结点child1

set nod = TreeView1.Nodes.Add("P",tvwchild,"c2","child2")

set nod = Treeview1.Nodes.Add("c1",tvwchild,,"child3")'定义了child 1的子结点child3

 

21.格式

连接两行：

MyGrid.Rows = rs. _

RowCount

插入空格：Spc(n)

插入列：Tab(n)