VB怎样向ACCESS里写数据?
怎样把strName,now(),now()这3个变量分别写进数据表:locked.ldb ->操作记录 ->操作人、登陆时间、退出时间 这同一记录的3个格里。 locked.ldb 文件和VB程序在同一目录下。 要求:1.分两次写,先写strName,now(),再写now() 2.第2次进入程序的时候是新建一个记录再写而不是把原来的覆盖掉。 希望有人可以帮我,谢谢了。
打开数据库 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 其它类似,自己去写,也可以用控件组写循环,但麻烦些 注:徒手写下的,拼写错误难免,有错自己改一下。
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 。
答:因为时间配额是给第一次注册建立家族的玩家的 也就是说不管你换几线,除非你换大区 不然一个帐号只给一次8小时 明白?详情>>
答:详情>>
答:应用层上的安全业务可以涉及认证、访问控制、机密性、数据完整性、不可否认性、Web安全性、EDI和网络支付等应用的安全性详情>>
答:重新安装网络游戏,网络游戏的程序或者驱动出了问题。 如果安装后还是有问题,应该考虑操作系统的驱动:如DX 等。也可能是操作系统本身。详情>>