VB 数据库下 一个字段下的所有数字加起来。

发布网友 发布时间：2024-10-24 09:36

我来回答

共2个回答

热心网友 时间：2024-11-11 22:19

dim aaa as string
打开数据库代码省略
do while not rs.eof
aaa=aaa & rs("序号")
rs.movenext
loop

热心网友 时间：2024-11-11 22:21

您好，我来帮你搞定：
1 新建工程；在窗体上加入一个按钮command1，一个文本框TEXT1
2 添加引用；工程-引用-Microsoft ActiveX Data Objects 2.7 Library；
3 将工程保存在d:\MY_project文件夹
4 假设数据库是access数据库，哈哈。
代码如下：
private sub Command1_Click()
on error goto errmsg '遇到错误，转到errmsg
dim MyConStr as string '连数据库字符串
dim sqlstr as string '查询语句
dim a as string '定义变量a v
dim v as string
text1.Clear '先清除框里的内容
dim conn2 as New ADODB.connection ’连接对象
MyConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb" ’语句1
conn2.open MyConStr '建立数据库连接
dim rs as New ADODB.Recordset ’创建数据集对象
sqlstr="select 序号 from t1 " '语句

rs.open sqlstr,conn2,1,1 '读取数据到记录集
’循环取值到ListBox1
Do while Not rs.Eof
a = RTrim(LTrim(rs("xm")))+""
v = v+a

rs.move next
Loop
text1.text=cstr(v) '将记录加载到框内
rs.close
set rs=nothing
set conn2=nothing

errmsg:
if err.number<>0 then
MsgBox CStr(Err.Number) + CStr(Err.Description), vbExclamation, "错误！"
exit sub
end if

end sub

'最后，如果是SQL 2000数据库，“语句1”改为：
MyConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=要连的数据库;Data Source=SQL服务器名"

祝你成功！！！