'获得数据库连接
Public Function CreateConnection() As ADODB.Connection
On Error GoTo Handler
mysql怎么安装
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.CommandTimeout = 60
cn.ConnectionString = " DRIVER={MySQL ODBC 5.1 Driver}; " _
css样式文档 & " Password=123; " _
& " Persist Security Info=True; " _
& " User ID=admin; " _
& " Server=192.168.0.10;" _
& " DataBase=db; " _
& " OPTION=3"
cn.Open
Set CreateConnection = cn
Set cn = Nothing
Exit Function
Handler:
MsgBox "数据连接时出现错误！", vbOKOnly + vbInformation
End Function
1、进入mysql，创建一个新用户xuys：
格式：grant 权限 on 数据库名.表名 用户@登录主机 identified by "用户密码";
grant select,update,insert,delete on *.* to ************.88.234 identified by "xuys1234";
查看结果，执行：
use mysql;
格式：grant 权限 on 数据库名.表名 用户@登录主机 identified by "用户密码";
grant select,update,insert,delete on *.* to ************.88.234 identified by "xuys1234";
查看结果，执行：
use mysql;
select host,user,password from user;
可以看到在user表中已有刚才创建的xuys用户。host字段表示登录的主机，其值可以用IP，也可用
主机名，
将host字段的值改为%就表示在任何客户端机器上能以xuys用户登录到mysql服务器，建议在开发时
设为%。
update user set host = '%' where user = 'xuys';
2、
./mysqladmin -uroot -ppwd reload
./mysqladmin -uroot -ppwd shutdown
可以看到在user表中已有刚才创建的xuys用户。host字段表示登录的主机，其值可以用IP，也可用
主机名，
将host字段的值改为%就表示在任何客户端机器上能以xuys用户登录到mysql服务器，建议在开发时
设为%。
update user set host = '%' where user = 'xuys';
2、
./mysqladmin -uroot -ppwd reload
./mysqladmin -uroot -ppwd shutdown
3、
./mysqld_safe --user=root
记住：对授权表的任何修改都需要重新reload，即执行第3步。
如果经过以上3个步骤还是无法从客户端连接，请执行以下操作，在mysql数据库的db表中插入一条记录
：
use mysql;
insert into db
values('192.168.88.234','%','xuys','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y');
update db set host = '%' where user = 'xuys';
重复执行上面的第2、3步。
重复执行上面的第2、3步。
MySQL可以支持ODBC。ODBC的驱动可以通过下载获得。你的连接代码可以如下所示:
Dim cnMySql As New rdoConnection
orientdb cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = "DRIVER={MySQL ODBC 3.51 Driver};" &_
"SERVER=yourHostName;PORT=3306;" &_
"DATABASE=dbName;" &_
"UID=yourUserName;PWD=yourPassword;" &_
"OPTION=3;"
同时可以在此检查选项参数值。
'ODBC +OLEDB
'adoConnection.Open "Provider=MSDASQL.1;Driver={MySQL};host=localhost;DataBase=test;User ID=monty"
'OLEDB
adoConnection.Open "Provider=MySqlProv.2.5;data source=test;User ID=monthy;server=localhost"
Dim adoRecordset As New adodb.Recordset
adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "SELECT * FROM sample2", adoConnection, adOpenKeyset
Debug.Print adoRecordset.GetString
Set DataGrid1.DataSource = adoRecordset
我用VB6做了一个统计文章的程序，远程连接一个购买的商业MYSQL数据库，其中有name和article两个字段，name 数据类型为VARCHAR(4)，article数据类型为 MEDIUMTEXT。现在已经把文本内容（文章）存入到数据库中了，我的问题：如何将article数据导出为 *.txt 保存到本地电脑里（不是服务器空间），请教高手：如何编写这样的代码。先谢了。
我给你一个VB6.0的连接方法吧
先在本机上安装最新的ODBC CONNECTER/mysql
无需设置ODBC,就可以使用.
注意MYSQL的帐户登录是根据主机的,设置好MYSQL的帐户后再做测试.
测试代码:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
mysql面试题csdnconn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=192.168.0.1;" _
& " DATABASE=db_name;" _
& "UID=username;PWD=password; OPTION=3"
conn.Open
'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
& "txt text, dt date, tm time, ts timestamp)"
'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") & "Initial my_ado Result Set " & String(50, "-") 党史网页素材
For Each fld In rs.Fields
Debug.Print fld.name,
Next
Debug.Print
Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close
conn.Closematlab画二元分段函数图像
今天对 vb+mysql编程头脑中渐渐形成模型.VB读MYSQL库,修改库
首先,回答一个vb+myql链接远程数据库的问题,这个问题之前我比较迷惑,有经验的会觉得这不值一提,但从我的经历来看,这个问题会困惑初学者. 我们知道,在vb+access中,如果要链接局域网库,可以把链接库地址直接写为\\ip地址\共享目录\*.mdb ,要说明的是局域网中mdb所在的目录一定要共享.如果对库进行修改,要完全共享.但这种写法链接不了远程固定ip服务器.但链接远程服务上的mysql数据库,这是可以实现的.写法为
dim conn as New ADODB.Connection
dim rs as New ADODB.RecordSet
dim connstr as String
conn.open ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=远程服务器IP地址;" & "DATABASE=data;" & "UID=root;PWD=root;OPTION=3"
如果是本地服务器,只需要将远程服务器地址改为:localhost . UID和PWD换成你MYSQL库访问名称和密码即可
使用vb读MYSQL库.
dim conn as New ADODB.Connection
dim rs as New ADODB.RecordSet
dim connstr as String
ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & "DATABASE=data; " _
& "UID=root;PWD=root;OPTION=3" '链接字符串赋值
conn.Open ConnStr
rs.Open "select name,pw,userlevel from user where name='" & Text1.Text & "' and _
pw='" & Text2.Text & "'", conn, adOpenStatic, adLockOptimistic
然后通过rs.Fields("name")即可访问当前记录内容.
使用vb修改MYSQL库
dim conn as New ADODB.Connection
dim rs as New ADODB.RecordSet
dim connstr as Stringdim conn as New ADODB.Connection
dim rs as New ADODB.RecordSet
dim connstr as String
ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & "DATABASE=data;" _
& "UID=root;PWD=root;OPTION=3" '链接字符串赋值
rs.Open "select name,pw,userlevel from user where name='" & LogUserName & "' and _
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论