vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
- P; o" O# S1 s/ }
vb操作access数据库 的方法
' ?7 Y/ `0 }  c" R
$ ]/ D5 E( j# M  u) k1 M首先要安装  Office2003sp2

3 x0 t  z" F6 X" U列子：读写数据库(.mdb)

- _6 M4 x7 n1 i7 j9 `5 C1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
) }& O/ a2 D* k6 K: I. d1 r
注意 表格名称 和源代码要对应


4 |/ k5 M( i6 W% b" c  S* h2.注册数据源（代码中已经注册）和写代码


在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
7 L% ]* l8 I4 x- Z+ ]我们必须点击菜单中的【工程】-【部件】，
5 _) e9 F; }; @& z1 P/ S在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
/ F  {8 g' z* G" Q3 S最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了

& V" A- p$ i* x" |1 G7 L
添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
/ \. n) c# c, r4 \8 W$ X3 V添加一个按钮 ID修改成 “保存”
添加一个 List1
& N+ U' D2 d6 _% I' l: F; _8 G
代码如下
5 z7 x$ j: x4 @, x2 @

Public conn As New ADODB.Connection     '标记连接对象
: L# x. Z, G  X2 _Dim sql As String
Dim rs_maxcut As New ADODB.Recordset
Dim str As String
Dim aa As Double, bb As Double
Dim mbd As String
; j1 B/ s* _' s7 c9 s: ]9 @Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
3 y; s2 W' f) B# s5 J, W- ]Dim 内容(999, 999) As Double

Public Function cnn() As String
    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function
( g+ y6 N- J" r: [% ^, ~
Private Sub 保存_Click()
2 M  ?, u7 p0 e) e0 o: l* J: \
' J5 w" z$ V8 A0 n7 D writeDatabase
    End
End Sub

) i$ N* X! A8 }% HPrivate Sub Form_Load()
; @* P$ a. ^! |( {0 f
mbd = "D:\UG_OPEN\ini\数据库.mdb"

    conn.Open cnn '连接数据库
    readdatabase
2 ]% W3 L5 @4 O6 L% P/ X. I    Me.Text1.Text = "行数" & 行数
* M5 C6 J" e* ~    Me.Text2.Text = "列数" & 列数
! I! u% s$ |. {; y. [5 n; bMe.Text3.Text = aa
Me.Text4.Text = bb
- Q7 z4 t* \  U9 ^' O. [End Sub

+ ~4 k3 ^( f! f: |; ]: S3 [5 Y3 f# t- FPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
) a8 G- M! P6 l( S3 P    sql = "select * from test"
& r& K: O8 s" X9 r; r6 K    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

' T/ v( f2 E' j( q  ], H* Z
" J( q& p* X5 c; n, U4 P. k总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
) L3 y8 r2 W/ U" I/ f列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

8 G# l; q; s! e# k    If rs_maxcut.EOF = False Then
) i) N6 |( u7 q+ v0 S: F9 e" F        i = 0
        Do While rs_maxcut.EOF = False
           i = i + 1

           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
9 K7 F4 z7 ~/ s* J) s- d" t
            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的


+ [) X$ o: p8 f8 [8 k# ?( [       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
# p; J' }8 o2 v6 D. B* f& n+ w7 \
        '读所有内容到数组
        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭
) S: y0 R" }' C

        List1.Clear
0 @' L1 z  Y/ o4 W- J        For i = 1 To 行数
1 Y3 u+ D* s4 N& U$ V* M3 q        For j = 1 To 列数
        If j = 1 Then
8 j( U. Q3 Z* A7 [; l/ P+ F) ^& [        str = 内容(i, j)
" L# f  G0 K+ ^        Else
0 w, I/ A( t( W+ p. m        str = str & " , " & 内容(i, j)
        End If
        Next
4 `% S8 x* v9 S2 v2 A        List1.AddItem str
        Next
! E: C8 k) ]) w+ L3 P
3 S5 t+ D. A) H2 C1 a    End If

* H7 s- ~/ _) ^: R* r9 n
8 R4 n, \! Z; O7 w3 b! q  p9 T/ JEnd Sub
9 _1 P' s) \$ v2 O9 j  z0 W
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
    Dim i As Long
+ s1 L$ \( \  O1 R: S; e    i = 0

+ l1 \( Q$ e8 I7 mconn.Open cnn '连接数据库
% B! V! k8 L, p: ~/ l
'sql = "select * from test"

) q( v0 R3 m$ k+ B: q  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
) N# H9 L$ ^4 e$ d+ t* h
    If rs_maxcut.EOF = False Then
4 l# D; V& F: e9 j
" B) N4 C; p  U; _7 d1 n) [  t        Do While rs_maxcut.EOF = False
          i = i + 1
- Y! ~; |; b( B2 N
/ I& H, J# h7 `, q! f            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
$ w2 l8 L( B8 M5 H+ D4 q
# |* q9 t) o' W            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列

            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列

              rs_maxcut.MoveNext

: X% b( }) R5 \  ~        Loop

  k# ~7 x: A- R: P       rs_maxcut.Update
/ P$ U( o5 ]" L! M    rs_maxcut.Close

    End If
7 l! u9 K- e8 K9 w" H3 \
! N: c' v8 v: JEnd Sub
! U+ D: p7 N! t* z: t: e2 x/ u

. E8 q2 f) x* [' t