Sub testSql()
'定义连接对象
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'定义连接字符串
Dim conStr As String
Dim sqlstr As String
'连接字符串-以下是连接MSSQL数据库
conStr = "Provider=sqloledb; " _
& "Server=192.168.1.121; " _
& "Database=DATABASENAME;Uid=admin;Pwd=admin;"
cnn.Open conStr
sqlstr = "SELECT * from tablename"
rs.Open sqlstr, cnn
Range("a2").CopyFromRecordset rs
rs.Close
cnn.Close
End Sub
用VBA 实现 从EXCEL 读取数据 然后插入SQL 数据库 怎么实现
'sql完整例子 Sub testSql()'定义连接对象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset '定义连接字符串 Dim conStr As String Dim sqlstr As String '连接字符串-以下是连接MSSQL数据库 conStr = "Provider=sqloledb; " _& "Server=192.168.1.121; " _& "Database=D...
excel利用vba连接sqlserver上的数据库
sub test()Set cnn = CreateObject(\\"ADODB.Connection\\")Set rs = CreateObject(\\"Adodb.Recordset\\")strCn= \\"Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password\\"cnn.Open strCn SQL = \\"\\" cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cnrs.Open...
vba怎么将excel数据插入mysql数库库
1、定义连接db的过程：Dim oConn As ADODB.ConnectionPrivate Sub ConnectDB() Set oConn = New ADODB.Connection oConn.Open \\"DRIVER={MySQL ODBC 5.1 Driver};\\" & _\\"SERVER=localhost;\\" & _\\"DATABASE=yourdatabase;\\" & _\\"USER=yourdbusername;\\" & _\\"PASSWORD=yourdbpassword...
求助,EXCEL通过VBA操作SQL数据库
Set rs = CreateObject("Adodb.Recordset")Dim strCn As String, strSQL As String '字符串变量 Dim strCond As String strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串 '下面的语句将读取数据表数据，并将它保存到excel工作表中：...
excel没装db,vba使用sql将多个表联系起来
1、打开Excel，选择数据选项卡，点击从其他来源获取数据，选择从SQL Server获取数据。2、在连接到数据源对话框中，输入SQL Server的名称和登录信息，点击下一步。3、在选择如何建立连接对话框中，选择使用特定的用户名和密码，输入数据库的用户名和密码，点击下一步。4、在选择数据库和表对话框中，选择...
Excel 请问excel中vba怎么连接PostgreSQL数据库
这个是在网上搜到的东西，没有安装PostgreSQL，所以不能验证。你自己试试。Sub Main() Dim cn as New ADODB.Connection Dim rs as New ADODB.Recordset 'Open the connection cn.Open "DSN=PostgreSQL;UID=dave;PWD=password;" 'Open the recordset rs.Open "SELECT relname FROM pg...
如何使用SQL查询Excel跨表数据? (VBA版)
首先，确保你的Excel文件支持VBA功能，这可以通过“开发工具”选项卡的设置来实现。勾选“开发工具”选项卡中的“VBA项目”选项，你的Ribbon上将出现“开发工具”字样，为后续编程操作做好准备。接着，构建一段简单样例数据，用来演示查询流程。两个表格中，其中一个表格包含年份信息，另一个表格则包含与...
如何在excel中编写宏读取数据?
使用`Con.Execute`方法执行SQL语句，将数据从数据库读取到内存中。关闭数据库连接`Con.Close`，并使用`MsgBox`显示操作结果，即是否成功导入数据。如果在执行过程中遇到错误，例如数据库连接失败，宏将跳转到`err`标签，显示错误提示，并终止宏执行。通过上述代码，你可以实现从指定数据库读取数据并写入Exce...
用VBA实现用SQL语句查询EXCEL中的数据
因此，考虑使用VBA。VBA可将Excel视作数据库对象，建立连接，并执行SQL查询。通过编写简单的脚本，实现从Excel数据文件中执行SQL查询：选择查询文件 - 建立连接 - 编写查询语句 - 执行查询，将结果保存在新工作表中。下面是示例代码：有时，工具不必强大，能快速解决问题，提高效率的工具便是好工具。此外...
怎么把EXCEL中的数据自动添加到SQL数据库
先从一个数据源中读出所有数据，然后通过循环，把源数据插入到我们的目标表中。完整代码如下：< on error resume next 导入excel电子表格数据到sql sever数据库 by dicky 2004-12-27 16:41:12 function open_conn(sqldatabasename,sqlpassword,sqlusername,sqllocalname,sqlconn)创建数据库连接对象并...
