浅谈VB6.0使用ADO对象连接数据库

VB6.0使用ADO对象连接数据库：有偿征集原创文章，为您创收 投递文章 减小字体 增大字体 1 定义连接对象Global DBconnect As New ADODB.Connection2 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 连接ODBC DBconnect.ConnectionString = dsn 1 定义连接对象Global DBconnect As New ADODB.Connection2 执行连接语句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.51DBconnect.ConnectionString = FilePathFileName.mdbl 连接OracleDBconnect.Provider = MSADORADBconnect.ConnectionString = user/mypassservicename l 连接SQL ServerDBconnect.Provider = SQLOLEDB.1DBconnect.ConnectionString = DATABASE= ;SERVER= ;UID= ;PWD= ;或者可以使用 DBconnect.Open SERVER , USERID , PASSWORD DBConnect.Open3 取查询结果集Global RS As New ADODB.RecordsetGlobal PS As New ADODB.RecordsetIf RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close RS.Open SQLStr, DBconnect, adOpenKeyset4 执行SQL语句DBconn.Execute SQLStr5 关闭数据库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.ConnectionSet rs = New ADODB.Recordset第一种方法采用的是无源的数据库连接方法conn.ConnectionString = Driver=sql server;server=JSZX3-11;uid=sa;pwd=;database=wzcconn.ConnectionTimeout = 30conn.Openrs.Open select 用户名,密码 from login where 用户名= & Trim(Combo1.Text) & And 密码= & Trim(Text1.Text) & , conn, adOpenStatic, adLockReadOnly, adCmdTextIf rs.EOF = True And rs.BOF Thenm = MsgBox(请重新登录, vbExclamation)Text1.Text = Text1.SetFocusElseForm1.HideEnd Ifrs.Close这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = DSN=login;uid=sa;pwd=;conn.ConnectionTimeout = 30conn.Openrs.Open select 用户名 from login, conn, adOpenStatic, adLockReadOnly, adCmdTextDim i As StringFor t = 0 To Val(rs.RecordCount) - 1i = Trim(rs.Fields(用户名).Value)rs.MoveNextCombo1.AddItem iNext trs.Close连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。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) 直接使用连接语句实现 连接数据库的语句如下： 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.OpenDriver=Microsoft Access Driver(*.mdb);DBQ=& _ Server.MapPath(数据库所在路径) 2.Access OLE DB连接方法： set adocon=Server.Createobject(adodb.connection) adocon.openProvider=Microsoft.Jet.OLEDB.4.0;& _ Data Source= & Server.MapPath(数据库所在路径) 3.SQL server连接方法： set adocon=server.createobject(adodb.recordset) adocon.OpenDriver=SQL Server;Server=(Local);UID=*;PWD=*;& _ database=数据库名; 4.SQL server OLE DB连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openprovider=SQLOLEDB.1;Data Source=RITANT4;& _ user ID=*;Password=*;& _ inital Catalog=数据库名 5.Oracle 连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openDriver=microsoft odbc for oracle;server=oraclesever.world;uid=admin;pwd=pass; 6.Oracle OLE DB 连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openProvider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass; 7.dBase 连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openDriver=microsoft dbase driver(*.dbf);driverid=277;dbq=-; 8.mySQL 连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openDriver=mysql;database=yourdatabase;uid=username;pwd=yourpassword;option=16386; 9.Visual Foxpro 连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openDriver=microsoft Visual Foxpro driver;sourcetype=DBC;sourceDB=*.dbc;Exclusive=No; 10.MS text 连接方法: set adocon=Server.Createobject(adodb.connection) adocon.openDriver=microsoft text driver(*.txt; *.csv);dbq=-;&_ extensions=asc,csv,tab,txt;Persist