Question

vb操作access时rs.update问题

代码如下，在保存的时候出错，时间格式文本和时间都出现错误，请高手帮我看下，另我想在listbox中显示出access中的所有WebName要怎么写？还有下拉菜单查询选择是怎么做的？不要抄袭，要详细的带有说明的，我是个初学者！分一定再加，一定要搞定！！谢谢！
Dim cnn As ADODB.Connection '连接数据库的Connection对象
Dim rs As ADODB.Recordset '保存结果集的Recordset对象

Private Sub cmdadd_Click(Index As Integer)
time.Text = CStr(Date) '（显示系统今天日期）
time.SetFocus
webname.Text = ""
website.Text = ""

End Sub
Private Sub cmdsave_Click(Index As Integer)
rs.AddNew
rs.Fields("WebName").Value = webname.Text
rs.Fields("WebSite").Value = website.Text

rs.Fields("time").Value = time.Text
rs.Update
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
rs.Requery
time.SetFocus
Call LoadControls
Exit Sub
End Sub

Private Sub Form_Load()

'关键New用于创建新对象cnn
Set cnn = New ADODB.Connection
'设置连接字符串ConnectionString属性
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
+ App.Path + "\7.mdb" + Database + ";"
'打开到数据库的连接
cnn.Open
'判断连接的状态
If cnn.State <> adStateOpen Then
'如果连接不成功，则显示提示信息，退出程序
MsgBox "数据库连接失败"
End
End If
Set rs = New ADODB.Recordset '创建客户端的记录集
With rs
.CursorLocation = adUseClient '指定游标位置

.CursorType = adOpenKeyset '指定使用键集游标
.LockType = adLockOptimistic '指定锁定类型
.Open "SELECT * FROM Soldier", cnn
End With

'显示第一个记录数据
webname = rs.Fields("WebName").Value
website = rs.Fields("WebSite").Value

time.Text = rs.Fields("time").Value
End Sub

Sub LoadControls()
If rs.BOF = False And rs.EOF = False Then
webname = rs.Fields("WebName").Value
website = rs.Fields("WebSite").Value
time.Text = rs.Fields("time").Value
End If
End Sub

Answer 1

Do While rs.EOF = False
List1.AddItem rs.Fields(1).Value
rs.MoveNext
Loop

Answer 2

HI我解决吧

Answer 3

呵呵 暂时改这些 代码回传给你了 呵呵 我下午考完cet6再说吧 解决了一些