vb连接SQL数据库技术.pdfVIP

vb连接sql数据库:VB访问SQL Server数据库 技术全揭密 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article53478.html 　　、引言 　　SQL Server是微软推出中小型网络数据库系统是目前最常用数据库系统的随着SQL Server网络数据库应用 日益增多这种Web数据库应用系统正常运行般依赖于已存在用户数据库创建维护数据库工作可用SQL Server提 供SQL Enterprise Manager工具来进行如能提供种定制数据库管理工具通过管理应用来管理数据库及其设备对 用户来说无疑是最理想 　　Visual Basic作为种面向对象可视化编程工具具有简单易学灵活方便和易于扩充特点而且Microsoft为其提 供了和SQL Server通信API集及工具集因此它越来越多地用作大型公司数据和客户机—服务器应用前端和后端 Microsoft SQL Server相结合VB能够提供个高性能客户机—服务器方案 　　 2、VB访问SQL Server数据常用思路方法 　　使用Visual Basic作为前端开发语言和SQL Server接口有几种常用思路方法即 　　①数据访问对象/Jet 　　②为ODBC API编程 　　③使用SQL ServerVisual Basic库(VBSQL)为DB库API编程 　　④RDO 远程数据对象(RemoteData Objects) 　　⑤ADO 数据对象(Active Data Objects) 　　1、数据访问对象/Jet 　　VB支持Data Access Objects(DAOs)子集DAO思路方法虽然不是性能最好管理客户机—服务器的间对话 方式但它确有许多优点DAO/Jet是为了实现从VB访问Access数据库而开发接口对象使用DAOs访问SQL Server过程如下:应用准备好语句并送至JetJet引擎(MASJT200.DLL)优化查询载入驱动管理器并和的通讯驱动管 理器(ODBC.DLL)通过驱动器(SQLSRVR.DLL)实现连接到数据源翻译并向SQL Server提交SQL语句且返回结果 下面是个用DAOs访问SQL ServerVB例子 　　注释:Form Declarations 　　Dim mydb As Database 　　Dim mydyna As Dyna オ 　　Private Sub Form_Load 　　Set mydb = OpenDatabase(, False, False, ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales) 　　Set mydyna = mydb CreateDyna(Select*from Customers) オ 　　End Sub 　　上述例子是以非独占、非只读方式打开sales数据库并检索Customers表中所有字段OpenDatabase最后个 参数是ODBC连接串参数它指明了Microsoft Access连接到SQL Server所需要知道些内容其中“DSN”为数据 源名“WSID”为工作站名“DATABASE”为所要访问数据库名 　　2、利用ODBC API编程 　　ODBC(Open Database Connectivity)思想是访问异种数据库种可移植方式和数据资源对话公用组装在个 称为驱动管理器(ODBC.DLL)动态连接中应用驱动管理器中而驱动管理器反过来通过驱动器(SQLSRVR.DLL)把 它们送到服务器中 　　下面代码使用上面些先登录到个服务器数据库并为随后工作设置了语句句柄 　　Global giHEnv As Long 　　Global giHDB As Long 　　Global giHStmt As Long 　　Dim myResult As eger 　　Dim myConnection As Srting 　　Dim myBuff As String*256 　　Dim myBufflen As Integer 　　If SQLAllocEnv(giHEnv)SQL_SUCCESS Then 　　MsgBoxAllocation couldn注释:t happen! 　　End If 　　If SQLAllocConnect(