编写数据库应用程序必看_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
编写数据库应用程序必看
v​b​+​数​据​库
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢VB2005打造SQLServer数据库阅读器-vb-电脑编程网VB2005打造SQLServer数据库阅读器作者：VB老头　和相关&&摘要：SQL语言是世界上最流行的编程语言，目前，企业管理应用平台大多采用SQLServer。对于数据的浏览，除了应用平台软件以外，还可以通过Microsoft SQLServer的企业管理器等工具查阅数据。Microsoft Visual Studio .NET 2005中的Visual Basic .NET 2005（以下简称VB2005）作为应用程序的开发“利器”也表现在数据库应用程序的开发上，她对SQLServer数据库的支持有着很好的接口，我们今天就来浅谈VB2005在SQLServer数据库编程中的一些技巧和方法，并制作一个SQLServer数据库阅读器。 【编程分析】 基于SQLServer的管理模式，我们应用最广泛的是局域网内的多用户对数据库的同时操作，那么我们需要知道的是:如何获取局域网内所有SQLServer的名称？每个SQLServer中有哪些数据库？每个数据库文件中有哪些数据表？每个数据表中有些什么字段，又有多少记录？这就是本文的中心内容！ 一、SQLServer的管理模式 微软的SQLServer是一个关系数据库管理系统，它为分布式客户/服务结构程序设计提供了良好的开发环境。SQLServer对数据库按C/S模式进行管理，也就是说，应用软件虽然安装在各个客户端上，但客户端的应用软件处理的数据则是存放在SQL服务端中。每个SQLServer数据库管理系统中除系统数据库外，还可以存放多个用户数据库，每个用户数据库中包括:数据表、关系图、视图、存储过程、用户等信息。和Access数据库一样，每个用户数据库中可以存放多个数据表，每个表中可以有多个字段和多个记录。 二、局域网SQL服务器的查询 我们知道，封装在Microsoft SQL Server 2000中的SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象），是SQLServer企业管理器所使用的应用程序接口，因此,使用SQLDMO的应用程序可以执行SQLServer企业管理器执行的所有功能，包括SQL服务器名称、数据库名称、数据表名称、记录数据等的获取，乃至数据库的备份和恢复。今天，我们将抛弃这个对象，使用局域网本身的功能来查找SQL服务器。原理如下: 当客户端请求连接远端计算机时，Dbnetlib.dll将打开所指定的计算机网络名上的UDP端口1434的连接，所有运行SQLServer2000的服务器都监听网络内的此端口，并返回一个监听服务器上运行的所有实例的数据包。由于这些都是明文传输的，所以我们可以很容易探测一个IP地址的1434端口，获得该IP地址上运行的SQLServer的相关信息，主要包括主机名称、实例名称、版本、管道名称以及使用的端口等。经笔者研究，只要客户端发送02一个字节出去，SQL服务器就能产生回应，从而可以探测到局域网中所有的SQL服务器名称。首先，在VB2005中新建一个名为GetSql的类，编程方法和核心代码如下：Imports System.Net Imports System.Net.Sockets Imports System.Collections.Specialized Public Class GetSql '定义协议、地址、端口和要发送的数据，代码略 '发送数据并返回SQL服务器 Function Send() As ArrayList mClient=New UdpClient Dim aTemp As New ArrayList '发送的目标、广播地址 Dim Host As New IPEndPoint(IPAddress.Parse(Me.StrHost),Me.IntPort) Try '发送数据 mClient.Send(B,1,Host) '循环返回网络内SqlServer While True '接收的字节数组 Dim BR As Byte()=mClient.Receive(host) Dim A As System.Text.Encoding=System.Text.Encoding.Default '前三个字符为非打印字符略 …… '解析获取的文本 Public Class SqlServer '用NameValueCollection返回，代码略 End Class 调用以上类，实现局域网SQL服务器查找的编程方法和核心代码如下: Dim a As ArrayList Dim g As New GetSql a=g.Send() For Each c As SqlServer In a cbServer.Items.Add(c) Next '保存名称到组合框三、获取数据库和数据表 获取一个SQL服务器上的所有数据库，我们要着眼于SQL服务器中的Master系统数据库，实际上，SQL服务器中所有的数据库名称都存放在Master这个系统数据库的sysdatabases数据表中的name字段中，从这里就可以读取到所有的数据库名称。同样的，要获取一个数据库中的所有数据表，可以通过数据库中sysobjects数据表的name字段获取，在sysobjects数据表中，xType字段定义了数据表的类型，其中，类型为“u”的表示用户创建的数据表，这是本文所关心的，当然，此表中还存放了系统表、视图、存储过程等。 VB.NET继承了VB6的大部分功能，在这里，我们将采用继承的ADODB来实现SQL数据库的操作，ADODB目前几乎支持所有的数据库。使用ADODB操作SQL数据库，首先是要创建一个连接并打开，然后创建一个数据集并打开，就可以对数据库记录进行各种操作了。在连接数据源时，涉及一个连接字符串，其中包括驱动类型、服务器名、用户名、密码、数据库名，ADODB方法的连接字符串格式为:&driver={SQL Server};server=服务器名称;uid=用户名;pwd=密码;database=数据库名称&，通过该对象的Open方法可以打开连接，而Close方法可以关闭连接。在本程序中定义了一个通用的模块函数，能完成SQL服务器中某库某表某项的值的读取，通过读取上面指定的位置，就能获取到SQL服务器中的数据库名称，某个数据库中的所有数据表，编程方法和核心代码如下：Function SQL_DB_Tbl(serverName,userName,PassWd,dbName,tblSql,FieldName,ListName) As Boolean '最后一个参数为列表框，其它参数为String类型 Dim Rs As New ADODB.Recordset '数据集 Dim Cn As New ADODB.Connection '连接 '连接字符串cnStr，代码略 Cn.ConnectionString=cnStr Cn.Open() '打开连接 '打开数据集，后面两个参数表明了打开方式，参见源码 Rs.Open(tblSql,Cn,…,…) While Not Rs.EOF ListName.Items.Add(Rs.Fields(FieldName).Value) Rs.MoveNext() '下一记录 End While End Function 调用以上函数查找所有数据库和数据库中的所有数据表的编程方法核心代码如下：SQL_DB_Tbl(cbServer.Text,TextBox1.Text,TextBox2.Text,&master&,&select * from sysdatabases&,&name&,ListBox1) '这里将数据库名称保持到列表框ListBox1中 SQL_DB_Tbl(cbServer.Text,TextBox1.Text,TextBox2.Text,ListBox1.SelectedItem.ToString,&Select * from sysobjects where xType='u'&,&name&,ListBox2) '这里将数据表名称保持到列表框ListBox2中 四、显示表中的记录 在本文中，我们将同DataGrid控件来显示数据表中的记录，为了显示数据，我们同样需要连接到数据源。在VB.NET中，System.Data和System.Data.OleDb这两个空间的所有类几乎都可以支持所有类型的数据源中的数据，本文将使用OleDbconnection类（ADO.NET类中的一种）进行数据源的连接，这个类的构造函数接受一个可选参数，称为连接字符串，其构成除驱动类型为&Provider=SQLOLEDB&外，其它4个部分与上面ADODB的连接字符串相同。下面给出该类打开数据库和数据集的编程方法和核心代码：Imports System.Data.OleDb 1、打开SQL数据库 Public pCn As OleDbConnection Function OpenDataBase(…) '本函数的4个参数和以上SQL_DB_Tbl函数的前4个参数相同 '连接字符串，代码略 pCn = New OleDbConnection(cnStr) pCn.Open() '打开连接 If pCn.State=ConnectionState.Open Then Return True '打开成功 Else Return False '打开失败 End If End Function 2、运行SQL语句返回一个数据集 首先定义一个DataSet数据集对象和一个OleDbDataAdapter数据容器对象，然后通过容器对象向数据集对象填充数据，并返回数据集中的数据。 Public Function RunSqlCmd(ByVal CmdStr As String) As DataSet Dim TempDataSet As DataSet=New DataSet '定义一个数据容器 Dim TempDP As OleDbDataAdapter=New OleDbDataAdapter TempDP.SelectCommand=New OleDbCommand(CmdStr,pCn) TempDP.Fill(TempDataSet) '填充数据集 Return TempDataSet '返回数据集 End Function 3、用DataGrid控件显示数据 在这里，需要定义一个数据集对象，接着打开数据库，随后执行SQL语句返回数据集，并映射到DataGrid控件的DataSource属性上，这样控件就能显示数据集中的数据了，以上就是本文所采用的数据绑定方法，编程方法和核心代码如下：Dim tDs As DataSet=New DataSet OpenDataBase(cbServer.Text,TextBox1.Text,TextBox2.Text,ListBox1.SelectedItem.ToString) tDs=RunSqlCmd(&select * from & & ListBox2.SelectedItem.ToString) DataGrid1.DataSource=tDs.Tables(0) 【编程实现】 启动VB2005，新建应用程序项目，向窗体添加必要的控件（其中设置DataGrid控件ReadOnly=True，这样可以防止数据被误修改），合理布局，并完善代码。程序运行结果如图所示，调试环境：WinXp+VB2005，源码下载地址： http://family1.chinaok.com/down/200632/scode.rar 。相关资料：｜｜｜｜｜｜｜VB2005打造SQLServer数据库阅读器来源网络，如有侵权请告知，即处理！编程Tags：　　　　　　　　　　　　　　　　&　　　　　　　　　　　　　　　　　　　　汇聚2000万达人的兴趣社区下载即送20张免费照片冲印
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1844)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_095071',
blogTitle:'为什么VB.net的Windows应用程序操作SQL Server2005会出现提示数据插入成功而并没有把数据插入到数据库中',
blogAbstract:'探索VB.net操作自带SQL数据库无法插入数据的根源',
blogTag:'软件,编程,探索',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:3,
publishTime:4,
permalink:'blog/static/',
commentCount:4,
mainCommentCount:3,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}SQL Server 数据库设计与实现_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
&&¥2.00
&&¥2.00
&&¥2.00
&&¥1.00
&&¥1.00
&&¥2.00
喜欢此文档的还喜欢
SQL Server 数据库设计与实现
S​Q​L​ ​S​e​r​v​e​r​ ​数​据​库​设​计​与​实​现​【​未​来​教​育​】
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢