代码如下:
public
function
exemysql(byval
sql
as
string)
as
adodb.recordset
sql
=
trim$(sql)
set
conn
=
new
adodb.connection
set
rs
=
new
adodb.recordset
conn.open
"driver=mysql
odbc
3.51
driver"
&
_
"server=服务器地址"
&
_
"port=3306"
&
_
"database=数据库名"
&
_
"uid=用户名"
&
_
"pwd=密码"
conn.defaultdatabase
=
"数据库名"
conn.cursorlocation
=
aduseclient
set
rs.activeconnection
=
conn
rs.locktype
=
adlockbatchoptimistic
rs.cursortype
=
adopenkeyset
rs.open
sql
set
exesql
=
rs
set
rs
=
nothing
set
conn
=
nothing
end
function
《MySQL 8.0.17》百度网盘资源免费下载:
链接: https://pan.baidu.com/s/1PQdVY20q0er1aX7mgxu-QQ
?pwd=988a 提取码: 988aMySQL 8.0.17是一种开放源代码的关系型数据库管理系统,使用最常用的数据库管理语言–结构化查询语言SQL进行数据库管理。MySQL 8.0.17优化了SQL查询算法,有效地提高查询速度;支持多线程,充分利用CPU资源,支持多用户;提供用于管理、检查、优化数据库 *** 作的管理工具。由于其体积小、速度快、总体拥有成本低,目前被广泛地应用在Internet上的中小型网站中。
最简单的办法是:在VB里添加一个ADO部件,将其放到窗体中,然后右键选择属性,在其属性页的下面有个生成连接字符串的项,点击其后的按钮,然后一步步的来做(很简单的),然后连接字符串就会在那里生成,只要拷贝这个字符串,就可以用ADODB来连接了。。。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)