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.
相关问答:
我想把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
......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧?
我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......
谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
我连接access数据库,以前一直很好,最近却总是出错(数据库连接出错!!),代码如下:
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......