vba数据库操作
Ⅰ 6.3.3.2 Excel VBA数据库的Execute方法
执行指定的查询、sql语句、存储过程或特定提供者的文本等内容。对于非按行返回的命令字符巾:connection. Execute CommandText, RecordsAffected, Options对于按行返回的命令字符串:Set recordset一connection. Execute (CommandText. RecordsAffected,Options)今f(CommandText字符串包含要执行的SQL语句、表名、存储过程或特定提供者的文本。RecordsAffected可选，长整型变一，提供者向其返回操作所影响的记录效目。Options可选，长整狱位.指示提供者应如何计算Commandlcxt参数.可为表6.2中的位。使用Correction对象的Execute方法，可执行任何在指定连接的CommandTcxt今数中传送给方法的查询。如果CommandText今数指定按行返回的查询，执行产生的任何结果将存储在新的RecordsetX4象中。如果命令不是按行返回的查询。
Ⅱ 怎么在VBA中把excel中的数据 写入数据库
excel是一个自由表，一个EXCEL的工作薄就是一个数据库，它里面的每一张表就是数据库的表，你可象操作表一样对其进行查询等操作，它里面的列就是数据库的字段，行就是记录，因此你可以按数据库的架构来组建数据，只是你如果你组建的数据不符合数据库的规则，在查询时不能得到时相应的结果。因此在EXCEL中不存在创建数据库。但对存在的数据可以引用。当满足条件A、B、C、D……时引用是可以的，但如果是在EXCEL中直接引用是不行的，一种是用VBA利用ADO访问EXCEL，在查询时把A、B、C、D几个条件按SQL语法写进查询语句中，引用返回的记录集，一种是利用函数把满足A、B、C、D的记录筛选出来，然后再引用。
Ⅲ 求助，EXCEL通过VBA操作SQL数据库
Sub QuerySQLSheet()
Dim cnn As Object
Dim SQL$
Set cnn = CreateObject("ADODB.Connection")
mypath = ThisWorkbook.FullName
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;Data Source=" & mypath
SQL = "select * from [AAA$A1:E6] where 姓名='" & [l2] & "'"
'SQL = "update [AAA$] set 年龄='99'where 姓名='张三'"
'cnn.Execute (SQL)
[k5].CopyFromRecordset cnn.Execute(SQL)
cnn.Close
Set cnn = Nothing
End Sub
Ⅳ Execl_VBA操作Access数据库。查询，更新，删除
'//创建ADO记录集对象
SetadoRt=CreateObject("ADODB.RecordSet")
'//设置SQL语句
strSQL="SELECT*FROMTMBWHEREFalse"
WithadoRt
'//设置需要连接数据库
.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:TM.mdb"
.CursorLocation=3
.CursorType=1
.LockType=3
'//设置SQL语句
.Source=strSQL
'//准备打开记录集
.Open
'删除TMB表中的所有记录
ifadort.recordcount<>0then
adort.movefirst
dowhilenotadort.eof
adort.delete
adort.movenext
loop
endif
'//新增记录
.AddNew
'//赋值
.Fields("TMZF").Value=Range("识别号")
'//更新
.Update
'//判断并关闭记录
If.State=1Then
.Close
EndIf
EndWith
'//从内存中释放
SetadoRt=Nothing
Ⅳ 如何用VBA调用数据库中数据
首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了
Ⅵ 用VBA实现对数据库的读写操作
根据你错误语句来看。
建议你检查一下：工作表 查询语句 的A1和B1的内容。
你把它们复制到SQL Server的查询分析器里面调试SQL语句。
Ⅶ 如何使用VBA直接操作远程Linux主机上的Mysql数据库
格式： mysql -h主机地址 -u用户名－p用户密码 1、例1：连接到本机上的MYSQL 找到mysql的安装目录，一般可以直接键入命令mysql -uroot -p，回车后提示你输密码，输入密码，直接回车即可进入到MYSQL中了，MYSQL的提示符是：mysql> 2、连接到远程...
Ⅷ Excel VBA 连接SQL数据库后的操作。
呵呵，以前就帮人家解决过这个，请看下面的代码，有注释的！
Private Sub CommandButton5_Click()
Dim Conn As New ADODB.Connection '定义ADODB连接对象
Dim ConnStr As String '定义连接字符串
Dim xiao As String
xiao = ComData.Text
'对于SQL 2008，如果以IP方式访问服务器，必须要启动SQL Server Browser服务，如果是Express版本，要以“IP(计算机名)\实例名”方式访问
ConnStr = txtData.Text
Dim Records As New ADODB.Recordset '定义ADODB对象的记录集
Dim Sheet As Worksheet '定义工作表
Set Sheet = ThisWorkbook.Worksheets("Sheet2") '给变量Sheet赋值，注意：是工作簿中索引为1的那个表（通常一个新的工作簿Sheet1的索引为1）
'Sheet.Name = "Data" '把Sheet名称改为Data
Sheet.Cells.Clear '清空表中原有的数据
'连接状态是打开就不在进行Open操作
Conn.Open ConnStr
Dim SQLStr As String '要执行的SQL语句
SQLStr = "select * from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句
Records.Open SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '读取SQL查询结果到Records记录集
'Records.Open
Dim i, j, TotalRows, TotalColumns As Integer
j = 0
TotalRows = Records.RecordCount
TotalColumns = Records.Fields.Count
'下面的循环把表头（即列名）写到Excel表的第一行
For i = 0 To TotalColumns - 1
Sheet2.Cells(1, i + 1) = Records.Fields(i).Name
Next
'下面的循环把查询结果写到Excel表中
Do While Not Records.EOF
For i = 0 To TotalColumns - 1
Sheet2.Cells(j + 2, i + 1) = Records.Fields(i).Value
Next
Records.MoveNext
j = j + 1
Loop
Records.Close '关闭记录集
Conn.Close '关闭连接
Set Records = Nothing '清空对象
Set Conn = Nothing '清空对象
End Sub
有什么不懂的话Hi我！
Ⅸ 在vba中怎么用sql语句吧excel工作表和数据库表连接查询
摘要 VBA连接SQL SERVER数据库操作Excel。