VB与数据库的连接步骤以相关语句精品资料.doc

vb6.0连接 sql2000数据库的具体步骤1定义连接对象 Global DBconnect As New ADODB.Connection2执行连接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Closel连接 ODBC DBconnect.ConnectionString = "dsn 1定义连接对象 Global DBconnect As New ADODB.Connection 2执行连接语句 If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l连接 ODBC DBconnect.ConnectionString= "dsn=DataAliasName;uid=UserID;pwd=Passwd;" l直接连接 Access为 Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" / Access 97为 3.51 DBconnect.ConnectionString = "FilePathFileName.mdb" l连接 Oracle DBconnect.Provider = "MSADORA" DBconnect.ConnectionString = "user/mypassservicename l连接 SQL Server DBconnect.Provider = "SQLOLEDB.1" DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD" DBConnect.Open 3取查询结果集 Global RS As New ADODB.Recordset Global PS As New ADODB.Recordset If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close RS.Open SQLStr, DBconnect, adOpenKeyset 4执行 SQL语句 DBconn.Execute SQLStr PDF 文件使用 "pdfFactory Pro" 试用版本创建 5关闭数据库 DBconnect.Close VB使用 ADO数据库可以分为有源数据库和无源数据库，即是否使用了 DSN数据源，如下例： 1、在连接数据库前首先要在 VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。 2、接下来定义 ADO的连接对象，如下所示： Set conn = New ADODB.Connection Set rs = New ADODB.Recordset第一种方法采用的是无源的数据库连接方法 conn.ConnectionString = "Driver=sql server;server=JSZX3-11;uid=sa;pwd=;database=wzc" conn.ConnectionTimeout = 30 conn.Open rs.Open "select用户名,密码 from login where用户名='" & Trim(Combo1.Text) & "' And密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText If rs.EOF = True And rs.BOF Then m = MsgBox("请重新登录", vbExclamation) Text1.Text = "" Text1.SetFocus Else Form1.Hide End If rs.Close这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示： Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "DSN=login;uid=sa;pwd=;" conn.ConnectionTimeout = 30 conn.Open rs.Open "select用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText Dim i As String For t = 0 To Val(rs.RecordCount) -1 i = Trim(rs.Fields("用户名").Value) rs.MoveNext Combo1.AddItemi Nextt PDF 文件使用 "pdfFactory Pro" 试用版本创建 rs.Close连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。 13回答时间： 2010-3-13 09:59 |我来评论向 TA求助回答者： hezi55 |二级采纳率：22%擅长领域：漳州市程序设计电影参加的活动：暂时没有参加的活动相关内容 . 2010-3-15 VB6连 SQL2000数据库，连接字符串，奇怪问题 . 2010-3-13 vb6.0连接 sql2000数据库的详细步骤 . 2008-11-3 MyEclipse6.0.1连接 sql2000数据库 sp4安装了 3个文件导了但是还是. 2 . 2006-6-7在 Delphi8.0中如何连接 SQL2000数据库 . 2010-2-5 C+6.0中程序如何连接 SQL2000数据库更多关于 vb连接 sql数据库的问题>>查看同主题问题： sql2000数据库连接 sql2000等待您来回答 . 0回答 10谁有灵图 9或者灵图 10破解版的主程序呢，DVD导航一体机用的 800*480的. . 0回答 CASIO EF-312D-1A日期和星期调不准怎么办 . 2回答 10我有台富士施乐 PE220的一体机一按复印就显示功能无法使用打印机器. . 0回答 20农夫电影最新网址？发到 langyi_8660179 . 1回答 15CBOX有些台连接不上 . 0回答为何三星 pc套件安装后不能与手机连接？手机型号 g6618 . 1回答佳能一体机 mp498 . 0回答重庆售 CASIO卡西欧品牌手表有哪个系列是比较有档次的，给个正品有打折.更多等待您来回答的问题>> PDF 文件使用 "pdfFactory Pro" 试用版本创建 其他回答共 4条 SQL SERVER 2000数据库代码比较简单，无非数据库连接语句不同，其他和 Access数据库没有大的区别。如果“程序要移动到其他机子上”，移动到的机子上必须同样安装 SQL SERVER 2000数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。下面是 SQL数据库连接代码，请参考： Public conn As New ADODB.Connection conn.ConnectionString = "driver=SQL Server;server=服务器名称;uid=sa;pwd=密码;database=数据库名称" conn.Open回答者： 3300100 |四级 | 2010-3-8 12:30数据库的连接可通过 ADO控件实现，须在工程部件中选择 Micrsoft ADO Data Control6.0(OLEDB),然后在窗体中添加 ADO控件利用 ADO连接数据库有两种方法，具体如下： 1）通过 ADODC属性页实现连接在 ADODC属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下例： Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server其中 sa是用户名；Science_File是数据库名；Data_Server是数据库名。通过下列语句，即可连接到指定的数据库： dim odbcstr as String, adocon As New ADODB.Connection odbcstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Science_File;Data Source=Data_Server" adocon.Open odbcstr'连接到数据库 2)直接使用连接语句实现 PDF 文件使用 "pdfFactory Pro" 试用版本创建 连接数据库的语句如下： Dim ado as ADODC ado.ConnectionString = "Provider=SQLOLEDB.1;Password=" & User_Pwd& "Persist Security Info=True;User ID=" & User_Name & "Initial Catalog="& Data_Name & "Data Source=" & server_name其中 User-Pwd是用户密码；User_Name是用户名；Data_Name是数据库名； server_name是服务器名。 0回答者： xiaoqinhuiyuan-二级 2008-5-4 19:46我个人喜欢用第一种。比较直观，不过第二种也较为简单。回答者：秦萧 |五级 | 2010-3-8 12:37 1.Access数据库的 DSN-less连接方法: set adocon=Server.Createobject("adodb.connection") adoconn.Open"Driver=Microsoft Access Driver(*.mdb);DBQ="&_ Server.MapPath("数据库所在路径") 2.Access OLE DB连接方法： set adocon=Server.Createobject("adodb.connection") adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_ "Data Source=" & Server.MapPath("数据库所在路径") 3.SQL server连接方法： set adocon=server.createobject("adodb.recordset") adocon.Open"Driver=SQL Server;Server=(Local);UID=*;PWD=*;"&_ "database=数据库名;" 4.SQL server OLE DB连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"&_ "user ID=*;Password=*;"&_ "inital Catalog=数据库名" 5.Oracle连接方法: PDF 文件使用 "pdfFactory Pro" 试用版本创建 set adocon=Server.Createobject("adodb.connection") adocon.open"Driver=microsoft odbc for oracle;server=oraclesever.world;uid=admin;pwd=pass;" 6.Oracle OLE DB连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;" 7.dBase连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"Driver=microsoft dbase driver(*.dbf);driverid=277;dbq=-;" 8.mySQL连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"Driver=mysql;database=yourdatabase;uid=username;pwd=yo urpassword;option=16386;" 9.Visual Foxpro连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"Driver=microsoft Visual Foxpro driver;sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;" 10.MS text连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"Driver=microsoft text driver(*.txt; *.csv);dbq=-;"&_ "extensions=asc,csv,tab,txt;Persist SecurityInfo=false;" 11.MS text OLE DB连接方法: set adocon=Server.Createobject("adodb.connection") adocon.open"Provider=microsof.jet.oledb.4.0;data source=your_path;"&_ "Extended Properties'text;FMT=Delimited'"回答者：zhequ-助理二级 1-5 10:12 <% set conn=server.create.createobject("adodb.connection") conn.open "DSN=esinc;UID=admin;PWD=;" PDF 文件使用 "pdfFactory Pro" 试用版本创建 %>上面是用本地服务器 <% set conn=server.create.createobject("adodb.connection") conn.open "driver=driver do microsoft access (*.mdb);UID=admin;PWD=;DBQ="&server.mappath("esinc.mdb") %>这个是在其他地方也可以用 esinc是 mdb的文件名自己改附录资料:不需要的可以自行删除bat文件的基本应用bat是dos下的批处理文件 .cmd是nt内核命令行环境的另一种批处理文件 从更广义的角度来看，unix的shell脚本以及其它操作系统甚至应用程序中由外壳进行解释执行的文本，都具有与批处理文件十分相似的作用，而且同样是由专用解释器以行为单位解释执行，这种文本形式更通用的称谓是脚本语言。所以从某个程度分析，batch, unix shell, awk, basic, perl 等脚本语言都是一样的，只不过应用的范围和解释的平台各有不同而已。甚至有些应用程序仍然沿用批处理这一称呼，而其内容和扩展名与dos的批处理却又完全不同。 = 首先批处理文件是一个文本文件，这个文件的每一行都是一条DOS命令（大部分时候就好象我们在DOS提示符下执行的命令行一样），你可以使用DOS下的Edit或者Windows的记事本(notepad)等任何文本文件编辑工具创建和修改批处理文件。 = 注 = 批处理文件中完全可以使用非dos命令，甚至可以使用不具有可执行特性的普通数据性文件，这缘于windows系统这个新型解释平台的涉入，使得批处理的应用越来越"边缘化"。所以我们讨论的批处理应该限定在dos环境或者命令行环境中，否则很多观念和设定都需要做比较大的变动。 = 其次，批处理文件是一种简单的程序，可以通过条件语句(if)和流程控制语句(goto)来控制命令运行的流程，在批处理中也可以使用循环语句(for)来循环执行一条命令。当然，批处理文件的编程能力与C语言等编程语句比起来是十分有限的，也是十分不规范的。批处理的程序语句就是一条条的DOS命令（包括内部命令和外部命令），而批处理的能力主要取决于你所使用的命令。 = 注 = 批处理文件(batch file)也可以称之为批处理程序(batch program)，这一点与编译型语言有所不同，就c语言来说，扩展名为c或者cpp的文件可以称之为c语言文件或者c语言源代码，但只有编译连接后的exe文件才可以称之为c语言程序。因为批处理文件本身既具有文本的可读性，又具有程序的可执行性，这些称谓的界限是比较模糊的。 = 第三，每个编写好的批处理文件都相当于一个DOS的外部命令，你可以把它所在的目录放到你的DOS搜索路径(path)中来使得它可以在任意位置运行。一个良好的习惯是在硬盘上建立一个bat或者batch目录（例如C:BATCH），然后将所有你编写的批处理文件放到该目录中，这样只要在path中设置上c:batch，你就可以在任意位置运行所有你编写的批处理程序。 = 注 = 纯以dos系统而言，可执行程序大约可以细分为五类，依照执行优先级由高到低排列分别是：DOSKEY宏命令（预先驻留内存），COMMAND.COM中的内部命令（根据内存的环境随时进驻内存），以com为扩展名的可执行程序（由 直接载入内存），以exe位扩展名的可执行程序（由 重定位后载入内存），以bat位扩展名的批处理程序（由 解释分析，根据其内容按优先级顺序调用第2，3，4，5种可执行程序，分析一行，执行一行，文件本身不载入内存） = 第四，在DOS和Win9x/Me系统下，C:盘根目录下的AUTOEXEC.BAT批处理文件是自动运行批处理文件，每次系统启动时会自动运行该文件，你可以将系统每次启动时都要运行的命令放入该文件中，例如设置搜索路径，调入鼠标驱动和磁盘缓存，设置系统环境变量等。下面是一个运行于Windows 98下的autoexec.bat的示例： ECHO OFF PATH C:WINDOWS;C:WINDOWSCOMMAND;C:UCDOS;C:DOSTools; C:SYSTOOLS;C:WINTOOLS;C:BATCH LH SMARTDRV.EXE /X LH DOSKEY.COM /insert LH CTMOUSE.EXE SET TEMP=D:TEMP SET TMP=D:TEMP = 注 = AUTOEXEC.BAT为DOS系统的自动运行批处理文件，由COMMAND.COM启动时解释执行； 而在Win9x环境中，不仅增加支持了 DOSSTART.BAT, WINSTART.BAT 等许多其它自动运行的批处理文件，对AUTOEXEC.BAT 也增加了 .DOS .W40 .BAK .OLD .PWS 等许多变体以适应复杂的环境和多变的需求。 = willsort 编注 = 以下关于命令的分类，有很多值得推敲的地方。常用命令中的本不是命令，而dir、copy等也很常用的命令却没有列入, 而特殊命令中所有命令对我来说都是常用命令。建议将批处理所引用的命令分为内部命令、外部命令、第三方程序三类。而内部命令和外部命令中别有一类是专用于或常用于批处理中的命令可称之为"批处理命令"。 以下摘录MS-DOS 6.22 帮助文档中关于"批处理命令"的文字，当然，其中有些概念和定义已经有些落后了。 批处理命令 批处理文件或批处理程序是一个包含若干MS-DOS命令的正文文件，扩展名为.BAT。当在命令提示符下敲入批处理程序的名称时，MS-DOS成组执行此批处理程序中的命令。 任何在命令提示符下可使用的命令都可用在批处理程序中。此外，下面MS-DOS命令是专门在批处理程序中使用的。 = 常用命令 echo、call、pause、rem(小技巧：用:代替rem)是批处理文件最常用的几个命令，我们就从他们开始学起。 = 注 = 首先, 不是一个命令, 而是DOS 批处理的一个特殊标记符, 仅用于屏蔽命令行回显. 下面是DOS命令行或批处理中可能会见到的一些特殊标记符: CR(0D) 命令行结束符 Escape(1B) ANSI转义字符引导符 Space(20) 常用的参数界定符 Tab(09) ; = 不常用的参数界定符 + COPY命令文件连接符 * ? 文件通配符 "" 字符串界定符 | 命令管道符 < > >> 文件重定向符 命令行回显屏蔽符 / 参数开关引导符 : 批处理标签引导符 % 批处理变量引导符 其次, : 确实可以起到rem 的注释作用, 而且更简洁有效; 但有两点需要注意: 第一, 除了 : 之外, 任何以 :开头的字符行, 在批处理中都被视作标号, 而直接忽略其后的所有内容, 只是为了与正常的标号相区别, 建议使用 goto 所无法识别的标号, 即在 :后紧跟一个非字母数字的一个特殊符号. 第二, 与rem 不同的是, :后的字符行在执行时不会回显, 无论是否用echo on打开命令行回显状态, 因为命令解释器不认为他是一个有效的命令行, 就此点来看, rem 在某些场合下将比 : 更为适用; 另外, rem 可以用于 config.sys 文件中. = echo 表示显示此命令后的字符 echo off 表示在此语句后所有运行的命令都不显示命令行本身 与echo off相象，但它是加在每个命令行的最前面，表示运行时不显示这一行的命令行（只能影响当前行）。 call 调用另一个批处理文件（如果不用call而直接调用别的批处理文件，那么执行完那个批处理文件后将无法返回当前文件并执行当前文件的后续命令）。 pause 运行此句会暂停批处理的执行并在屏幕上显示Press any key to continue.的提示，等待用户按任意键后继续 rem 表示此命令后的字符为解释行（注释），不执行，只是给自己今后参考用的（相当于程序中的注释）。 = 注 = 此处的描述较为混乱, 不如直接引用个命令的命令行帮助更为条理 - ECHO 当程序运行时，显示或隐藏批处理程序中的正文。也可用于允许或禁止命令的回显。 在运行批处理程序时，MS-DOS一般在屏幕上显示（回显）批处理程序中的命令。 使用ECHO命令可关闭此功能。 语法 ECHO ON|OFF 若要用echo命令显示一条命令，可用下述语法： echo message 参数 ON|OFF 指定是否允许命令的回显。若要显示当前的ECHO的设置，可使用不带参数的ECHO 命令。 message 指定让MS-DOS在屏幕上显示的正文。 - CALL 从一个批处理程序中调用另一个批处理程序，而不会引起第一个批处理的中止。 语法 CALL drive:pathfilename batch-parameters 参数 drive:pathfilename 指定要调用的批处理程序的名字及其存放处。文件名必须用.BAT作扩展名。 batch-parameters 指定批处理程序所需的命令行信息。 - PAUSE 暂停批处理程序的执行并显示一条消息，提示用户按任意键继续执行。只能在批处 理程序中使用该命令。 语法 PAUSE REM 在批处理文件或CONFIG.SYS中加入注解。也可用REM命令来屏蔽命令（在CONFIG.SYS 中也可以用分号 ; 代替REM命令，但在批处理文件中则不能替代）。 语法 REM string 参数 string 指定要屏蔽的命令或要包含的注解。 = 例1：用edit编辑a.bat文件，输入下列内容后存盘为c:a.bat，执行该批处理文件后可实现：将根目录中所有文件写入 a.txt中，启动UCDOS，进入WPS等功能。 批处理文件的内容为: 命令注释： echo off 不显示后续命令行及当前命令行 dir c:*.* >a.txt 将c盘文件列表写入a.txt call c:ucdosucdos.bat 调用ucdos echo 你好 显示"你好" pause 暂停,等待按键继续 rem 准备运行wps 注释：准备运行wps cd ucdos 进入ucdos目录 wps 运行wps 批处理文件的参数 批处理文件还可以像C语言的函数一样使用参数（相当于DOS命令的命令行参数），这需要用到一个参数表示符"%"。 %1-9表示参数，参数是指在运行批处理文件时在文件名后加的以空格（或者Tab）分隔的字符串。变量可以从%0到%9，%0表示批处理命令本身，其它参数字符串用%1到%9顺序表示。 例2：C:根目录下有一批处理文件名为f.bat，内容为： echo off format %1 如果执行C:>f a: 那么在执行f.bat时，%1就表示a:，这样format %1就相当于format a:，于是上面的命令运行时实际执行的是format a: 例3：C:根目录下一批处理文件名为t.bat，内容为: echo off type %1 type %2 那么运行C:>t a.txt b.txt %1 : 表示a.txt %2 : 表示b.txt 于是上面的命令将顺序地显示a.txt和b.txt文件的内容。 = 注 = 参数在批处理中也作为变量处理, 所以同样使用百分号作为引导符, 其后跟0-9中的一个数字构成参数引用符. 引用符和参数之间 (例如上文中的 %1 与 a: ) 的关系类似于变量指针与变量值的关系. 当我们要引用第十一个或更多个参数时, 就必须移动DOS 的参数起始指针. shift 命令正充当了这个移动指针的角色, 它将参数的起始指针移动到下一个参数, 类似C 语言中的指针操作. 图示如下: 初始状态, cmd 为命令名, 可以用 %0 引用 cmd arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 经过1次shift后, cmd 将无法被引用 cmd arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 经过2次shift后, arg1也被废弃, %9指向为空, 没有引用意义 cmd arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 遗憾的是, win9x 和DOS下均不支持 shift 的逆操作. 只有在 nt 内核命令行环境下, shift 才支持 /n 参数, 可以以第一参数为基准返复移动起始指针. = 特殊命令 if goto choice for是批处理文件中比较高级的命令，如果这几个你用得很熟练，你就是批处理文件的专家啦。 一、if 是条件语句，用来判断是否符合规定的条件，从而决定执行不同的命令。 有三种格式: 1、if not "参数" = "字符串" 待执行的命令 参数如果等于(not表示不等，下同)指定的字符串，则条件成立，运行命令，否则运行下一句。 例：if "%1"="a" format a: = if 的命令行帮助中关于此点的描述为: IF NOT string1=string2 command 在此有以下几点需要注意: 1. 包含字符串的双引号不是语法所必须的, 而只是习惯上使用的一种"防空"字符 2. string1 未必是参数, 它也可以是环境变量, 循环变量以及其他字符串常量或变量 3. command 不是语法所必须的, string2 后跟一个空格就可以构成一个有效的命令行 = 2、if not exist 路径文件名 待执行的命令 如果有指定的文件，则条件成立，运行命令，否则运行下一句。 如: if exist c:config.sys type c:config.sys 表示如果存在c:config.sys文件，则显示它的内容。 * 注 * 也可以使用以下的用法: if exist command device 是指DOS系统中已加载的设备, 在win98下通常有: AUX, PRN, CON, NUL COM1, COM2, COM3, COM4 LPT1, LPT2, LPT3, LPT4 XMSXXXX0, EMMXXXX0 A: B: C: ., CLOCK$, CONFIG$, DblBuff$, IFS$HLP$ 具体的内容会因硬软件环境的不同而略有差异, 使用这些设备名称时, 需要保证以下三点: 1. 该设备确实存在(由软件虚拟的设备除外) 2. 该设备驱动程序已加载(aux, prn等标准设备由系统缺省定义) 3. 该设备已准备好(主要是指a: b: ., com1., lpt1.等) 可通过命令 mem/d | find "device" /i 来检阅你的系统中所加载的设备 另外, 在DOS系统中, 设备也被认为是一种特殊的文件, 而文件也可以称作字符设备; 因为设备(device)与文件都是使用句柄(handle)来管理的, 句柄就是名字, 类似于文件名, 只不过句柄不是应用于磁盘管理, 而是应用于内存管理而已, 所谓设备加载也即指在内存中为其分配可引用的句柄. = 3、if errorlevel <数字> 待执行的命令 很多DOS程序在运行结束后会返回一个数字值用来表示程序运行的结果(或者状态)，通过if errorlevel命令可以判断程序的返回值，根据不同的返回值来决定执行不同的命令(返回值必须按照从大到小的顺序排列)。如果返回值等于指定的数字，则条件成立，运行命令，否则运