VB编程环境,SQL2000数据库, 如何分别对SQL2000里面字段的值进行求和运算

~ adopenstatic
向前游标
adopenkeyset
键集游标
adlockoptimistic设置窗口为固定的大小
附带一个小资料：
-----------------------------------
常数
常数值
说明
-----------------------------------
adopenforwardonly
0
缺省值，启动一个只能向前移动的游标（forward
only）。
adopenkeyset
1
启动一个keyset类型的游标。
adopendynamic
2
启动一个dynamic类型的游标。
adopenstatic
3
启动一个static类型的游标。
-----------------------------------
以上几个游标类型将直接影响到recordset对象所有的属性和方法，以下列表说明他们之间的区别。
---------------------------------------------
recordset属性
adopenforwardonly
adopenkeyset
adopendynamic
adopenstatic
其中nextrecordset方法并不适用于microsoft
access数据库。
locktype
recordset对象open方法的locktype参数表示要采用的lock类型，如果忽略这个参数，那么系统会以recordset对象的locktype属性为预设值。locktype参数包含adlockreadonly、adlockprssimistic、adlockoptimistic及adlockbatchoptimistic等，分述如下：
-----------------------------------
常数
常数值
说明
-----------------------------------
adlockreadonly
1
缺省值，recordset对象以只读方式启动，无法运行addnew、update及delete等方法
adlockprssimistic
2
当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
adlockoptimistic
3
当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。
adlockbatchoptimistic
4
当数据源正在更新时，其他用户必须将cursorlocation属性改为adudeclientbatch才能对数据进行增、删、改的操作。
=====定义数据库连接的一些常量
<%
const
adopenforwardonly
=
0
'游标只向前浏览记录，不支持分页、recordset、bookmark
const
adopenkeyset
=
1
'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、recordset、bookmark
const
adopendynamic
=
2
'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(access不支持)。
const
adopenstatic
=
3
'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
const
adlockreadonly
=
1
'锁定类型，默认的，只读，不能作任何修改
const
adlockpessimistic
=
2
'当编辑时立即锁定记录，最安全的方式
const
adlockoptimistic
=
3
'只有在调用update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
const
adlockbatchoptimistic
=
4
'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
const
adcmdtext
=
&h0001
const
adcmdtable
=
&h0002
%>

---

赞皇县19844574275： VB连接Sql Server 2000 - ？
寿菲甘草： 这是最简单直接的方法: Private Sub Command1_Click() Adodc1.ConnectionString = ＂UID=ss;PWD=ss;Driver={SQL Server};Server=SQL服务器名称;Database=BookStoreManagement;dsn= ,,Connection=adConnectAsync＂ Adodc1....

赞皇县19844574275： 求创建SQL(2000)数据库的VB代码 - ？
寿菲甘草： 创建SQL Server 2000数据库 Dim ADOcn As New ADODB.Connection Dim Sqls As String'连接到master数据库,创建新数据库 ADOcn.ConnectionString = ＂driver={SQL Server};server=;uid=sa;pwd=;database=master＂ ADOcn.Open'DISK INIT...

赞皇县19844574275： vb6.0连接sql2000数据库的具体步骤 - ？
寿菲甘草： VB6.0使用ADO对象连接数据库:有偿征集原创文章,为您创收 投递文章 减小字体 增大字体 1. 定义连接对象Global DBconnect As New ADODB.Connection2. 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) ...

赞皇县19844574275： VB怎样连SQL2000？
寿菲甘草： 首先,启动sql服务然后,vb中添加援用MicrosoftActiveXDataObjects2.xLibrary下面基本代码:DimadoRstAsADODB.RecordsetDimcnnAsADODB.Connectioncnn.ConnectionString=Provider=SQLOLEDB.1;UserID=用户名assword=登录密码;...

赞皇县19844574275： VB连接SQL Server2000数据库,实现查询功能 - ？
寿菲甘草： 这个不是很简单吗,你那个登录后才显示的窗体不要设为启动窗体,只有在用户名和密码均正确时才调用这个方法＂窗体名.show＂,至於那个窗体中文本框显示用户名,那就有很多种方式了,其一是建一公共模块,里面设一全局变量,将这个全局变量赋值给那个文体框即可

赞皇县19844574275： VB连接Sqlnbsp;Servernbsp;2000？
寿菲甘草： 这是最简单直接的方法:Privatenbsp;Subnbsp;Command1_Click()Adodc1.ConnectionStringnbsp;=nbsp;“UID=ss;PWD=ss;Driver={SQLnbsp;Server};Server=SQL服务器名称;Database=BookStoreManagement;dsn=nbsp;,,Connection=...

赞皇县19844574275： 如何在vb中创建sql2000数据库和表,存在和不存在提示 - ？
寿菲甘草： 都有SQL语句的呀.1.库 if exists(select 1 from master..dbo.sysdatabases where name='example') print 'DataBase existed' else print 'Database not existed'2.表 IF Exists(Select 1 From sysObjects Where Name ='表名' And Type In ('S','U')) Print 'Exists Table' Else Print 'Not Exists Table'

赞皇县19844574275： VB调用SQL2000？
寿菲甘草： 以如下的SP为例,@outparm参数最后跟了个OUTPUT,就表示该参数经存储过程后,可返回变化的值. CREATE PROCEDURE myProc @outparm int OUTPUT @inparm int AS SELECT * FROM titles WHERE royalty > @inparm SELECT @outparm = COUNT (*) FROM TITLES WHERE royalty > @inparm IF (@outparm > 0) RETURN 0 ELSE RETURN 99 GO

赞皇县19844574275： VB查询SQL2000数据库其中一个表的内容并显示出来的完整操作代码? - ？
寿菲甘草： 我来给你个例子:1 新建工程;在窗体上加入一个按钮command1,一个标签label1,2 添加引用;工程-引用-Microsoft ActiveX Data Objects 2.7 Library;3 将工程保存在d:\MY_project文件夹中,并在里面建一个DataView.txt文件;代码如下:private ...

赞皇县19844574275： VB与SQL2000的连接？
寿菲甘草： Adodc1.RecordSource=数据库名称 Adodc1.RecordSet=记录集或表名 注意SQL语句中的空格. Adodc1.RecordSource = ＂select * form 实验 where 日期 between ＂ + Chr(35) + Str(DTPicker1.Value) + Chr(35) + ＂ and ＂ + Chr(35) + Str(DTPicker2.Value) + Chr(35