vb6.0连接sql2000数据库的具体步骤

vb6.0连接sql2000数据库的具体步骤悬赏分：200|解决时间：2010-3-1310:01|提问者：能者天下初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。

最佳答案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="dsn1．定义连接对象Global DBconnect As New ADODB.Connection2．执行连接语句If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then DBconnect.Closeλ连接ODBCDBconnect.ConnectionString="dsn=DataAliasName;uid=UserID;pwd=Passwd;"λ直接连接Access为Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为3.51 DBconnect.ConnectionString="FilePathFileName.mdb"λ连接OracleDBconnect.Provider="MSADORA"DBconnect.ConnectionString="user/mypass@servicenameλ连接SQL ServerDBconnect.Provider="SQLOLEDB.1"DBconnect.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.CloseVB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoft activeX Data objects2.6library和microsoft activeX Data objects recordset2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：Set conn=New ADODB.ConnectionSet rs=New ADODB.Recordset第一种方法采用的是无源的数据库连接方法conn.ConnectionString="Driver={sqlserver};server=JSZX3-11;uid=sa;pwd=;database=wzc"conn.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=0To Val(rs.RecordCount)-1i=Trim(rs.Fields("用户名").Value)rs.MoveNextCombo1.AddItem iNext trs.Close连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

13回答时间：2010-3-1309:59|我来评论向TA求助回答者：hezi55|二级采纳率：22%擅长领域：漳州市程序设计电影参加的活动：暂时没有参加的活动相关内容•2010-3-15VB6连SQL2000数据库，连接字符串，奇怪问题•2010-3-13vb6.0连接sql2000数据库的详细步骤•2008-11-3MyEclipse6.0.1连接sql2000数据库sp4安装了3个文件导了但是还是 (2)•2006-6-7在Delphi8.0中如何连接SQL2000数据库•2010-2-5C++6.0中程序如何连接SQL2000数据库更多关于vb连接sql数据库的问题>>查看同主题问题：sql2000数据库连接sql2000等待您来回答更多等待您来回答的问题>>其他回答共4条SQL SERVER2000数据库代码比较简单，无非数据库连接语句不同，其他和Access数据库没有大的区别。

如果“程序要移动到其他机子上”，移动到的机子上必须同样安装SQL SERVER 2000数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。

下面是SQL数据库连接代码，请参考：Public conn As New ADODB.Connectionconn.ConnectionString="driver={SQL Server};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"conn.Open回答者：3300100|四级|2010-3-812: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.Connectionodbcstr="Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=Science_File;Data Source=Data_Server"adocon.Open odbcstr'连接到数据库2)直接使用连接语句实现连接数据库的语句如下：Dim ado as ADODCado.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-419:46我个人喜欢用第一种。

比较直观，不过第二种也较为简单。

回答者：秦萧|五级|2010-3-812:371.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连接方法:set adocon=Server.Createobject("adodb.connection")adocon.open"Driver={microsoft odbc fororacle};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;userid=admin;password=pass;"7.dBase连接方法:set adocon=Server.Createobject("adodb.connection")adocon.open"Driver={microsoft dbasedriver(*.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 Foxprodriver};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-510:12<%set conn=server.create.createobject("adodb.connection")conn.open"DSN=esinc;UID=admin;PWD=;"%>上面是用本地服务器<%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的文件名自己改回答者：zwfyxy|四级|2010-3-812:51有现成的《学生信息管理信息系统》，SQL2000数据库，加HI发给你。