我刚学VB，请问哪儿有比较好的程序代码可以参考学习的？

awangxx 2003-09-29 10:08:04

我主要想看看VB6.0对数据库访问的示例，比如建库，对数据库的绑定操作什么的。
希望代码里有比较详细的注释。
谢谢帮忙~~~

...全文

70 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

wx05 2003-09-30

打赏
举报

错了，是www.vbgood.com

wx05 2003-09-30

打赏
举报

www.vbgood.net

awangxx 2003-09-30

打赏
举报

www.dapha.net上停止注册了。代码没法下啊
：（
不过还是谢谢你——fearfulness
还要感谢XKS
：）

Fearfulness 2003-09-30

打赏
举报

www.dapha.net

begintoday 2003-09-30

打赏
举报

http://www.applevb.com/
http://expert.csdn.net/Expert/topic/1673/1673198.xml?temp=.9343225

lihonggen0 2003-09-30

打赏
举报

SQL SERVER:

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = Rs

lihonggen0 2003-09-30

打赏
举报

access:

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs

lihonggen0 2003-09-30

打赏
举报

可以访问

www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.applevb.com
msdn.microsoft.com
http://www.codestudy.net
http://www.vbaccelerator.com/
http://www.mvps.org/vbnet/
http://www.freevbcode.com/
http://www.pscode.com/vb/
http://www.allapi.net
http://home.jlu.edu.cn/~celeron/vb/key.htm
和MSDN得到更多的帮助.............

creakmud 2003-09-30