【沉梦系统官网源码】【大话源码资源】【unipp商城源码】flexgrid 源码
1.在vb中怎么把access 数据库中的源码数据全部显示出来
2.vb权限设置
在vb中怎么把access 数据库中的数据全部显示出来
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Stu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_stu "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
end Sub
'Stu.mdb 是数据库，tb_stu是源码数据库表名
'添加datagrid 、Adodc1 控件
vb权限设置
你用了两个 = 耶。源码沉梦系统官网源码。源码。源码大话源码资源
而且上面的源码unipp商城源码代码是写在Private Sub MSFlexGrid1_RowColChange()事件中的吧。
Private Sub MSFlexGrid1_RowColChange()
Dim i As Long: i = MSFlexGrid1.Row
If frm_main.StatusBar1.Panels(2).Text = "当前系统用户：" & MSHFlexGrid1.TextMatrix(i,源码 ) Then
FrmUpdate.Show
else
msgbox“您无权限修改”
End Sub
---------------------------------------------
网页留言失败。上面的源码代码是选中行时即可判断。。源码。源码
如果你要通过按钮点击实现的源码话，写在按钮事件中啊'MSFlexGrid1.Row-当前选中行
private sub command1_click()
If frm_main.StatusBar1.Panels(2).Text = "当前系统用户：" & MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row,源码 ) Then
FrmUpdate.Show
else
msgbox“您无权限修改”
end sub
---------------------------------------------
不知道你源码是什么样子的，要下面的源码票星球源码效果？你自己变通一下啊
private sub command1_click()
If frm_main.StatusBar1.Panels(2).Text = MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, ) Then
FrmUpdate.Show
else
msgbox“您无权限修改”
end sub