用vb连接sql server 数据库阿！！

Question

怎么用vb连接sql server 数据库阿！！给出具体步骤阿

Answer 1

Option ExplicitPublic Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPrivate Sub Form_Load()
   If Make_Connection Then
      MsgBox "连接成功!"
   Else
      MsgBox "连接失败"
   End If
End SubPublic Function Make_Connection() As Boolean
    
    Dim strConn As String
    On Error GoTo err:
   
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=127.0.0.1"
    Conn.CursorLocation = adUseClient
    Conn.Open strConn
    Make_Connection = True
    
err:
    Make_Connection = False
    err.Clear
End Function

Answer 2

自己看吧,如果看不懂就去看MSDN或者书

Answer 3

http://community.csdn.net/Expert/topic/4543/4543848.xml?temp=.8937647

Answer 4

Option Explicit
dim conn as new adodb.connection
private sub form_load
dim connstr="provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=数据库名.mdb;datasource=."
if conn.state then conn.close
conn.open connstr
dim rs as new adodb.recordset
rs.=(客户端游标)
if rs.state then rs.close
rs.open"select* from 数据库名",conn
end sub
end sub

Answer 5

我没有msdn
可否给加上注释阿！！

Answer 6

如果看不懂的话，
只能从MSDN中一点点地学了。

Answer 7

一楼的代码还是有问题的 
改一下：
  Public Function Make_Connection() As Boolean
    
    Dim strConn As String
    On Error GoTo err:
   
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=127.0.0.1"
    Conn.CursorLocation = adUseClient
   if conn.state=1 then conn.close
    Conn.Open strConn
    Make_Connection = True
   exit function
err:
    Make_Connection = False
    err.Clear
End Function

Answer 8

关于自动投票问题目前投票系统一般都限制了客户端的IP,即一个IP只能投一次,还有的投票系统有图片验证码,身份证,姓名等信息.如果说做一个自动投票机,其中最难一点的是更换IP,识别验证码.其它信息可随机生成.更换IP,最好的方法是采用循环拔号来实现.只要是使用ADSL虚拟拔号上网就可以更换IP.大家都知道,电信的IP数是最多的,因此投票作弊工作应该最后用在电信的ADSL上面.铁通,网通等用户分到的IP比较少, 所以投票时IP改变的很慢.识别图片验证码,目前网上提供的方法已经够多够好的啦,查一查一大堆.
这个小软件如果要做出来,说难不难,说易不易,还是有一点技术性.谁能用VB写出这样子的软件,给我源码,给200元酬谢.
我的QQ 10046870

Answer 9

部件-- ADO- （要引用它）
然后写上 上面的代码 即可。