您好,我现在急需一个简单VB+SQL2000的系统,具体是哪一个方面的都可以!!真的是急用,急用,谢谢啊
展开全部
VB连接SQL server2000数据库
三种方式连接:
一、VB与SQL Server连接方法枝型清一租握:使用Adodc控件
二、VB与SQL Server连接方法二(使猛前用DSN方法
二、VB与SQL Server连接方法三(使用代码实现)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
cn.ConnectionString = "DRIVER=SQL Server;SERVER=B1B0D3A0BF844A5\MZ;UID=" & "" & ";PWD=" & "" & ";DATABASE=student"
cn.Open
rs.Open "select *from 学生基本信息表", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
End If
For i = 0 To rs.RecordCount - 1
Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3), rs.Fields(4), rs.Fields(5)
rs.MoveNext
Next
End Sub
具体连接方式可查看:
http://www.54sa.com/cio/db/201012211907/
三种方式连接:
一、VB与SQL Server连接方法枝型清一租握:使用Adodc控件
二、VB与SQL Server连接方法二(使猛前用DSN方法
二、VB与SQL Server连接方法三(使用代码实现)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
cn.ConnectionString = "DRIVER=SQL Server;SERVER=B1B0D3A0BF844A5\MZ;UID=" & "" & ";PWD=" & "" & ";DATABASE=student"
cn.Open
rs.Open "select *from 学生基本信息表", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
End If
For i = 0 To rs.RecordCount - 1
Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3), rs.Fields(4), rs.Fields(5)
rs.MoveNext
Next
End Sub
具体连接方式可查看:
http://www.54sa.com/cio/db/201012211907/
参考资料: http://www.54sa.com/cio/db/201012211907/
展开全部
...............难道是期末了?漏缓悉
http://www.pudn.com/downloads216/sourcecode/windows/detail1016047.html
拿去!哪猛!我N久以前写的
编辑这也推荐。。。那不是坑人的返乎么!
给你发过去了!!!!
http://www.pudn.com/downloads216/sourcecode/windows/detail1016047.html
拿去!哪猛!我N久以前写的
编辑这也推荐。。。那不是坑人的返乎么!
给你发过去了!!!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询