了解网络营销相应的网站,网站开发 策划是干嘛的,指数基金什么意思,点击未来网站建设环境#xff1a;xpvb6mysql-5.6.13-win32mysql-connector-odbc-5.2.5-win32一、首先要下载mysql#xff0c;其次要下载mysql的odbc驱动。odbc驱动的安装很简单#xff0c;双击就可执行。mysql不用安装#xff0c;解压就行。但它的服务的启动比较麻烦#xff0c;需要用到cm…环境xpvb6mysql-5.6.13-win32mysql-connector-odbc-5.2.5-win32一、首先要下载mysql其次要下载mysql的odbc驱动。odbc驱动的安装很简单双击就可执行。mysql不用安装解压就行。但它的服务的启动比较麻烦需要用到cmd下面是我电脑上的启动过程1、Microsoft Windows XP [版本 5.1.2600](C) 版权所有 1985-2001 Microsoft Corp.C:\Documents and Settings\Administratorcd c:\C:\cd mysql-5.6.13-win32C:\mysql-5.6.13-win32cd binC:\mysql-5.6.13-win32\binmysqld2014-03-25 09:18:18 0 [Warning] TIMESTAMP with implicit DEFAULT value is deprecated. Please use --explicit_defaults_for_timestamp server option (see documentation for more details).启动之后cmd窗口就卡在那里如果需要关闭服务就要新开一个cmd窗口然后像上面一样cd进mysql目录执行C:\mysql-5.6.13-win32\binmysqladmin -u root -p shutdownEnter password:C:\mysql-5.6.13-win32\bin2、上面这种方法是临时用的一般来说还是注册成服务执行C:\mysql-5.6.13-win32\binmysqld --install mysqlabcService successfully installed.C:\mysql-5.6.13-win32\binnet start mysqlabcmysqlabc 服务正在启动 ..mysqlabc 服务已经启动成功。C:\mysql-5.6.13-win32\bin另外停止服务是net stop mysqlabc卸载服务是mysqld --remove mysqlabc。mysqlabc是服务名你可以起其他的名字。在cmd窗口里面调试sql语句执行C:\mysql-5.6.13-win32\binmysql -u root -pEnter password:Welcome to the MySQL monitor. Commands end with ; or \g.Your MySQL connection id is 4Server version: 5.6.13 MySQL Community Server (GPL)Copyright (c) 2000,2013,Oracle and/or its affiliates. All rights reserved.Oracle is a registered trademark of Oracle Corporation and/or itsaffiliates. Other names may be trademarks of their respectiveowners.Type help; or \h for help. Type \c to clear the current input statement.mysql create database abc character set gb2312;Query OK,1 row affected (0.03 sec)mysql \qByeC:\mysql-5.6.13-win32\bin二、当安装了驱动启动了服务之后就可以开始代码工作引用Microsoft ActiveX Data Objects 2.0 Library引用Microsoft ADO Data Control 6.0 (OLEDB)控件。添加两个文本框两个命令按钮一个Adodc控件。Option ExplicitDim m_conPhone As ADODB.ConnectionPrivate Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum,ByVal pError As ADODB.Error,adStatus As ADODB.EventStatusEnum,ByVal pRecordset As ADODB.Recordset)If (Not Adodc1.Recordset.BOF) And (Not Adodc1.Recordset.EOF) Then Adodc1.Caption Adodc1.Recordset.BookmarkEnd SubPrivate Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteAdodc1.RefreshEnd SubPrivate Sub Form_Initialize()If SqlConnect(m_conPhone) Thenm_conPhone.Execute create database if not exists abc character set gb2312,adExecuteNoRecordsm_conPhone.Execute use abc,adExecuteNoRecordsm_conPhone.Execute CREATE TABLE IF NOT EXISTS test ( name varchar(20) primary key, _ time datetime),adExecuteNoRecordsm_conPhone.Execute insert ignore into test values (名字,2014-3-1),adExecuteNoRecordsm_conPhone.CloseSet m_conPhone NothingElseSet m_conPhone NothingSet Form1 NothingEnd IfEnd SubPrivate Function SqlConnect(Connect As ADODB.Connection) As BooleanOn Error GoTo errconnectSet Connect New ADODB.ConnectionConnect.ConnectionString DRIVER{MySQL ODBC 5.2 Ansi Driver}; _ SERVERlocalhost; _ UIDroot;PWD; OPTION3;Connect.OpenSqlConnect TrueExit Functionerrconnect:Dim strErr As StringIf Err.Number -2147467259 ThenstrErr 可能MySQL服务没有开启。End IfDebug.Print Err.Number , strErr Err.DescriptionSqlConnect FalseEnd FunctionPrivate Sub Form_Load() Me.Show Adodc1.ConnectionString ProviderMSDASQL.1;Persist Security InfoFalse;User IDroot;Extended Properties _ Chr(34) DRIVER{MySQL ODBC 5.2 Ansi Driver};SERVERlocalhost; OPTION3;DATABASEabc Chr(34) Adodc1.CommandType adCmdText Adodc1.RecordSource select * from test Set Text1.DataSource Adodc1 Text1.DataField name Set Text2.DataSource Adodc1 Text2.DataField time Command1.Caption 增加 Command2.Caption 删除 End Sub
