易截截图软件、单文件、免安装、纯绿色、仅160KB

vb+ACCESS - VB / 数据库(包含打印,安装,报表)

有个问题,我有个数据库(ACCESS),其中有个表,表里面有两个列名(书名、单价),我怎么用vb来读取表中的单价的所有记录(也就是这一列),并求和,显示在vb的text上面。
  各位高手,关乎生命,我在线等!请急回帖!
sql语句如下:
select 单价 from 表 '---所有记录
select sum(单价) from 表 '---所有记录求和

添加ADODC控件用以上Sql语句去实现,具体代码网上多的象牛毛。



能详细点么?


Adodc1.CommandType = adCmdText
  Adodc1.CursorLocation = adUseClient
  Adodc1.Refresh
  Text1.Text = Adodc1.Recordset.Fields(0)
  高手,以上几句什么意思?


我上网查了查,请问高手们,我想用普通的方法来显示一列的和怎么办?

  Dim cnn As New ADODB.Connection
  Dim appdisk As String
  Dim db As String
  Dim ss As String
  Dim biaoji As Integer
   
  appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")  
  db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & appdisk & "shujuku.mdb"
  cnn.CursorLocation = adUseClient
  cnn.Open db '打开数据库连接
   

   
  cnn.Execute (。。。。)
  cnn.Close

在线等呀,希望高手赐教!

'
'
'
dim rst as new adodb.


相关问答:

vb - VB / 基础类

我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb读取xml - VB / 基础类

现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

access数据库连接 - Web 开发 / ASP

我连接access数据库,以前一直很好,最近却总是出错(数据库连接出错!!),代码如下:
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号