已有23人关注
学习 vb开发实战1200例-第二卷\第三章\120实例中遇到的问题!
发表在VB答疑区 2013-01-06
是否精华
版块置顶:
Dim Lj As ADODB.Connection
Private Sub Form_Load()
Set Lj = New ADODB.Connection
Lj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_Test.mdb.mdb;Persist Security Info=False"
Lj.Open
Ado1.ConnectionString = Lj
Ado1.RecordSource = "select * from tb_stud"
Ado1.Refresh
Set MS1.DataSource = Ado1
End Sub

Private Sub Command1_Click()            '120     插入部份的记录
'我要在表中插入 姓名,月份,工资。
'注意:不能用DATAGRID控件。所以用MS控件
Set Lj = New ADODB.Connection
Lj.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\25.mdb;Persist Security Info=False"
Lj.Open
 Lj.Execute ("insert into tb_laborage (员工姓名,月份,基本工资) values('张柏芝','201301','1800') ")

Set MS1.DataSource = Lj.Execute("select * from tb_laborage")
MS1.Refresh
'存在问题: 为什么不能即时刷新出来的?
End Sub

说明:db_Test.mdb为第二册,第3章,第105实例,的数据库文件。
vb开发实战1200例-第二卷\MR\03\105\db_Test.mdb
存在问题:为什么程序执行后,记录能加上去,而MS1控件中确不能实时显示出来??
分享到:
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照