| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 965 人关注过本帖, 1 人收藏
标题:VB+ACCSEE数据库只能改写,不能保存,请大家帮助
只看楼主 加入收藏
xiao173612
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2008-11-3
结帖率:100%
收藏(1)
 问题点数:0 回复次数:1 
VB+ACCSEE数据库只能改写,不能保存,请大家帮助
Public conn As New ADODB.Connection ' 标记连接对象

Private Sub Form_Load()

Command1.Caption = "添加"
Text1.Text = ""

End Sub
Private Sub Command1_Click()
Dim connectionstring As String
 Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\test.mdb;Persist Security Info=False" '设置数据库路径
= adCmdText '设置记录源
Adodc1.RecordSource = "select * from test" '连接数据库的message表文件
Text1.Enabled = False
 If Command1.Caption = "添加" Then
     Command1.Caption = "保存"
     Text1.Enabled = True
     Text1.SetFocus
        Text1.Text = ""
        Exit Sub
        End If
        If Command1.Caption = "保存" Then

  Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("姓名").Value = Text1.Text
Adodc1.Recordset.Update  '保存
Adodc1.Refresh '刷新
MsgBox "客户资料已保存至数据库!", vbYesNo, "客户资料输入"
If s = vbYes Then
End If
Command1.Caption = "添加"
Text1.Text = ""
Exit Sub
End If
End Sub

本数据库有两个字段,ID自动编号,TEXT1是房间编号,我添加了一个DATAGRID控件,能显示数据,点保存不能保存到数据库,只是改写了房间编号字段,并没有添加TEXT1的值到数据库中,请问怎样在点击添加时,建立空数据,在点保存时,将TEXT1的值保存到数据库,不是更新,或者让VB打开ACCSEE时,已定位在空的数据上,请问怎么解决。
搜索更多相关主题的帖子: 数据库 ACCSEE 保存 
2008-12-14 19:49
franic1121
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-10-29
收藏
得分:0 
代码应该是这样的:
Public conn As New ADODB.Connection ' 标记连接对象

Private Sub Form_Load()

Command1.Caption = "添加"
Text1.Text = ""

End Sub
Private Sub Command1_Click()
Dim connectionstring As String
Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\test.mdb;Persist Security Info=False" '设置数据库路径
= adCmdText '设置记录源
Adodc1.RecordSource = "select * from test" '连接数据库的message表文件
Text1.Enabled = False
If Command1.Caption = "添加" Then
    Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("姓名").Value = Text1.Text
     Command1.Caption = "保存"
     Text1.Enabled = True
     Text1.SetFocus
        Text1.Text = ""
        Exit Sub
        End If
        If Command1.Caption = "保存" Then
  Adodc1.Recordset.Update  '保存
Adodc1.Refresh '刷新
MsgBox "客户资料已保存至数据库!", vbYesNo, "客户资料输入"
If s = vbYes Then
End If
Command1.Caption = "添加"
Text1.Text = ""
Exit Sub
End If
End Sub
2008-12-15 11:15
快速回复:VB+ACCSEE数据库只能改写,不能保存,请大家帮助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019362 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved