vb链接sqlsever数据库代码怎么写？

代码实现VB和数据库的连接问题~

在VB中实现数据库连接有几种方法,可以使用DAO,ADO,adodc控件等.关于DAO,MSDN中有详细说明,我就是看MSDN学会的.使用前,要先"工程"--"引用"中勾选Microsoft DAO 3.6 Object Library.比DAO好些是是ADO.先要引用Microsoft ActiveX Data Object 2.8 Library.
关于ADO,我不细说了.给你两篇文章,说得很详细,看后你会明白怎么使用.
http://www.egunao.com/program/VB/42958.html
http://www.sudu.cn/info/html/edu/20080403/260229.html

datPrimaryRS是一个记录集，是adodb.recordset对象


Recordset 对象 (ADO)


Recordset 对象表示的是来自基本表或命令执行结果的记录全集。任何时候，Recordset 对象所指的当前记录均为集合内的单个记录。





说明

可使用 Recordset 对象操作来自提供者的数据。使用 ADO 时，通过 Recordset 对象可对几乎所有数据进行操作。所有 Recordset 对象均使用记录（行）和字段（列）进行构造。由于提供者所支持的功能不同，某些 Recordset 方法或属性有可能无效。

ADOR.Recordset 和 ADODB.Recordset 是用来创建 Recordset 对象的 ProgID。由此产生的 Recordset 对象行为相同，与 ProgID 无关。ADOR.Recordset 随 Microsoft® Internet Explorer 安装，而 ADODB.Recordset 则随 ADO 安装。Recordset 对象的行为受环境（即客户端、服务器、Internet Explorer 等）的影响。这些差异将在属性、方法和事件的“帮助”主题中加以说明。

在 ADO 中定义了四种不同的游标类型：

动态游标 — 用于查看其他用户所作的添加、更改和删除，并用于不依赖书签的 Recordset 中各种类型的移动。如果提供者支持，可使用书签。


键集游标 — 其行为类似动态游标，不同的只是禁止查看其他用户添加的记录，并禁止访问其他用户删除的记录，其他用户所作的数据更改将依然可见。它始终支持书签，因此允许 Recordset 中各种类型的移动。


静态游标 — 提供记录集合的静态副本以查找数据或生成报告。它始终支持书签，因此允许 Recordset 中各种类型的移动。其他用户所作的添加、更改或删除将不可见。这是打开客户端 (ADOR) Recordset 对象时唯一允许使用的游标类型。


仅向前游标 — 除仅允许在记录中向前滚动之外，其行为类似动态游标。这样，当需要在 Recordset 中单程移动时就可提高性能。
在打开 Recordset 之前设置 CursorType 属性来选择游标类型，或使用 Open 方法传递 CursorType 参数。部分提供者不支持所有游标类型。请检查提供者的文档。如果没有指定游标类型，ADO 将默认打开仅向前游标。

对部分提供者（例如 Microsoft ODBC Provider for OLE DB 连同 Microsoft SQL Server），可以通过使用 Open 方法传递连接字符串，根据以前定义的 Connection 对象独立地创建 Recordset 对象。ADO 仍然创建 Connection 对象，但它不将该对象赋给对象变量。不过，如果正在相同的连接上打开多个 Recordset 对象，就应该显式创建和打开 Connection 对象，由此将 Connection 对象赋给对象变量。如果在打开 Recordset 对象时没有使用该对象变量，即使在传递相同连接字符串的情况下，ADO 也将为每个新的 Recordset 创建新的 Connection 对象。

可以创建所需数量的 Recordset 对象。

打开 Recordset 时，当前记录位于第一个记录（如果有），并且 BOF 和 EOF 属性被设置为 False。如果没有记录，BOF 和 EOF 属性设置是 True。

假设提供者支持相关的功能，可以使用 MoveFirst、MoveLast、MoveNext 和 MovePrevious 方法以及 Move 方法，和 AbsolutePosition、AbsolutePage 和 Filter 属性来重新确定当前记录的位置。仅向前 Recordset 对象只支持 MoveNext 方法。当使用 Move 方法访问每个记录（或枚举 Recordset）时，可使用 BOF 和 EOF 属性查看是否移动已经超过了 Recordset 的开始或结尾。

Recordset 对象可支持两类更新：立即更新和批更新。使用立即更新，一旦调用 Update 方法，对数据的所有更改将被立即写入现行数据源。也可以将值的数组作为参数传递来使用 AddNew 和 Update 方法，同时更新记录的若干字段。

如果提供者支持批更新，可以使提供者将多个记录的更改存入缓存，然后使用 UpdateBatch 方法在单个调用中将它们传送给数据库。这种情况应用于使用 AddNew、Update 和 Delete 方法所做的更改。调用 UpdateBatch 方法后，可以使用 Status 属性检查任何数据冲突并加以解决。

注意 要执行不使用 Command 对象的查询，应将查询字符串传递给 Recordset 对象的 Open 方法。但是，在想要保持命令文本并重复执行或使用查询参数时，仍然需要 Command 对象。

先引用 "Microsoft ActiveX Data Objects 2.0 Library"

Public conn As ADODB.Connection
Public rst As ADODB.Recordset

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=数据库名"
conn.CursorLocation = adUseClient
conn.Open
rst.Open "select * from 数据库名.dbo.表名", cnn, adOpenStatic, adLockPessimistic

----------------------------------
VB6.0远程连接SQL SERVER2000
Public conn As ADODB.Connection '数据连接

Set conn = New ADODB.Connection
conn.Open "{SQL SERVER};SERVER=192.168.1.11;DATABASE=数据库名;USER ID=打开数据库用户名;PASSWORD=打开数据库密码"

在模块中建立SJK过程：
Sub SJK(db)
'连接数据库
db.ConnectionTimeout = 10
db.CursorLocation = adUseServer
db.ConnectionString = "driver={SQL Server};server=服务器名称;uid=sa;pwd=密码;database=数据库名"
db.Open
End Sub

在启动页：
Private Sub Form_Load()
On Error GoTo ABC
Call SJK(db)
db.Close
Exit Sub
ABC:
MsgBox "数据库链接失败！系统不能继续，请检查数据库链接！", , "严重错误！"
End Sub

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123456;Initial Catalog=student;Data Source=127.0.0.1"
conn.Open
这些就能连接到数据库了还需要其他什么吗？？
按照你的代码看来只是连接到数据库其他的什么都没做。。。。

---

宜州市18923714047： VB怎么连接SQL Server数据库? - ？
陈宜适利： VB连接数据库方式主要有两种,一是通过ODBC接口,ODBC是windows系统里提供的接口,专门连接数据库的,可以连接多种数据库,在应用电脑的设置ODBC,也就DSN数据源(下面说到的),连接到服务器.第二种就是ADO方式,VB使...

宜州市18923714047： 如何用vb连接sql server数据库 - ？
陈宜适利： 一、配置ODBC数据源 1、在控制面板中,双击管理工具,然后打开ODBC数据源管理器. 2、在“系统DSN”选项卡中,单击“添加”按钮,打开“创建新数据源”对话框,在“名称”列表框中选择“SQL Server”.选好单击完成 3、在打开...

宜州市18923714047： vb链接SQL server 数据库的 代码怎么写?？
陈宜适利： '定义一个连接对象 Public Con As ADODB.Connection '定义一个记录集对象 Public Rs As ADODB.Recordset '定一个命令对象 Public Cmd As ADODB.Command Sub Main() '实例化一个连接对象 Set Con = New ADODB.Connection '设置连...

宜州市18923714047： sql +VB的数据库连接代码 - ？
陈宜适利： Function OpenTable(ByVal txtPath As String) '【功能:建立数据库连接;状态:完成】 Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Open ＂PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & txtPath & ＂;＂ Set res = New ADODB.Recordset End Function Function CloseTable() '【功能:关闭数据库连接;状态:完成】 conn.Close End Function

宜州市18923714047： VB中怎么连接SQL Server? - ？
陈宜适利： 连接数据库简单的登录 代码如下 Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim loginflag As Boolean Private Sub Command1_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset'建立无源数据库...

宜州市18923714047： VB如何连接SQL数据库?？
陈宜适利： 一个用VB连接SQL数据库连接的模块2007年01月22日 星期一 下午 05:29下面是一个连接数据库的模块,大家可以使用它来连接SQL数据库,使用起来比ADO控件还简单: 代码如下: Public rsNew As ADODB.Recordset Public CnNew As ...

宜州市18923714047： VB如何连接SQL SERVER? - ？
陈宜适利： 打开“控制面板”→“管理工具”→“数据源 (ODBC)”后,出现窗体. 单击“系统DSN”选项卡后,点击“添加”按钮,出现窗体. 选择其中的“SQL Server”后,单击“完成”,出现窗体. 单击“下一步”,.选择“SQL Server验证”...

宜州市18923714047： vb如何连接SQL数据库 - ？
陈宜适利： 具体方法和代码如下:set conn=server.createobject(＂adodb.connection＂) 变量名=＂driver=sql server;server=IP地址;database=数据库名;uid=用户名;pwd=密码＂ conn.open 变量名＂conn＂是你设置的对象名＂变量名＂ 为自定义＂IP地址...

宜州市18923714047： VB 怎么连接sql sever 2008 数据库啊？
陈宜适利： PROVIDER=SQLOLEDB;DATA SOURCE=SQL数据库服务器地址;USER ID=数据库帐号;PASSWORD=数据库密码;DATABASE=数据库名称

宜州市18923714047： VB连接SQL最简单方法？
陈宜适利： Public conn As ADODB.Connection Public rs As ADODB.Recordset Public addFlag As Boolean '声明部分 Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String, ByVal sjk As String) As Boolean '连接模块 填写...