爱问知识人 爱问共享资料 医院库

VB怎样向ACCESS里写数据?

首页

VB怎样向ACCESS里写数据?

怎样把strName,now(),now()这3个变量分别写进数据表:locked.ldb ->操作记录 ->操作人、登陆时间、退出时间 这同一记录的3个格里。

locked.ldb 文件和VB程序在同一目录下。

要求:1.分两次写,先写strName,now(),再写now()
 
2.第2次进入程序的时候是新建一个记录再写而不是把原来的覆盖掉。

希望有人可以帮我,谢谢了。

提交回答

全部答案

    2018-04-02 08:16:40
  • 打开数据库 
    dim db as database 
    dim rs as recordset 
    set db=opendatabase("locked.ldb") 
    ser rs=db.openrecordset("操作记录") 
    ;添加: 
    with rs 
    addnew 
    fields(0)=strName
    fields(1)=now() 
    update 
    .
    .
    ;退出时 不用addnew
    fields(2)=now()
    update 
    其它类似,自己去写,也可以用控件组写循环,但麻烦些 
    注:徒手写下的,拼写错误难免,有错自己改一下。
    

    郭***

    2018-04-02 08:16:40

  • 2018-04-02 05:16:40
  •   1。工程->引用,添加Micrsoft ActiveX Data Objects 2。5 Library 
    2。在需要连接数据库的地方加入以下代码:
    '以下定义在通用区 
    Dim conn As ADODB。Connection 
    Dim rs As ADODB。
      RecordSet '以下可以写在Form_Load里 If conn。State = adStateOpen Then conn。Close Set conn = New ADODB。Connection conn。ConnectionString = "Provider=Microsoft。
      Jet。OLEDB。4。0;Data Source=" & DataPath & ";Persist Security Info=False" 'DataPath为数据库的路径 conn。Open '以下为第一次修改记录 Set rs = New ADODB。
      RecordSet rs。Open SQLStr, conn 'SQLStr为数据库查询语句 rs。Fields("[属性名1]") = strName rs。Fields("[属性名2]") = Now rs。Update '以下为第二次修改 Set rs = New ADODB。
      RecordSet rs。Fields("[属性名3]") = Now rs。Update '以下为添加记录 Set rs = New ADODB。RecordSet rs。AddNew rs。Fields("[属性名1]") = strName rs。
      
      Fields("[属性名2]") = Now rs。Fields("[属性名3]") = Now rs。UpDate '以下可以写在Form_Unload里 rs。Close conn。Close Set rs = Nothing Set conn = Nothing 。

    胡***

    2018-04-02 05:16:40

类似问题

换一换
  • 软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈
关注
爱问

关注爱问微信公众号,开启知识之旅,随时随地了解最新资讯。

确定举报此问题

举报原因(必选):