vb链接access数据库列计算,vb操作access数据库
VB6.0连接Access后,如何利用VB计算Access数据库中数据的平均值等
VB连接数据库后执行SQL:
update 商家信息 a set a.score= (select Avg(b.score) from 评论表 b where b.mernam=a.mernam group by b.mernam)
不加条件就是更新全部列,看你需要
VB中计算access表中某列不同内容出现的次数
如图,A列内容出现的次数在B列显示。在B1输入“=COUNTIF(Sheet1!A:A,A1)”,然后公式用填充柄下拉即可。
下面是VB的方法:
加入用data(取名为data1)控件连接数据库的话,用DBGrid控件显示数据,筛选性别为男的数据,统计个数,在DBGrid控件中显示出来。先将DBGrid控件的datasource属性设置为data1,
data1.recordsource="Select * From 表一 where 性别='男'"
这一条语句就会使DBGrid显示筛选结果,如要统计数量,则:
Form3.msf1=data1.recordset.recordcount
vb中怎么用access数据库进行数据运算?
VB与access的连接方法一
在菜单上找到 外接程序>可视化数据管理器,
在弹出的窗口中:文件>打开数据库>选择 MCROSOFT ACCESS
然后找到你要用的数据库。
菜单上找到 实用程序>数据窗口设计器
为要生成的新窗口起一个名,选中想在那个窗体中显示的表和字段(一般全选上)。
然后点生成窗口。
方法二
在窗体上,放上一个DATA控件,在DATA控件的属性中选择你想连接的数据库和数据表。
这样就用DATA控件代表了那个数据表。只是还没有显示表内的字段数据。
可以放上其他显示数据的控件来与DATA1连接并显示相应的数据表的记录或字段。
vb连接access数据库后如何对其中的数据进行某种计算,然后把结果显示在文本框里?谢谢
如图所示:
程序中主要涉及到一下几点:
1、数据控件 aAdodc 连接数据库
在Form_Load 中使用如下的程序连接Access 数据库 ...\db7.mdb
Dim connStr As String
???
??? connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db7.mdb;Persist Security Info=False"
???????
??? With Adodc1
??????? .ConnectionString = connStr
??????? .CommandType = adCmdText
??????? .CursorType = adOpenDynamic
??????? .RecordSource = "SELECT * FROM T107"
??????? .Refresh
??? End With
2、数据控件 DataGrid 的设置,要研究其属性设置
3、利用ADO 访问Access数据库
如按扭"计算实际年龄"的程序部分
Private Sub Command1_Click()
??? Dim connStr As String
??? Dim mySQL As String
??? Dim adoConn As New ADODB.Connection
??? Dim adoRs As New ADODB.Recordset
???
??? If Trim(Text1) = "" Then
?????? MsgBox "请输入有效的编号!", 48, "重要提示"
?????? Exit Sub
??? End If
???
??? mySQL = "SELECT DATEDIFF('yyyy',sBirth,Date()) As Years FROM T107 WHERE sCode='" + Trim(Text1) + "'"
??? connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db7.mdb;Persist Security Info=False"
??? adoConn.Open connStr
??? adoRs.Open mySQL, adoConn, adOpenDynamic, adLockReadOnly
??? If adoRs.BOF And adoRs.EOF Then
?????? MsgBox "输入的编号查无此人!", 48, "重要提示"
?????? adoRs.Close
?????? adoConn.Close
?????? Exit Sub
??? Else
?????? Text2 = "您已经:" + Str(adoRs(0)) + "岁"
??? End If
???
End Sub
更新详细的内容可以下载附件中的程序,其中包含了数据库db7.mdb 及Form7
请问高手,vb与access数据库,调用表中的数据进行计算!!!
Set
Rs=Conn.Execute('select
字段名
from
表名
where
条件')
if
rs.recordcount0
then
dim
data_value
as
double
rs.movefirst
data_value
=
val(rs.field("data"))
'下面自己对data_value进行计算即可
end
if
纯手写,望采纳