用VBA语言调用sql数据库数据到excel中
我想在excel中添加一个command控件,利用VBA语言实现将SQL数据库，UFDATA_013_2008表中的，（U8供应商的表）VENDOR的内容添加到excel中，要求纵向排列
求助 谢谢高人
我不清楚是不是UFDATA_013_2008表的VENDOR列的数据,如果不是,你自己改一下SQL语句吧,sql = "select VENDOR from UFDATA_013_2008"
Sub SQL数据导入()
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Dim sql As String
Dim i As Integer
str = "Provider=SQLOLEDB;Data Source=SQLSERVER服务器名或IP;DATABASE=数据库;UID=用户名;PWD=密码"
cn.Open str
Set rs = New ADODB.Recordset
sql = "select VENDOR from UFDATA_013_2008"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
For i = 1 To rs.RecordCount
Sheet2.Cells(i, 1).Value = rs.Fields(0).Value
Next i
rs.MoveNext
End If
rs.Close
cn.Close
End Sub
vb 执行sql语句得到的结果集怎样输出到excel单元格中?
可以，在vb窗口建个datagrid，adodc，用adodc绑定你的数据库，datagrid的DataSource选择那个adodc，这样就能把记录集中的数据显示在datagrid表格中，然后再把datagrid表格中的查询结果导入到Excel中，把datagrid导入到Excel的代码如下：Dim ex As Object Dim i As Integer Dim j As Integer Dim XlApp As Ex...
如何在excel中编写宏读取数据?
在Excel中编写宏以读取数据，可以通过使用VBA（Visual Basic for Applications）来实现。下面的代码展示了一个简单的宏，用于从指定的数据库中读取数据并写入到Excel。首先，定义了一个Sub过程，名为shujuchengji（数据存储），用于执行整个宏操作。在Sub过程中，我们创建了一个变量`SqlStr`用于存储SQL语句...
用VBA语言调用sql数据库数据到excel中
Dim sql As String Dim i As Integer str = "Provider=SQLOLEDB;Data Source=SQLSERVER服务器名或IP;DATABASE=数据库;UID=用户名;PWD=密码"cn.Open str Set rs = New ADODB.Recordset sql = "select VENDOR from UFDATA_013_2008"rs.Open sql, cn, adOpenStatic, adLockOptimistic If Not rs....
在excel中如何使用vba实现将sql的数据快速写入excel
Dim conn As New ADODB.ConnectionconnStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"conn.Open connStr '连接数据库Dim rs As New Recordsetsql = "select * from a" '查看表ars.Open sql, conn, 3, 3if Not rs.EOF then For iCols = 0 To rs.field...
Excel VBA 连接SQL数据库后的操作。
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, adLock...
求助,EXCEL通过VBA操作SQL数据库
'下面的语句将读取数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表 strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定义SQL查询命令字符串 cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn rs.Open strSQL, cn '执行strSQL所含的SQL...
excel利用vba连接sqlserver上的数据库
Uid=username;Pwd=password\\"cnn.Open strCn SQL = \\"\\" cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cnrs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中cnn.CloseSet cnn = Nothingend sub 请参考 连接数据库后，通过写SQL语句实现增删改查 ...
如何将ACCESS数据库中的数据通过VBA程序提出 放入 EXCEL工作表中 求...
Public conn As New ADODB.Connection 在sheet1中写以下代码：Private Sub Worksheet_Activate()dfile = "数据库文件位置" 比如："c:\\a.mdb"On Error Resume Next conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dfile conn.Open Sql = "select * from 表名 or...
使用VBA,如何建立一个MDB数据库的连接
讲解如何利用VBA建立一个MDB数据库的连接，从数据库中检索信息并填充至Excel表格。首先，打开Excel工作表，准备将数据库中特定字段的数据填充至A列，其他数据填充至B至G列。以下代码演示了整个过程：定义变量myData、myTable，分别代表数据库路径和表名；定义工作簿wb、工作表ws。设置myData为数据库完整...
...并将数据库中的值写入Excel中,但是出现了这样的问题:
你就把在Excel对应的日期那个文本框的格式改为跟你写的日期一样的格式。比如：2010\/08\/06。那么你就在Excel对应的文本框右击选择文本框设定，表示形式-日期-XXXX\/XX\/XX然后出来的就一样是日期了。。。但是貌似连时、分、秒都显示出来。你就可以在VB后面加上：Private Sub UserForm_Initialize()Me.xx...
