Question

vb 连接sql server 数据库

vb 如何连接 sql server 数据库？给出图解以及源码。

不要那些网上复制的。
你认为 复制的，值那么多的悬赏钱吗？

Answer 1

sql server首先要启动服务，然后需要通过网络连接来操作。最常用的是ADO，DAO等

下面是范例

这是ado方式进行连接。
须在工程=》引用里添加ado 2.5或者更高。

菜单 “工程”—“引用”中选择Microsoft ActiveX Data Objects 2.5 Library组件

这是一个完整的过程。vb+sql2005调试通过。

Dim Conn As ADODB.Connection
   Dim Rs As ADODB.Recordset
   Dim Fld As ADODB.Field
   Dim SQL As String
   Dim ConnString As String
   
   Set Conn = New ADODB.Connection
   
   ConnString = "Provider=SQLOLEDB;Data Source=数据库服务器ip或机器名;Initial Catalog=数据库名称;User ID=数据库用户名;Password=密码"
   Conn.ConnectionString = ConnString
   Conn.Open
   
   If Err.Number <> 0 Then
       Msgbox "连接出现错误！"
       End
       Exit Function
   End If
   
   Set Rs = New ADODB.Recordset
   Rs.CursorLocation = adUseClient
   Rs.CursorType = adOpenKeyset
   
   SQL = "Select * From [数据表]"
   
   Rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic

If Not Rs.EOF Then
       msgbox Rs("字段")
   End If

Rs.Close
   Conn.Close

Answer 2

您好,我都是这么写的.应该能解决你的问题.
dim conn 
dim connstr
connstr="Provider=SQLOLEDB;Data Source=数据库服务器;Initial Catalog=数据库名称;User ID=sa;Password=密码"
set conn=Server.Createobject("ADODB.Connection")
conn.open connstr

追问

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=JS-F158E95F43DC;Initial File Name=C:\db\xdldb_Data.MDF"
告诉我 对象名 score 无效

追答

您好,刚才出去了.
你的连接串应该是错误的呀,可以直接连接物理路径吗?
没有这么做过的呀.
Data Source是数据库服务器
如果有实例名的话,是要加上\实例名.
正常是:IP\实例名
你的连接串跟我的不太一样吧.
可以加我QQ,一起探讨探讨.Q:2537008191

Answer 3

网上的资源都看不懂，你认为200分能把你教会吗

追问

匿名回复的，你认为你放这个p有用吗
老弟？

追答

你觉得你学会了吗？也就200让别人帮实现了而已吧，呵呵，就这学习态度。

追问

就你这个心态- -你是单亲还是孤儿？

Answer 4

大款就这样