这篇文章将为大家详细讲解有关mshflexgrid数据表格怎样绑定数据库,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。mshflexgrid数据表格绑定数据库
ADODC在哪里?
课堂总结
1、掌握使用adodc控件方法来生成数据库连接字符串
2、在使用数据库前必须要连接数据库conn.open,使用conn.state来判断是否连接数据库,值为0的时候代表没有连接
3、注意在使用数据集rs之前必须要分配内存空间
4、绑定查询前,需要使用sql语句将数据查询出来绑定到rs中
5、使用Set MSHFlexGrid1.DataSource = rs来绑定数据集到mshflexgrid控件上面
6、显示出来后,即绑定后,需要修改表头
文件列表:
界面:
源代码:
Option ExplicitDim sql As StringDim conn As New ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub Command1_Click()If conn.State = 0 Then conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database3.mdb;Persist Security Info=False" conn.OpenEnd Ifsql = "insert into [users]([username],[password]) values('" & Text1.Text & "','" & Text2.Text & "')"Set rs = New ADODB.Recordsetrs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic'MsgBox "录入成功!"sql = "select * from users"rs.Open sql, conn, adOpenKeyset, adLockBatchOptimisticSet MSHFlexGrid1.DataSource = rs'表头MSHFlexGrid1.TextMatrix(0, 0) = "唯一编号"MSHFlexGrid1.TextMatrix(0, 1) = "账号"MSHFlexGrid1.TextMatrix(0, 2) = "密码"End SubPrivate Sub Command2_Click()If conn.State = 0 Then conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database3.mdb;Persist Security Info=False" conn.OpenEnd IfSet rs = New ADODB.Recordsetsql = "select * from users"rs.Open sql, conn, adOpenKeyset, adLockBatchOptimisticSet MSHFlexGrid1.DataSource = rs'表头MSHFlexGrid1.TextMatrix(0, 0) = "唯一编号"MSHFlexGrid1.TextMatrix(0, 1) = "账号"MSHFlexGrid1.TextMatrix(0, 2) = "密码"End Sub
关于mshflexgrid数据表格怎样绑定数据库就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。
亿速云「云数据库 MySQL」免部署即开即用,比自行安装部署数据库高出1倍以上的性能,双节点冗余防止单节点故障,数据自动定期备份随时恢复。点击查看>>
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。
原文链接:https://my.oschina.net/u/4581662/blog/4374358