Question

Text1.Text和Access中的数据相加的问题

EXT1.TEXT的数据在保存后和数据库的最后一条记录字段A相加，在保存为字段B，菜鸟学习中，忘详细解答,,,谢谢！！！ 在线等 谢谢

Answer 1

这里给你提示和参考代码，考虑你在学习期间，希望结合代码自己认真分析，尽早好好全面掌握ADO操作数据哦！ 1）用ADO打开数据库，MoveLast到最后一行，取出最后的A记录（假定数字型“整形”）2）赋值给B，和EXT1.Text，注意必须要强制转换。 【参考代码如下】 Dim cn As ADODB.Connection
’声明ADODB.Connection对象变量
Dim strCN As String
’声明存放连接串的字符串变量
Set cn= New Connection
’实例化Connection对象
’生成连接串（ConnectionString）’调用Connection对象的方法Open连接数据源
strCN="Provider=Microsoft.Jet.Oledb.3.51;
UserID=Admin;"&_
"DataSource=D:\MicrosoftVisual
Studio\VB98\Nwind.mdb;"
cn.Open strCN ’实例化Command对象Dim cmd As ADODB.Command
Set cmd=New Command Dim rs As New ADODB.Recordset
Set cmd.ActiveConnection=cn’绑定激活的Connection对象实例
cmd.CommandText="SELECT*from Customers"’生成SQL脚本
rs.Open"Customers",cn,adOpenDynamic,adLockOptimistic,adCmdTable
rs.MoveLastrs!B=CInt(EXT.Text)+rs!A '求和rs.Update’在物理存储上生效集