您的位置:程序门 -> vb -> vba



vb access 数据库编程


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


vb access 数据库编程
发表于:2007-11-04 14:06:06 楼主
我是一个vb新手,现在想做一个vb连接数据库的程序,用dao方法。  
比如我现在有一个fst.mdb数据库文件,里面有一个名为“biao”的表,  
在这个表你有“first”“second”“third”三个字段。  
现在我想知道的是怎么给这些字段添加值,读取值。读取到一个变量里面就行。
发表于:2007-11-04 14:21:101楼 得分:0
用记录集吧
发表于:2008-01-15 12:08:542楼 得分:0
dim   sql   as   string  
dim   rs   as   recordset
sql="select   *   from   table1"
set   rs=currentdb.openrecordset(sql)
rs.addnew
rs("first")=1
rs("second")=2
rs("third")=3
rs.update
rs.close
用这个代码你就能天加值了。
dim   var1,var2,var3   as   string
sql="select   *   from   table1   where   条件"
set   rs=currentdb.openrecordset(sql)
if   not   rs.eof   then
var1=rs("first")
var2=rs("second")
var3=rs("third")
end   if
rs.close
读取表中的字段值,

给分!!!!!!!!!!!


发表于:2008-01-15 15:26:233楼 得分:0
楼上正解
发表于:2008-01-19 11:24:014楼 得分:0
这样的问题,百度一下。成千上万的答案就出来了。还可以找:asp   +   mdb  

1.asp连接access数据库
<%
dim   conn,mdbfile  
mdbfile=server.mappath("数据库名称.mdb")  
set   conn=server.createobject("adodb.connection")  
conn.open   "driver={microsoft   access   driver   (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile  
%>  

2.   asp与sql数据库连接:

<%  
dim   conn  
set   conn=server.createobject("adodb.connection")  
con.open   "provider=sqloledb;data   source=sql服务器名称或ip地址;uid=sa;pwd=数据库密码;database=数据库名称  
%>
建立记录集对象:
set   rs=server.createobject("adodb.recordset")  
rs.open   sql语句,conn,3,2

3.   sql常用命令使用方法:

(1)   数据记录筛选:

sql="select   *   from   数据表   where   字段名=字段值   order   by   字段名   "  
sql="select   *   from   数据表   where   字段名   like   ‘%字段值%‘   order   by   字段名   "  
sql="select   top   10   *   from   数据表   where   字段名   order   by   字段名   "  
sql="select   *   from   数据表   where   字段名   in   (‘值1‘,‘值2‘,‘值3‘)"  
sql="select   *   from   数据表   where   字段名   between   值1   and   值2"

(2)   更新数据记录:

sql="update   数据表   set   字段名=字段值   where   条件表达式"  
sql="update   数据表   set   字段1=值1,字段2=值2   ……   字段n=值n   where   条件表达式"

(3)   删除数据记录:

sql="delete   from   数据表   where   条件表达式"  
sql="delete   from   数据表"   (将数据表所有记录删除)

(4)   添加数据记录:

sql="insert   into   数据表   (字段1,字段2,字段3   …)   valuess   (值1,值2,值3   …)"  
sql="insert   into   目标数据表   select   *   from   源数据表"   (把源数据表的记录添加到目标数据表)  

(5)   数据记录统计函数:

avg(字段名)   得出一个表格栏平均值  
count(* ¦字段名)   对数据行数的统计或对某一栏有值的数据行数统计  
max(字段名)   取得一个表格栏最大的值  
min(字段名)   取得一个表格栏最小的值  
sum(字段名)   把数据栏的值相加

引用以上函数的方法:  

sql="select   sum(字段名)   as   别名   from   数据表   where   条件表达式"  
set   rs=conn.excute(sql)  

用   rs("别名")   获取统的计值,其它函数运用同上。

(5)   数据表的建立和删除:

create   table   数据表名称(字段1   类型1(长度),字段2   类型2(长度)   ……   )  

例:create   table   tab01(name   varchar(50),datetime   default   now())  

drop   table   数据表名称   (永久性删除一个数据表)  

(6)   记录集对象的方法:
rs.movenext   将记录指针从当前的位置向下移一行  
rs.moveprevious   将记录指针从当前的位置向上移一行  
rs.movefirst   将记录指针移到数据表第一行  
rs.movelast   将记录指针移到数据表最后一行  
rs.absoluteposition=n   将记录指针移到数据表第n行  
rs.absolutepage=n   将记录指针移到第n页的第一行  
rs.pagesize=n   设置每页为n条记录  
rs.pagecount   根据   pagesize   的设置返回总页数  
rs.recordcount   返回记录总数  
rs.bof   返回记录指针是否超出数据表首端,true表示是,false为否  
rs.eof   返回记录指针是否超出数据表末端,true表示是,false为否  
rs.delete   删除当前记录,但记录指针不会向下移动  
rs.addnew   添加记录到数据表末端  
rs.update   更新数据表记录

判断所填数据是数字型

if   not   isnumeric(request("字段名称"))   then  
response.write   "不是数字"  
else  
response.write   "数字"  
end   if
发表于:2008-01-21 16:45:325楼 得分:0
新手不懂得结贴啊


快速检索

最新资讯
热门点击