VB连接ACCESS出现一个问题,第一条记录的“编号”总是不显示
我设计了一个小的班费管理系统,但是一运行程序就会立刻出现一个问题,总是第一条记录admin的编号1不显示,而后台ACCESS数据库是显示编号存在的。如果把第一条记录删除,...
我设计了一个小的班费管理系统,但是一运行程序就会立刻出现一个问题,总是第一条记录admin的编号1不显示,而后台ACCESS数据库是显示编号存在的。如果把第一条记录删除,那么第二条记录的编号也会由有变五,不知什么原因。编号是主码。每次都需要通过程序上的工具栏修改保存才能显示编号1。如图所示:
后台数据库第一条记录的编号1正常存在。如图所示:
由于是程序一运行立刻出现这个问题,所以会不会是出在form load代码里呢?附窗体加载代码:
Private Sub Form_Load()
Adodc1.Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbbanfei.mdb;Persist Security Info =false"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 班费收支明细表"
Adodc1.Refresh
End Sub
请高手指点!谢谢!
用的是data grid控件显示的表中内容。其余记录都能正常显示,就是最上面这一条记录的“编号”字段不显示。 展开
后台数据库第一条记录的编号1正常存在。如图所示:
由于是程序一运行立刻出现这个问题,所以会不会是出在form load代码里呢?附窗体加载代码:
Private Sub Form_Load()
Adodc1.Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbbanfei.mdb;Persist Security Info =false"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 班费收支明细表"
Adodc1.Refresh
End Sub
请高手指点!谢谢!
用的是data grid控件显示的表中内容。其余记录都能正常显示,就是最上面这一条记录的“编号”字段不显示。 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询