在vb中怎么在msflexgird里添加数据
答案:2 悬赏:80 手机版
解决时间 2021-04-10 22:32
- 提问者网友：感性作祟
- 2021-04-10 15:11
在vb中怎么在msflexgird里添加数据
最佳答案
- 五星知识达人网友：西岸风
- 2021-04-10 16:48
Dim sql As String
MSHFlexGrid1.Rows = 2
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;"
sql = "select * from 数据表名"
Adodc1.RecordSource = sql
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.Rows = 2
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;"
sql = "select * from 数据表名"
Adodc1.RecordSource = sql
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
全部回答
- 1楼网友：十鸦
- 2021-04-10 18:00
未知不知出错信息是什么？
message = msgbox("添加成功", 0 + 16, "现在可以借书")
if message = vbok then
上面这段代码结构和提示图标显示上有问题，修改为以下：
message = msgbox("添加成功",vbinformation , "现在可以借书")
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯