EXCEL使用VBA连接数据库的问题

老大，这样也能连接上数据库？

建议还是多看点有关数据库连接的资料！

要使用中间组件的，什么ADO啊，等等的！

是通过数据库组件去 *** 作数据库，它相当于一个缓存区！

不多讲了，还是自己找点看吧！

1．在对数据表记录进行 *** 作时，有一个记录指针，指向当前的记录。

图1中假设rs返回若干条记录，通常正确执行rsOpen后，记录指针指向首记录。此时，rs的Bof属性和Eof属性都为False。

可以使用rs的MovNext方法把记录指针向记录集的前（上）部移动，也可以使用rs的MovePrevious方法把记录指针向记录集的后（下）部移动。在记录指针的移动过程中，只要记录指针指向一条存在的记录，rs的Bof属性和Eof属性都将保持为False。

2．当记录指针向前（上）部移动到数据表外时，rs的Bof属性变成True，而Eof属性仍然是False，见图2；

而当记录指针向后（下）部移动到数据表外时，rs的Bof属性仍然是False，而Eof属性变成True，见图3。

3．当rs返回的记录为零时，rs的Bof属性和Eof属性都为True。见图4。

详细请见下面。

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。用vba代码将access数据库连接求代码，代码如下：

Sub FYMXDL()

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODBRecordset

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空改小区-建筑的费用明细

Sql = "delete  from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

cONnExecute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3)Value > 0

FYID = Cells(hh, 3)Value

FBXZ = Cells(hh, 11)Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1)Value, 2)

Next i

Sql = Sql & "," & SARR(i)

Next i

Sql = Sql & " )"

cONnExecute Sql

hh = hh + 1

Loop

End Sub

以上就是关于EXCEL使用VBA连接数据库的问题全部的内容，包括:EXCEL使用VBA连接数据库的问题、在vba中怎样判断是否从数据库中查出记录、如何用vba代码将access数据库连接求代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！