Question

VB中如何向access数据库中添加记录并显示最新记录

一个数据库“bj”,表格“bjjl”,四个字段“竞标时间”“竞标价格”“竞标单位”“竞标标段”，希望“标段时间”自动生成，“标段单位”自动在登陆时提取用户名，“标段价格”和“标段标段”从“Text1”和“Text2”获得。
哪位大侠知道请指点小弟，如有视频教程为上（财富增加10分）。（在线期待中~~~~~~~~~）

Answer 1

给你代码参考：
竞标时间若要自动生成只要在Access设置就可以了。然后设置struser变数来储存用户名.

【登录代码】
Private Sub cmdlogin_Click()
If txtuser = "" Then
MsgBox "Please fill in User Name.", vbInformation + vbOKOnly, "Information"
txtuser.SetFocus
Exit Sub
End If

If txtpassword = "" Then
MsgBox "Please fill in Password.", vbInformation + vbOKOnly, "Information"
txtpassword.SetFocus
Exit Sub
End If

Dim SQL As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\数据库名称.mdb"

Adodc1.CommandType = adCmdText
SQL = "select * from 资料表名称 where UserName='" & Trim$(txtuser.Text) & "'And Password='" & Trim$(txtpassword.Text) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh

If Adodc1.Recordset.RecordCount <> 0 Then
struser = CStr(txtuser)
Unload Me
Form2.Show
Else
MsgBox "Invalid Username or password!", vbExclamation + vbOKOnly, "Error"
txtuser.SetFocus
End If
End Sub

-----------------------------------

【登录后代码】
Dim struser As String
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\bj.mdb"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from bjjl"
Adodc1.Refresh
End Sub

Private Sub cmdsave_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("竞标单位").Value = struser
Adodc1.Recordset.Fields("标段价格").Value=Text1.text
Adodc1.Recordset.Fields("标段标段").Value=Text2.text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
End Sub

Answer 2

1、竞标时间自动生成：在设计数据库时，设置字段默认值为当前日期即可（设置为=Date()就可以搞定）。
2、标段单位提取用户名：在公共数据模块设置一个全局变量（比如username)，在用户登录时就将用户名赋值给这个变量，添加记录时直接读取这个变量的值就可以（代码见后面）
3、实现代码：
Adodc1.RecordSource = " select * from bjjl"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("标段单位") = username)
Adodc1.Recordset.Fields("标段价格") = Trim(text1.Text)
Adodc1.Recordset.Fields("竞标标段") = Trim(text2.Text)
Adodc1.Refresh