求vb6.0连接mysql的代码

用ADO控件吧，在工程里找他Microsoft ADO Data Control 60,拖到窗体上

Private Sub 事件过程()

Adodc1ConectionString="Driver={SQL Server};Server=服务器IP地址;UID=用户名PWD=密码;DataBase=数据库名"

Adodc1RecordSource="SQL 查询 *** 作语句"

Adodc1Refresh

End Sub

这样就行了，你要使用他Adodc1名就是数据集合，如：

Set DataGrid1DataSource=Adodc1

*** 作数据集合就这样写，比如给文本框数据（必须要先判断连接异常）

If Not Adodc1RecordSetEOF Then

Text1=Adodc1RecordSetFields("字段名")

End If

*** 作数据集合就这样写（必须先加上Adodc1Refresh）

Adodc1RecordSetAddNew '添加记录

Adodc1RecordSetMoveNext '移至下一条记录

获取连接状态和查询时机：

Dim I as Time;

I=Adodc1TimeOut

1Access数据库的DSN-less连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconnOpen"Driver={Microsoft Access Driver(mdb)};DBQ="& _

ServerMapPath("数据库所在路径")

2Access OLE DB连接方法：

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Provider=MicrosoftJetOLEDB40;"& _

"Data Source=" & ServerMapPath("数据库所在路径")

3SQL server连接方法：

set adocon=servercreateobject("adodbrecordset")

adoconOpen"Driver={SQL Server};Server=(Local);UID=;PWD=;"& _

"database=数据库名;"

4SQL server OLE DB连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"provider=SQLOLEDB1;Data Source=RITANT4;"& _

"user ID=;Password=;"& _

"inital Catalog=数据库名"

5Oracle 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Driver={microsoft odbc for oracle};server=oracleseverworld;uid=admin;pwd=pass;"

6Oracle OLE DB 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Provider=OraOLEDBOracle;data source=dbname;user id=admin;password=pass;"

7dBase 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Driver={microsoft dbase driver(dbf)};driverid=277;dbq=------------;"

8mySQL 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"

9Visual Foxpro 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=dbc;Exclusive=No;"

10MS text 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Driver={microsoft text driver(txt; csv)};dbq=-----;"&_

"extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

11MS text OLE DB 连接方法:

set adocon=ServerCreateobject("adodbconnection")

adoconopen"Provider=microsofjetoledb40;data source=your_path;"&_

"Extended Properties'text;FMT=Delimited'"

回答者：zhequ - 助理 二级 1-5 10:12

<%

set conn=servercreatecreateobject("adodbconnection")

connopen "DSN=esinc;UID=admin;PWD=;"

%>

上面是用本地服务器

<%

set conn=servercreatecreateobject("adodbconnection")

connopen "driver=driver do microsoft access (mdb);UID=admin;PWD=;DBQ="&servermappath("esincmdb")

%>

这个是在其他地方也可以用 esinc是mdb的文件名自己改

05 //建立数据库连接字符串

06 string connectionstring = "server=localhost;database=northwind;

07 integrated security=sspi";

08 //将连接字符串传入sqlconnection对象的构造函数中

09 sqlconnection mysqlconnection = new sqlconnection(connectionstring);

10 try

11 {

12 //打开连接

13 mysqlconnectionopen();

29 }

catch (exception err)

{

lblinfotext = "读取数据库出错";

lblinfotext += errmessage;

}

finally

{

//关闭与数据库的连接

mysqlconnectionclose();

lblinfotext += "＜br＞＜b＞关闭连接后的mysqlconnection对象的状态为：＜/b＞";

lblinfotext += mysqlconnectionstatetostring();

}

}

}

以上就是关于求vb6.0连接mysql的代码全部的内容，包括:求vb6.0连接mysql的代码、连接数据库都有几种方法、ASP中 ADO连接SQLserver2000数据库语句等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！