【火龙系统源码下载】【棋牌游戏源码 俱乐部】【信息收集程序源码】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权限设置
你用了两个 = 耶。源码火龙系统源码下载。源码。源码棋牌游戏源码 俱乐部
而且上面的源码信息收集程序源码代码是写在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
---------------------------------------------
不知道你源码是什么样子的，要下面的源码蜀山online 源码下载效果？你自己变通一下啊
private sub command1_click()
If frm_main.StatusBar1.Panels(2).Text = MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, ) Then
FrmUpdate.Show
else
msgbox“您无权限修改”
end sub