VB-如何在注册时把注册时间和过期时间写进数据库？

RT想写一个系统验证程序，在注册时把注册时间和过期时间都写进数据库，请问样怎样写啊？谢谢！！

在前端执行SQL就可以了insert into t_user values(userid,password,regdate,expdate)

是在注册按钮执行前加进去吗？ 字串3

你好，硪是想设置成不输入日期也能自动增加注册时间啊。。。意思是：硪在今天2007年7月5日注册了一个帐号，但硪不需要输入注册日期，就能自动把日期增加进数据库。现在你那个，好像要自己写上日期的。

字串3

那你就在程序启动的时候update你的表格就好了update tb1 set rejDate=dateadd(d,1,rejDate) where...

字串4

楼上的朋友，你好啊。。我不是很明白你的意思。能详细点吗？麻烦了。其实硪要的效果，就像现在的外挂注册一样，注册后会把注册时的日期也写进去（自己不填写），以及到期的时间也在下次登录时显示了。就像那样子。

提供上硪的代码吧。下面的是硪现在写好的。Dim SQL As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = "" Then '判断用户名称是否为空 Frame3.Visible = True Exit Sub UserName.SetFocus Else SQL = "select * from UserInfo where UserID='" & UserName & "'" Set rs = TransactSQL(SQL) If rs.EOF = False Then '判断是否已经存在用户 Frame2.Visible = True UserName.SetFocus UserName.Text = "" PassWord.Text = "" confirmPWD.Text = "" Exit Sub Else If Trim(PassWord.Text) <> Trim(confirmPWD.Text) Then '判断两次密码是否相同 Frame4.Visible = True PassWord.Text = "" confirmPWD.Text = "" PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = "" Then '判断密码是否为空 Frame5.Visible = True PassWord.Text = "" confirmPWD = "" PassWord.SetFocus Else '添加用户 SQL = "insert into UserInfo (UserID,UserPWD) values('" & UserName SQL = SQL & "','" & PassWord & "')" TransactSQL (SQL) Frame6.Visible = True '重新设置初始化为空 UserName.Text = "" PassWord.Text = "" confirmPWD.Text = "" UserName.SetFocus End If End If End If请问还要在哪里增加自动记录注册时的时间啊？ 字串5

数据库表注册日期字段默认值设为getdate()create table t_user ( uid varchar(20) primary key, pwd varchar(15), regdate datetime default(getdate()), --注册日期 expdate datetime --过期日期)-------------------------------------------------------在前台程序执行代码dim oCon as new adodb.connection '用户注册函数public function RegUser(sUid as string,sPwd as string,dtExp as date) as boolean dim sSql as string sSql="insert into t_user(uid,pwd,expdate) values('" & sUid & "','" & sPwd _ & "'," & dtexp & ")" on error goto errHd oCon.execute sSql,,adcmdtext RegUser=True '注册成功 exit functionerrHd: RegUser=False '注册失败end function

字串1