VB &&&&最新内容
VB &&&&相关内容如何将数据库中的数据赋给一个一维数组？_百度知道
如何将数据库中的数据赋给一个一维数组？
例如一条记录的某个字段是一连串的数字（如：），如何将这些数据放到一个数组当中（如：array[]={1,2,3,4,5,6,7,8,9}）
是用VB.NET做的
我有更好的答案
你字段的长度，由这个长度数来决定此数组的元素数量然后一个一个地读取那个数第个字符，并赋予给数组这是有一个VB写的dim num as long dim array() as integernum = len(你的那个字段）if num &0 then
redim array(num-1)
for i = 0 to num -1
array(i)= mid(你的那个字段,i+1,1)
采纳率：48%
你用的是什么语言？如果是C#可以查数据库，并用while循环给数组赋值
为您推荐：
其他类似问题
数据库的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。欢迎加入我们，一同切磋技术 &
用户名： &&&
密　码： &
共有 3588 人关注过本帖
标题：[求助：]如何在VB中计算ACCESS数据某字段的值
等　级：新手上路
帖　子：17
结帖率：100%
&&已结贴√
&&问题点数：20&&回复次数：19&&&
[求助：]如何在VB中计算ACCESS数据某字段的值
请教各位高手，假设在数据库里有一表A，字段1，字段1有1,2,3......，我想实现2-1，3-2,4-3....依次类推，并把计算结果写入到表A里的另一个字段2中，该如何写？
搜索更多相关主题的帖子:
等　级：贵宾
威　望：18
帖　子：364
专家分：1724
简单.不知道你采用什么来连接access.控件还是adodc对象?
等　级：贵宾
威　望：13
帖　子：211
专家分：1130
没看明白需求，能否详细点？
等　级：新手上路
帖　子：17
adodc对象连接的，
我的意思就是说，计算表A中字段X一列数据，让这列数据的下一个减去上一个数据，计算结果赋给字段Y，字段X有数据：
id 字段X 字段Y
1&&& 1&&&&&（2-1的值）
2&&& 2&&&&&（3-2的值）
3&&& 3&&&&&(4-3的值)
...............
要计算2-1的值写入字段Y
等　级：贵宾
威　望：13
帖　子：211
专家分：1130
最后一个数值怎么处理？
等　级：新手上路
帖　子：17
最后一个数值不变，直接放到字段2中的最后一个
等　级：贵宾
威　望：13
帖　子：211
专家分：1130
方法1：循环计算
Rs.Open &Select * from A order by [ID]&,Conn,1,1
If Not Rs.EOF then
&&& Rs.MoveFirst
&&& ID = Rs.Fields(&ID&)
&&& ID_Val = Rs.Fields(&字段1&)
&&& Rs.MoveNext
&&& Do while not Rs.EOF
&&&&&&&&Conn.Excute（&Update A Set [字段2] = & & Rs.Fields(&字段1&)-ID_Val & & where [ID] = '& & ID & &'&）
&&&&&&&&ID = Rs.Fields(&ID&)
&&&&&&&&ID_Val = Rs.Fields(&字段1&)
&&&&&&&&Rs.MoveNext
&&& Conn.Excute（&Update A Set [字段2] = [字段2] where [ID] = '& & ID & &'&）
方法2,：建立临时表C
Select * into C from (Select [ID],[字段1],IIF(IsNull[字段2],[字段1],[字段2]-[字段1]) as [字段2] from (Select A.[ID],A.[字段1],B.[字段1] as [字段2] from A left join A B on B.[ID]=A.[ID]+1))
删除表A， 重命名C为A
等　级：新手上路
帖　子：17
按照方法输，提示“对象不支持该属性和方法或方法”
等　级：贵宾
威　望：13
帖　子：211
专家分：1130
&&得分:20&
出错行是？
要先引用ADO 并定义 Dim Conn As New ADODB.Connection, Rs As New ADODB.Recordset
Private sub Command1_Click
RsMain.CursorLocation = adUseClient
Rs.Open &Select * from A order by [ID]&,Conn,1,1
If Not Rs.EOF then
&&& Rs.MoveFirst
&&& ID = Rs.Fields(&ID&)
&&& ID_Val = Rs.Fields(&字段1&)
&&& Rs.MoveNext
&&& Do while not Rs.EOF
&&&&&&&&Conn.Excute（&Update A Set [字段2] = & & Rs.Fields(&字段1&)-ID_Val & & where [ID] = '& & ID & &'&）
&&&&&&&&ID = Rs.Fields(&ID&)
&&&&&&&&ID_Val = Rs.Fields(&字段1&)
&&&&&&&&Rs.MoveNext
&&& Conn.Excute（&Update A Set [字段2] = [字段2] where [ID] = '& & ID & &'&）
收到的鲜花
附言：谢谢对我的问题的解答！
附言：非常感谢！
等　级：新手上路
帖　子：17
出错行是： Conn.Excute（&Update A Set [字段2] = & & Rs.Fields(&字段1&)-ID_Val & & where [ID] = '& & ID & &'&）
RsMain.CursorLocation = adUseClient‘这行是什么意思？
版权所有，并保留所有权利。
Powered by , Processed in 0.036464 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights ReservedVB 怎样读取access表中的某字段的值,然后显示Text中?_百度知道
VB 怎样读取access表中的某字段的值,然后显示Text中?
我有更好的答案
‘先在工程引用'Mircosoft ActiveX Data Objects’然后写代码（前提是已经装好access）
Dim rstemp As ADODB.Recordset
Dim strCNN As String, strSQL as String
Dim record1, record2
Set rstemp = New ADODB.Recordset
strCNN = &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\kkk.mdb&;Persist Security Info=T&
strSQL = & select * from myTable &
'查询位于d:\kkk.mdb的access中的myTable表的所有记录
rstemp.Open strSQL, strCNN
'----------------------------------
'在这里插入你的代码，查询的结果已经读入到rstemp中了
‘假设kkk.mdb里的mytable表中有ID，Name这两个字段
not rsbook.EOF then
'如果记录指针不在结束标记的位置，即如果表里面有记录，记录不为零的话
record1 = rstemp.Fields(0)
'字段ID的第一条记录的值
record2 = rstemp.Fields(1)
‘字段Name的第一条记录的值
rstemp.MoveNext
‘移到下一条记录
record1 = rstemp.Fields(0)
'字段ID的第二条记录的值
record2 = rstemp.Fields(1)
‘字段Name的第二条记录的值
’申此类推，可用循环来读取所有记录，只要判断rsbook.EOF标记是否为true就能知道是否已经到了结尾处
'----------------------------------
Set rstemp = NothingEnd Function
采纳率：33%
例子：.....text1.text=RS.Fields(&编号&)其它类同。
通过ADO技术可以实现写好Connection对象以及Recordset对象，将Text的Caption属性赋值给Recordset对象记录到的字段值即可
为您推荐：
其他类似问题
access的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB6.0 使用Adodc控件读取Access数据库. 怎么修改数据库指定某一列的所有见容?_百度知道
VB6.0 使用Adodc控件读取Access数据库. 怎么修改数据库指定某一列的所有见容?
比如我现在有一个名为&基本情况&的数据库.数据库中包含: 姓名,年龄,性别. 三列数据.
我在窗体上设置一个按钮,只要点一下按钮就可以把性别一整列的数据都改成男. 怎么编写代码?
我有更好的答案
Dim gadoConnLocal As New ADODB.ConnectionDim gadoCmdLocal As New ADODB.CommandDim adoRstLocal As New Recordset&&&&&&&& gadoConnLocal.ConnectionString =&&Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.Persist Security Info=False& '假设数据库名为db1,存放在C盘下&&&&&&& gadoConnLocal.CursorLocation = adUseClient&&&&&&& gadoConnLocal.Mode = adModeReadWrite&&&&&&& gadoConnLocal.Open&&&&&&& gadoCmdLocal.ActiveConnection = gadoConnLocal&&&&&&& gadoCmdLocal.CommandType = adCmdText&&&&&&&& gadoCmdLocal.CommandText = &update [基本情况] set 性别= '男'&&&&&&&& gadoCmdLocal.Execute&上面这段代码放到按钮里，如果不行的话需要在工程中引用 如下图的控件库。
采纳率：48%
来自团队：
Adodc控件是这个兄弟，使用很简单，举个按钮单击的例子：Private&Sub&Command1_Click()&&&Adodc1.ConnectionString=&Provider=Microsoft.Jet.OLEDB.4.0;Data&Source=ACCESS路径名&&&&&&'//连接字符串,ACCESS2007以上版本不一样&&&Adodc1.RecordSource=&Select&*&from&表名称&&&&'//查询表数据&&&Adodc1.Refreash&&&&&&'//必须要刷新控件激活&&&'//如果要操作查询，加下面的语句，比如象你说的整列更新&&&If&Not&Adodc1.Recordset.EOF&Then&&&&//确保有数据可以更新&&&&&&Adodc1.Recordset.Fields(&列名称&)=你要更新的值&&&'//赋值&&&&&&Adodc1.Update&&&//更新数据集合&&&Else&&&&&&MsgBox&&无数据可以更新！&,&系统消息&,vbOkOnly&&&End&IfEnd&Sub&&&'//ADO控件一共就需要你设置两个属性，再刷新一下就好了，也可以不用代码，直接设置好属性，代码里直接写刷新他的语句就齐活还有一种方法那不是ADO控件，是ADO类，需要引用ActiveX Data Object
首先感谢您的帮助。
我用您给的语句试了一下，我给数据库中先输入了三行的数据，但您给的语句只能更新数据库中第一行指定列的内容。 不是更新所有行中这一列的数据。 您再帮我看看。 我使用的是Adodc 和 DataGrid 这两个控件。 不能更新整列和DataGrid这个控件有关系吗?
为您推荐：
其他类似问题
access数据库的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}