VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 798|回复: 1

[求助] VB链接ACCESS问题

[复制链接]
发表于 2017-1-4 17:23:50 | 显示全部楼层 |阅读模式
接触VB没多久,现在连接ACCESS时出了点问题没法解决故求助,我做了个添加按钮和查询字段按钮,在不添加记录的情况下查询都很正常,但是只要添加一条记录后,查询就没用了。求高手解惑。
这个是查询按钮
rs.Open
rs.MoveFirst
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select *from jilv where 房间号 = " & Text7.Text & ""
Adodc1.Refresh
'DataGrid1.Refresh
rs.Close
这个是添加按钮
rs.Open
If Text1.Text <> "" And Text2.Text <> "" And Combo1.Text <> "" And Combo1.Text <> "" And Text3.Text <> "" Then
With rs
    .AddNew
    .Fields("日期") = Date
    .Fields("房间号") = Val(Text1.Text)
    .Fields("房间类型") = Combo1.Text
    .Fields("房态") = Combo2.Text
    .Fields("价格") = Val(Text2.Text)
    .Fields("配置") = Text3.Text
    .Fields("备注:") = Text4.Text
    .Update
    .MoveNext
    End With
  Else
  MsgBox "数据不能为空"
  End If
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Adodc1.Refresh
'rs.MoveFirst
rs.Close
End Sub
发表于 2017-1-5 10:51:17 | 显示全部楼层
正常情况下,rs是不能关闭的
rs.Close 这句去掉
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-11-24 08:22

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表