vb如何连接数据库
的有关信息介绍如下：
Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sq As StringSub 加载发货窗体数据() 'ADO方法 On Error Resume Next cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\Data.mdb" sq = "select * from 店铺名称表 order by 店铺名称" rs.Open sq, cn rs.MoveFirst Do While Not rs.EOF Form1.店铺名称袭绝.AddItem rs.Fields("店拍岩姿铺名称") Form1.调货店2.AddItem rs.Fields("店铺名称") Form1.调货店1.AddItem rs.Fields("店铺枣唤名称") rs.MoveNext Loop rs.Close cn.Close Set rs = Nothing Set cn = NothingEnd Sub
版权声明：文章由 好百科 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.haobaik.com/life/285586.html
