VB远程操作MYSQL数据库.docx

获得数据库连接Public Function CreateConnection() As ADODB.Connection On Error GoTo Handler Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.CommandTimeout = 60 cn.ConnectionString = DRIVER=MySQL ODBC 5.1 Driver; _ & Password=123; _ & Persist Security Info=True; _ & User ID=admin; _ & Server=0; _ & DataBase=db; _ & OPTION=3 cn.Open Set CreateConnection = cn Set cn = Nothing Exit Function Handler: MsgBox 数据连接时出现错误！, vbOKOnly + vbInformation End Function1、 进入mysql，创建一个新用户xuys： 格式：grant 权限 on 数据库名.表名 用户登录主机 identified by 用户密码; grant select,update,insert,delete on *.* to xuys34 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 3、 ./mysqld_safe -user=root 记住：对授权表的任何修改都需要重新reload，即执行第3步。 如果经过以上3个步骤还是无法从客户端连接，请执行以下操作，在mysql数据库的db表中插入一条记录 ： use mysql; insert into db values(34,%,xuys,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y); update db set host = % where user = xuys; 重复执行上面的第2、3步。MySQL可以支持ODBC。ODBC的驱动可以通过下载获得。你的连接代码可以如下所示:Dim cnMySql As New rdoConnectioncnMySql.CursorDriver = rdUseOdbccnMySql.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 conn.ConnectionString = DRIVER=MySQL ODBC 3.51 Driver; _ & SERVER=; _ & 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 , 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.Close今天对 vb+mysql编程头脑中渐渐形成模型.VB读MYSQL库,修改库 首先,回答一个vb+myql链接远程数据库的问题,这个问题之前我比较迷惑,有经验的会觉得这不值一提,但从我的经历来看,这个问题会困惑初学者. 我们知道,在vb+access中,如果要链接局域网库,可以把链接库地址直接写为ip地址共享目录*.mdb ,要说明的是局域网中mdb所在的目录一定要共享.如果对库进行修改,要完全共享.但这种写法链接不了远程固定ip服务器.但链接远程服务上的mysql数据库,这是可以实现的.写法为dim conn as New ADODB.Connectiondim rs as New ADODB.RecordSetdim connstr as Stringconn.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.Connectiondim rs as New ADODB.RecordSetdim connstr as StringConnStr = 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.Connectiondim rs as New ADODB.RecordSetdim connstr as Stringdim conn as New ADODB.Connectiondim rs as New ADODB.RecordSetdim connstr as StringConnStr = 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 _pw= & LogUserPw & , conn, adOpenStatic, adLockOptimisticrs.Close rs.Open update user set pw= & Trim(newpw.Text) & where name= & LogUserName & and_pw= & LogUserPw & conn.close有一个问题现在还比较困惑,如果表中只有一条记录.当你使用查询定位到此记录时,BOF与EOF均为真,而此时是不允许访问表中认何值的。这样有一个问题比较难以解决，当库中只一条记录时，如何对其进行取值？如何对其进行修改？今天晚了，有了答案我会继续整理上来。希望对大家有帮助。本文来自CSDN博客，转载请标明出处：/jomakzhao/archive/2007/03/23/1539348.aspxMySQL修改密码方法总结首先要声明一点，大部分情况下，修改MySQL是需要有mysql里的root权限的， 所以一般用户无法更改密码，除非请求管理员。方法一使用PHPmyadmin，这是最简单的了，修改MySQL库的user表， 不过别忘了使用PASSword函数。方法二使用MySQLadmin，这是前面声明的一个特例。 mysqladmin -u root -p password mypasswd 输入这个命令后，需要输入root的原密码，然后root的密码将改为mypasswd。把命令里的root改为你的用户名，你就可以改你自己的密码了。 当然如果你的mysqladmin连接不上mysql server，或者你没有办法执行mysqladmin， 那么这种方法就是无效的。 而且mysqladmin无法把密码清空。下面的方法都在mysql提示符下使用，且必须有mysql的root权限：方法三 MySQL INSERT INTO mysql.user (Host,User,Password) VALUES(%,jeffrey,PASSWORD(biscuit); mysql FLUSH PRIVILEGES 确切地说这是在增加一个用户，用户名为jeffrey，密码为biscuit。 在mysql中文参考手册里有这个例子，所以我也就写出来了。注意要使用PASSWORD函数，然后还要使用FLUSH PRIVILEGES。方法四 和方法三一样，只是使用了REPLACE语句 MySQL REPLACE INTO mysql.user (Host,User,Password) VALUES(%,jeffrey,PASSWORD(biscuit); mysql FLUSH PRIVILEGES方法五 使用SET PASSword语句， MySQL SET PASSWORD FOR jeffrey% = PASSWORD(biscuit); 你也必须使用PASSWORD()函数， 但是不需要使用FLUSH PRIVILEGES。方法六使用GRANT . IDENTIFIED BY语句 MySQL GRANT USAGE ON *.* TO jeffrey% IDENTIFIED BY biscuit; 这里PASSword()函数是不必要的，也不需要使用FLUSH PRIVILEGES。注意： PASSWORD() 不是以在Unix口令加密的同样方法施行口令加密。怎样在vc、Delphi、VB等程序中使用MySQL呢(mysql odbc驱动程序的使用) 我们经常会遇到这样问题，怎样在非web程序或ASP程序中使用mysql数据库呢?对于这个问题有两个解决方案:1.使用MySQL提供的api函数库。很多有名的MySQL客户端工具就是这样实现的，大名鼎鼎的winmysql工具就是这样的。这在大部分的开发工具中都可以实现。比如vc,bcb,Delphi,VB等，只要能调用第三方的api就能实现。但对程序员的要求很高，而且要熟悉一套mysql的api函数集，这不是对每个人都很轻松的事。而且这种方法不能用于ASP等程序，因为它不支持com对象。2。第二种是使用myodbc驱动程序。你可以到www.MySQL.com下载myodbc驱动程序，然后照着下面的做就可以了第一种选择是下载完全安装包，这种包很大，但对于我们来说有用的只有myodbc.dll这个文件，却要下载这么大的文件，不太合适。当然，如果你很菜的话，我建议你选择这种方式，这样容易些，但不符合cfans的作风，是吧。第二种是直接下载myodbc.dll文件，只有几百k,但不太容易使用，本人经过很久摸索才找到使用它的方法。首先你将包解开，将myodbc.dll 文件放到windowssystem 或 winntsystem32目录下，这取决于你的系统是win9x还是winnt(win2k)，你应该知道吧。然后打开一纯文本编辑器，如editplus,notpad之类，(取决于你的喜好)将下面一段话保存为一文件，扩展名为.reg,知道了吧，这是注册表文件，不要搞错呀如果你用的是win2k请将第一行换成 Windows Registry Editor Version 5.00WindowsRegistryEditorVersion4.00 HKEY_LOCAL_MacHINESOFTWAREODBCODBCINST.INImyodbcdriver UsageCount=dword:00000002 Driver=C:WINNTSystem32myodbc.dll Setup=C:WINNTSystem32myodbc.dll SQLLevel=1 FileUsage=0 DriverODBCVer=02.50 ConnectFunctions=YYY APILevel=1 CpTimeout=120 HKEY_LOCAL_MACHINESOFTWAREODBCODBCINST.INIODBCDrivers myodbcdriver=installed保存后，双击刚才的文件，应该叫 xxx.reg 吧，然后选择确定，ok，搞定了。然后你打开odbc设置程序，建一新数据源，选择myodbc驱动程序,剩下的就看你自己了。修改MYSQL密码的几种方式方法一:(适用于管理员或者有全局权限的用户重设其它用户的密码)进入命令行模式mysql -u root mysqlmysql UPDATE user SET password=PASSWORD(”new password”) WHERE user=name;mysql FLUSH PRIVILEGES;mysql QUIT方法二:(应用同上,只是方法不同)mysql -u root mysqlmysql SET PASSWORD FOR name=PASSWORD(new password);mysql QUIT(以上两种方法我不常用,如果是管理员,我会用其它如phpmyadmin或者MYSQL-front 等工具来管理用户权限,比较直观又方便)最后必杀技:mysqladmin -u root “old password” “new password”解:以上有name的,请用你的用户名来替代.有new password请输入你想要设置的密码.如果 MySQL 正在运行，首先杀之： killall -TERM mysqld(如果是windows,直接调出进程管理器,结束之)以安全模式启动 MySQL ：/usr/bin/safe_mysqld skip-grant-tables &(windows 下 mysql安装所以盘/mysql/bin/safe_mysqld skip-grant-tables )就可以不需要密码就进入 MySQL 了。然后就是use mysqlupdate user set password=password(”new_pass”) where user=”root”;flush privileges;重新杀 MySQL ，用正常方法启动 MySQL 。MySQL数据库不能远程访问的解决办法MySQL数据库不允许从远程访问怎么办?本文提供了三种解决方法： 1、改表法。可能是你的帐号不允许从远程登陆，只能在localhost。这个时候只要在localhost的那台电脑，登入mysql后，更改 mysql 数据库里的 user 表里的 host 项，从localhost改称%mysql -u root -pvmwaremysqluse mysql;mysqlupdate user set host = % where user = root;mysqlselect host, user from user;2、授权法。例如，你想myuser使用mypassword从任何主机连接到mysql服务器的话。GRANT ALL PRIVILEGES ON *.* TO myuser%IDENTIFIED BY mypassword WITH GRANT OPTION;如果你想允许用户myuser从ip为的主机连接到mysql服务器，并使用mypassword作为密码GRANT ALL PRIVILEGES ON *.* TO myuserIDENTIFIED BYmypassword WITH GRANT OPTION;我用的第一个方法,刚开始发现不行,在网上查了一下,少执行一个语句 mysqlFLUSH RIVILEGES使修改生效，就可以了另外一种方法：在安装mysql的机器上运行：1、d:mysqlbinmysql -h localhost -u root/这样应该可以进入MySQL服务器2、mysqlGRANT ALL PRIVILEGES ON *.* TO root%WITH GRANT OPTION/赋予任何主机访问数据的权限3、mysqlFLUSH PRIVILEGES/修改生效4、mysqlEXIT/退出MySQL服务器这样就可以在其它任何的主机上以root身份登录啦。设置mysql连接数的三种方法作者:Morningdew 日期:2010-5-29 15:50:16有时候，我们需要对mysql的连接数进行设置或修改，具体是怎么实现的呢？今天就给大家介绍三种修改mysql连接数的方法，在介绍这三种方法之前，先向大家介绍查看mysql进程的一些信息的方法。通常，MySQL的最大连接数默认是100 。客户端登录：mysql -uusername -ppassword设置新的最大连接数为200：mysql set GLOBAL max_connections=200显示当前运行的Query：mysql show processlist显示当前状态：mysql show status退出客户端：mysql exit查看当前最大连接数：mysqladmin -uusername -ppassword variables |find max_conMYSQL数据库安装完成后，默认最大连接数是100，一般流量稍微大一点的论坛或网站这个连接数是远远不够的，增加默认MYSQL连接数的方法有三个。方法一：进入MYSQL安装目录 打开MYSQL配置文件 my.ini 或 f查找 max_connections=100 修改为 max_connections=1000 服务里重起MYSQL即可方法二：MySQL的最大连接数默认是100客户端登录：mysql -uusername -ppassword设置新的最大连接数为200：mysql set GLOBAL max_connections=200显示当前运行的Query：mysql show processlist显示当前状态：mysql show status退出客户端：mysql exit查看当前最大连接数：mysqladmin -uusername -ppassword variables方法三：以centos 4.4 下面的mysql 5.0.33 手工编译版本为例说明：vi /usr/local/mysql/bin/mysqld_safe找到safe_mysqld编辑它，找到mysqld启动的那两行，在后面加上参数 ：-O max_connections=1500具体一点就是下面的位置：用红字特别说明：then $NOHUP_NICENESS $ledir/$MYSQLD$defaults -basedir=$MY_BASEDIR_VERSION -datadir=$DATADIR $USER_OPTION-pid-file=$pid_file-skip-external-locking-O max_connections=1500 $err_log 2&1 elseeval $NOHUP_NICENESS $ledir/$MYSQLD$defaults -basedir=$MY_BASEDIR_VERSION-datadir=$DATADIR $USER_OPTION-pid-file=$pid_file-skip-external-locking $args-O max_connections=1500 $err_log 2&1保存。# service mysqld restart# /usr/local/mysql/bin/mysqladmin -uroot -p variables输入root数据库账号的密码后可看到max_connections 1500 即新改动已经生效。还有一种方法，修改原代码：解开MySQL的原代码，进入里面的sql目录修改mysqld.cc找到下面一行：max_connections, OPT_MAX_CONNECTIONS,The number of simultaneous clients allowed., (gptr*) amp;max_connections,(gptr*) &max_connections, 0, GET_ULONG, REQUIRED_ARG, 100, 1, 16384, 0, 1,0,把它改为：max_connections, OPT_MAX_CONNECTIONS,The number of simultaneous clients allowed., (gptr*) amp;max_connections,(gptr*) &max_connections, 0, GET_ULONG, REQUIRED_ARG, 1500, 1, 16384, 0, 1,0,存盘退出，然后./configure ;make;make install可以获得同样的效果。这样，大家就可以根据自己的实际需要来修改mysql连接数以满足流量的需求了。MYSQL添加新字段2008-03-20 11:22ALTER TABLE SAMECITY_ALBUM CHANGE city city VARCHAR( 255 ) CHARACTER SET latin1 COLLATE latin1_swedish_ci NOT NULL alter table table_name ADD test4 ENUM(Y,N) NOT NULL Default Y,ADD KEY(test4);添加一个枚举字段,不为空，默认为Y,并设为索引alter table supe_aa add ex tinyint(1) not null default 0;/主键549830479alter table tabelname add new_field_id int(5) unsigned default 0 not null auto_increment ,add primary key (new_field_id);/增加一个新列549830479alter table t2 add d timestamp;alter table infos add ex tinyint not null default 0;/删除列549830479alter table t2 drop column c;/重命名列549830479alter table t1 change a b integer;/改变列的类型549830479alter table t1 change b b bigint not null;alter table infos change list list tinyint not null default 0;/重命名表549830479alter table t1 rename t2;加索引549830479mysql alter table tablename change depno depno int(5) not null;mysql alter table tablename add index 索引名 (字段名1，字段名2 );mysql alter table tablename add index emp_name (name);加主关键字的索引549830479mysql alter table tablename add primary key(id);加唯一限制条件的索引549830479mysql alter table tablename add unique emp_name2(cardnumber);删除某个索引549830479mysqlalter table tablename drop index emp_name;修改表：549830479增加字段：549830479mysql ALTER TABLE table_name ADD field_name field_type;修改原字段名称及类型：549830479mysql ALTER TABLE table_name CHANGE old_field_name new_field_name field_type;删除字段：549830479mysql ALTER TABLE table_name DROP field_name;相信一定有不少的程序开发人员时常会遇到字符编码的问题，而这个问题也是非常让人头痛的。因为这些都是潜在的错误，要找出这些错误也得要有这方面的开发经验才行。特别是在处理xml文档时 ，该问题的出现就更加的频繁了，有一次用java写服务器端程序，用vc写客户端与之交互。交互的协议都是用xml写的。结果在通讯时老是发现数据接受不正确。纳闷！于是用抓取网络数据包工具抓取数据，后来才发现原来是java上xml的头是这样的,而vc上默认的是GB2312。所以一遇到汉字数据就不正确了。去网上找资料，这方面的文章好象特别少，针对像这样的问题，下面我介绍一下我自己写的一个转换程序。当然，程序很简单。如果有画蛇添足的地方，还望各位高手一笑了之。如果您对UTF-8、Unicode、GB2312等还是很陌生的话，请查看/books/UTF-8-Unicode.html，我这里就不浪费口舌了。下面介绍一下WinAPI的两个函数：WideCharToMultiByte、MultiByteToWideChar。函数原型： int WideCharToMultiByte(UINT CodePage, / code pageDWORD dwFlags, / performance and mapping flagsLPCWSTR lpWideCharStr, / wide-character stringint cchWideChar, / number of chars in stringLPSTR lpMultiByteStr, / buffer for new stringint cbMultiByte, / size of bufferLPCSTR lpDefaultChar, / default for unmappable charsLPBOOL lpUsedDefaultChar / set when default char used); /将宽字符转换成多个窄字符int MultiByteToWideChar(UINT CodePage, / code pageDWORD dwFlags, / character-type optionsLPCSTR lpMultiByteStr, / string to mapint cbMultiByte, / number of bytes in stringLPWSTR lpWideCharStr, / wide-character bufferint cchWideChar / size of buffer);/将多个窄字符转换成宽字符 需要用到的一些函数：CString CXmlProcess:HexToBin(CString string)/将16进制数转换成2进制if( string = 0) return 0000;if( string = 1) return 0001;if( string = 2) return 0010;if( string = 3) return 0011;if( string = 4) return 0100;if( string = 5) return 0101;if( string = 6) return 0110;if( string = 7) return 0111;if( string = 8) return 1000;if( string = 9) return 1001;if( string = a) return 1010;if( string = b) return 1011;if( string = c) return 1100;if( string = d) return 1101;if( string = e) return 1110;if( string = f) return 1111;return ;CString CXmlProcess:BinToHex(CString BinString)/将2进制数转换成16进制if( BinString = 0000) return 0;if( BinString = 0001) return 1;if( BinString = 0010) return 2;if( BinString = 0011) return 3;if( BinString = 0100) return 4;if( BinString = 0101) return 5;if( BinString = 0110) return 6;if( BinString = 0111) return 7;if( BinString = 1000) return 8;if( BinString = 1001) return 9;if( BinString = 1010) return a;if( BinString = 1011) return b;if( BinString = 1100) return c;if( BinString = 1101) return d;if( BinString = 1110) return e;if( BinString = 1111) return f;return ;int CXmlProcess:BinToInt(CString string)/2进制字符数据转换成10进制整型int len =0;int tempInt = 0;int strInt = 0;for(int i =0 ;i string.GetLength() ;i +) tempInt = 1; strInt = (int)string.GetAt(i)-48; for(int k =0 ;k 7-i ; k+) tempInt = 2*tempInt; len += tempInt*strInt;return len; UTF-8转换成GB2312先把UTF-8转换成Unicode.然后再把Unicode通过函数WideCharToMultiByte转换成GB2312 WCHAR* CXmlProcess:UTF_8ToUnicode(char *ustart) /把UTF-8转换成Unicodechar char_one;char char_two;char char_three;int Hchar;int Lchar;char uchar2;WCHAR *unicode;CString string_one;CString string_two;CString string_three;CString combiString;char_one = *ustart;char_two = *(ustart+1);char_three = *(ustart+2);string_one.Format(%x,char_one);string_two.Format(%x,char_two);string_three.Format(%x,char_three);string_three = string_three.Right(2);string_two = string_two.Right(2);string_one = string_one.Right(2);string_three = HexToBin(string_three.Left(1)+HexToBin(string_three.Right(1);string_two = HexToBin(string_two.Left(1)+HexToBin(string_two.Right(1);string_one = HexToBin(string_one.Left(1)+HexToBin(string_one.Right(1);combiString = string_one +string_two +string_three;combiString = combiString.Right(20);combiString.Delete(4,2);combiString.Delete(10,2);Hchar = BinToInt(combiString.Left(8);Lchar = BinToInt(combiString.Right(8);uchar1 = (char)Hchar;uchar0 = (char)Lchar;unicode = (WCHAR *)uchar;return