
2、在Excel中打开VBA编辑器:方法一:Alt+F11 方法二:开发工具->代码->Visual Basic
※如果没有开发工具请:文件->选项->自定义功能区在右边的窗口中将开发工具前的方框□打钩√
3、双击ThisWorkbook打开编辑页面,并添加必要引用
需要添加的引用包括:Microsoft ActiveX Dat Objects Recordset 6.0 Library以及Microsoft ActiveX Dat Objects 6.1 Library
4、编写函数【俗称写代码】
直接扔出代码如下:
Public Sub MySQL_Test()
Dim Con As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim iRowscount As Long
Set Con = New ADODB.Connection
Con.ConnectionString = “Driver={MySQL ODBC 5.3 ANSI Driver}” + _
“Server=你的MySQL服务器地址” + _
“DB=需要连接的数据库名” + _
“UID=登录数据库的账号” + _
“PWD=登录数据库的密码” + _
“OPTION=3” + _
“Stmt=Set Names ‘GBK’”
Con.Open
Set Rec = New Recordset
Set Rec = Con.Execute(“想要执行的SQL语句”, iRowscount, adCmdText)
Range(“a1”).CopyFromRecordset Rec ‘在Excel中打印出查询结果
Rec.Close: Set Rec = Nothing
Con.Close: Set Con = Nothing
End Sub
※更为详细的代码和范例请参考附件给出的文档;
5、调试与运行
直接按F5就可以运行了, 或者点击上方的运行按钮【但不运行貌似是F8】
代码没有问题的话就会出现你想要的结果,下面是示范例子:
6、方便快捷的运行方式
当代码写好之后不用每次进入VBA编辑器运行代码,只需要在工作sheet上创建一个和这个代码相关联的按钮就好了,具体过程:开发工具->(控件)插入->表单控件.按钮(就是插入里面的第一个) 之后在工作sheet中随便左键点击会出现如下对话框
接下来会在工作区域出现一个按钮,是可以拖动他的,拖动到你想要的位置后鼠标点击空白区域,确定编辑(想要再次编辑可以在按钮上右键 或者 点击窗口的‘设计模式’),再次点击按钮就可以执行代码中的内容了;
7、好了,接下来就保存好你的文档吧,记得需要保存为 启用宏的工作簿(*.xlsm)
mysql实现查询数据并根据条件更新到另一张表的方法。分享给大家供大家参考,具体如下:原本的数据库有3张表
travel_way :旅游线路表,存放线路的具体信息
traveltag :线路标签表,存放线路目的地等信息
tagrelation:标签对应表,存放线路和目的地的对应关系
因为业务逻辑的改变,现在要把它们合并为一张表,把traveltag中的目的地信息插入到travel_way中。
首先获取到所有线路对应的目的地,以线路ID分组,合并目的地到一行,以逗号分隔
Connection conn = DriverManager.getConnection() //其他方式获取连接也可Statement stmt = conn.createStatement()
String sql = "select 字段名(你的叫User吧) from 表名 where 查询条件" //若要插入Admin记录,只需改select语句为insert语句
ResultSet rs = stmt.executeQuery(sql) //获取结果集
if(rs != null) //结果集不为空,即有符合查询条件的数据返回
{
while(rs.next()) //获取下一条记录,初始是第一条记录的前一个位置
{
//处理数据,可以判断是否有Admin这个User
String user = rs.getString("User")
if(user.equals("Admin"))
{
//存在Admin,自定义需要如何处理
}
}
}
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)