在VB中怎样实现对SQL进行 *** 作

首先要做数据库连接Public rs As New ADODBRecordset

Public mrc As New ADODBConnection

mrcCursorLocation = adUseClient

txtsql = "Provider=SQLOLEDB1;Persist Security Info =False;" _

& "User ID=sa;" _

& "Pwd=密码;" _

& "Initial Catalog=数据库名;" _

& "Data Source=计算机名"mrcOpen txtsql以上链接数据库的代码确定按钮事件dim rs as adodbrecordsetset rs=new adodbrecordsettxtsql="插入数据的语句"rsopen txtsql,mrc,adOpenStatic这样就插入数据了查询数据和上边道理一样只是SQL语句需要加入条件显示到数据控件里，比如MSHFLEXGRID，LIST,就随便你了'__________________________希望对你有帮助

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

启动VB60，新建一个工程,在菜单-工程-引用里选"Microsoft ActiveX Data Objects 20 Library",代码里需要有

dim conn As New ADODBConnection

定义ADO数据库对象

connConnectionString = "driver={SQL Server};" & _

"server=" & ServerName & ";uid=" & UserName & ";

pwd=" & Password & ";database=" & DatabaseName & ""

连接数据串

connopen 连接数据库

注：ServerName为服务器名；UserName为用户名；Password为用户口令； DatabaseName要登录的数据库名，可以为空。

核心代码如下：

一、建立数据库

原理：建立数据库先要初始化一个数据库设备，然后在此设备上建立数据库。所有的设备名在系统表"sysdevices"里有记录，所有的数据库名在系统表"sysdatabases"里有记录。在建立之前，最好先查询这两个系统表，看名称是否已经存在。在建立设备之前，还需要的一个物理名和空闲的设备标识号。

初始化设备语法：

DISK INIT NAME="device_name",PHYNAME=

"physical_name",VDEVNO=device_number,

SIZE=numberofblock

说明：这里，NAME是数据库设备名（一个有效的标识符），PHYNAME(数据库设备的物理名)是原始的磁盘分区UNIX或外设（vms）名，或者是 *** 作系统的文件名。VDEVNO时数据库的设备标识号，合法值为1-255，SIZE的单位是2KB的块，例如1MB（1024KB）时SIZE值为512。

建立数据库语法：CREATE DATABASE database_name [ON database_device]

说明：database_name是要建的数据库名，database_device是设备名

要新建立一个数据库，就需要设备名，数据库名，物理名和设备号。具体步骤如下：

我们假设用户要新建立设备dbName，在设备dbName上建立数据库dbName。

1）得到设备名 bName是用户给出的设备名；先查询系统表sysdevices，看用户给出的设备名dbName是否已经存在，如果此设备名存在，就需要更换一个设备名，因为设备名是唯一的。

sql = "select from sysdevices

where name=" & dbName & ""

Set rs = connExecute(sql)

If Not rsEOF Then

MsgBox "设备名"" & dbName & ""

已存在！", 16, "请重新输入名称"

Exit Sub

End If

2）得到数据库名。dbName是用户给出的数据库名；查询系统表sysdatabases，看用户给出的数据库名dbName是否已经存在，如果此数据库存在，就需要更换一个数据库名，像设备名一样，数据库名也是唯一的

sql = "select from sysdatabases

where name=" & dbName & ""

Set rs = connExecute(sql) 下面代码略

3）得到PHYNAME物理名。查询服务器上数据库文件的物理位置serverpath，典型的，我们可以从系统表sysdevices中查询master(这是SQL Server的主库名)数据库的位置，例如G:\MSSQL\DATA\MASTERDAT，则我们的数据库可以建在"G:\MSSQL\DATA\"目录下。

sql = "select name,phyname from sysdevices "

low/16777216为设备号

Set rs = connExecute(sql)

然后遍历记录对象rs，当name="master"时，取出phyname，

从而可以得到物理位置serverpath =G:\MSSQL\DATA\。

4)得到一个空闲的设备号vdevno。设备号合法值1~255，遍历这些号，查找出未被使用的空闲设备号,下面程序得到已有的设备号

sql = "select distinct low/16777216

from sysdevices order by low/16777216"

low/16777216为设备号

5）建立数据库。所需的信息都准备完毕，可以建立数据库了（注：下面的"" & Chr(34) & ""就是一个"""双引号,这样处理后，才能满足语法要求;数据库为20M，则dbSize=51220）

sql = "DISK INIT NAME=" & Chr(34) & ""

& dbName & "" & Chr(34) & ",PHYSNAME="

& Chr(34) & "" & serverpath & "" & dbName

& "dat" & Chr(34) & ",VDEVNO=" & vdevno

& ",SIZE=" & dbSize & ""

Set rs = connExecute(sql) 初始化设备

sql = "CREATE DATABASE " & dbName & "

on " & dbName & "=" & dbSize & ""

注：

第一个dbName是数据库名，

第二个dbName是设备名

Set rs = connExecute(sql)

在设备dbName上建立数据库dbName

MsgBox "数据库"" & dbName & ""建在服务器上

"" & serverpath & "" & dbName & "dat"，

建立成功！", 64, "成功"

VB中“对象关闭时，不允许 *** 作”解决方案

最近两天在VB里弄一些小程序，好久没接触了，感觉有些陌生了，还算有点基础吧，遇到一些小的难题基本上都能解决。不过，这下真的遇到难题了，琢磨半天硬是没弄出结果来，在网上查资料也没个底，如同大海捞针呀，关键是没一点正经的答案和可行的方案。

问题是这样的，在VB中执行存储过程，想输出返回值并将数据绑定到DataGrid控件中，本来是件小菜的问题，在NET、ASP里都做通过，但在VB里却是折磨了半天也没弄出来。还是自己动手吧，有问题就得想办法，一步步来吧。

先在SQL 2000中写好存储过程了，（这里不再写出存储过程的具体代码了，也就是一个返回值，一个记录集）然后在VB中引用ADO对象，输入如下代码，以调用存储过程：

Dim lackconn As New ADODBConnection

lackconnConnectionString=Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;Password=boyd;Initial Catalog=mydb;Data Source=(local)

lackconnCursorLocation = adUseClient '设置为客户端

lackconnOpen

Set lackcmd = New ADODBCommand

lackcmdActiveConnection = lackconn

lackcmdCommandText = myproc '这里为存储过程名称

lackcmdCommandType = adCmdStoredProc '指定为存储过程

Set param = lackcmdCreateParameter(@num, adInteger, adParamReturnValue, 4) '@num为返回值

lackcmdParametersAppend param

Set lackrs = New ADODBRecordset

Set lackrs = lackcmdExecute()

msgbox 站点总数： & lackcmdParameters(@num)Value & 个

Set mydatagridDataSource = lackrs 'mydatagrid为对象名称

mydatagridRefresh '刷新DataGrid

'下面关闭数据库对象等略去

就这样的一个简单的代码，一运行就出错，提示错误在“Set mydatagridDataSource = lackrs”，错误就是“对象关闭时，不允许 *** 作”。郁闷ing，这哪来的错误呢？我根本没关闭数据库连接，其他内容也是没有问题的呀。花了很长时间没能解决，大清早再打开电脑时，灵机一动，搞定了。这里将这种现象作下总结，顺便记录一下本次解决过程。

产生这种现象有几种原因：

1、数据库对象连接被关闭了，这肯定会报错的，当然也不能输出任何结果的，这时只需注意“先使用、后关闭”就行了，解决这样的问题就是暂时先不要关闭数据库连接就行了。

2、返回记录为空时，也会报错。如下面的代码

sql = select from dbcn where 状态='0'

Set rs = connExecute(sql)

If Not rsEOF Then

For m = 1 To rsRecordCount

List_statusAddItem rs(1) & （ & rs(2) & ）： & rs(4)

rsMoveNext

Next m

End If

如果没有数据的话，这里也会提示这样的错误，将查询代码放到SQL查询分析器里运行一下，果然没有数据，呵呵。当然这样的错误可以采用一些方法排除或过滤的。

3、这就是我这次所遇到的问题的中心了，我们将目光转向存储过程。的确，在SQL查询分析器里，存储过程是正常运行，而且不会报错，也有数据。但仔细想想，因为在存储过程可能包含了有关SQL语句影响行数的信息，这样一来也就可能会导致这样的情况。

打开存储过程，在begin后面加上一句代码：set nocount on，屏蔽掉这些信息。OK，VB中的程序巳经能够正常运行了，而且数据也是正常的。

顺便解释一下吧，打开查询分析器中的帮助，查找一下有关set nocount on的信息，我们会找到这些东西：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

SET NOCOUNT

使返回的结果中不包含有关受 Transact-SQL 语句影响的行数的信息。

语法

SET NOCOUNT { ON | OFF }

注释

当 SET NOCOUNT 为 ON 时，不返回计数（表示受 Transact-SQL 语句影响的行数）。当 SET NOCOUNT 为 OFF 时，返回计数。

即使当 SET NOCOUNT 为 ON 时，也更新 @@ROWCOUNT 函数。

当 SET NOCOUNT 为 ON 时，将不给客户端发送存储过程中的每个语句的 DONE_IN_PROC 信息。当使用 Microsoft® SQL Server™ 提供的实用工具执行查询时，在 Transact-SQL 语句（如 SELECT、INSERT、UPDATE 和 DELETE）结束时将不会在查询结果中显示nn rows affected。

如果存储过程中包含的一些语句并不返回许多实际的数据，则该设置由于大量减少了网络流量，因此可显著提高性能。

SET NOCOUNT 设置是在执行或运行时设置，而不是在分析时设置。

权限

SET NOCOUNT 权限默认授予所有用户。

示例

下例在 osql 实用工具或 SQL Server 查询分析器中执行时，可防止显示有关受影响的行数的信息。

USE pubs

GO

-- Display the count message

SELECT au_lname

FROM authors

GO

USE pubs

GO

-- SET NOCOUNT to ON and no longer display the count message

SET NOCOUNT ON

GO

SELECT au_lname

FROM authors

GO

-- Reset SET NOCOUNT to OFF

SET NOCOUNT OFF

GO

这里点到为止吧，具体的解释我想MS的帮助会比我说的更专业更清楚些，参考下吧。

结构化查询语言(Structured Query Language)简称SQL(发音：/ˈes kjuː ˈel/ "S-Q-L")，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统。

VB可将Sql查询语句赋值给Adodc数据控件的属性或提供给Ado数据对象，完成存取数据以及查询、更新和管理关系数据库系统。

以上就是关于在VB中怎样实现对SQL进行 *** 作全部的内容，包括:在VB中怎样实现对SQL进行 *** 作、VB怎么连接 SQL 数据库、vb 用sql 语句创建数据库。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！