vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的

" M, i4 j/ b& v- d& i* C( U% N% g, ovb操作access数据库 的方法

' j% L( T: n9 N* b  U' j- p& @首先要安装  Office2003sp2

; y# P6 I: e( D* e列子：读写数据库(.mdb)

1.创建 mdb
5 b7 c6 c3 S) ~1 f1 @1 r) I开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
/ N( A; M! n+ O$ K
注意 表格名称 和源代码要对应
4 A( M! D6 [0 m' w/ C. `# D0 N2 Q

4 e4 Q) e# f; X- p* T2.注册数据源（代码中已经注册）和写代码
: u5 O3 U5 ~' v' F3 `" p* W
+ [* B6 l8 {8 m* |
  E3 }) o4 ~' Q9 J3 b在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
  t- _) ]5 r( d" i# S+ k6 q在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
2 L7 n( ~) E2 ~: O& P' \“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
3 G5 [0 k" s3 ~3 Z最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
( W1 F% O; s9 Z1 E7 i) i
2 z' L2 b+ x, S3 ~
- y3 U- U4 |$ f/ X$ v/ b添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
1 k. e( Z" r4 {! i2 q. d添加一个按钮 ID修改成 “保存”
$ Q2 ]- m& `8 ?7 v1 F添加一个 List1
. T) ~) I  e1 j) N' g' W$ I& V
& b+ }# ]5 ]( m代码如下
! o% q6 T5 J7 T4 U1 S- G3 j4 q. ?4 f
. q& P8 r7 O: S- }6 |- w
/ ^) c& |4 o( JPublic conn As New ADODB.Connection     '标记连接对象
Dim sql As String
Dim rs_maxcut As New ADODB.Recordset
& Q8 ~; Q  t) h, \, q2 UDim str As String
8 K; M( x& P  TDim aa As Double, bb As Double
1 ?7 ~4 Z7 X" cDim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
9 `) b7 G0 d  @Dim 内容(999, 999) As Double
  J; j# G6 h# [
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

) U9 V; C9 g) e8 a9 NPrivate Sub 保存_Click()

writeDatabase
    End
End Sub
$ \( m' M4 h# s
# I7 U1 |6 J$ [Private Sub Form_Load()
8 h2 M% Z, m$ L, P8 |$ ]3 G, D
mbd = "D:\UG_OPEN\ini\数据库.mdb"
6 R: b! K3 ^) [" J( s* A# K  X& w
1 C* Y+ t. s4 _* ?- _1 [8 e    conn.Open cnn '连接数据库
    readdatabase
1 x9 @+ m9 l$ q' [, Z) N    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
- k# t) \# _7 ]* q; OMe.Text4.Text = bb
End Sub

! }0 N6 C5 b% U0 _) S8 H- \; ~# zPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
    sql = "select * from test"
$ a! k1 Z3 i. d7 _: I! W6 [    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集


总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
2 `( @/ u- }# q8 Q' ]
    If rs_maxcut.EOF = False Then
% J+ ?) Q" b6 @) Z        i = 0
! l  E7 n- y* N1 W2 w8 }) J        Do While rs_maxcut.EOF = False
           i = i + 1

8 i1 ]+ T+ b+ U           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
0 t  o/ e7 \0 h. ^3 H  o4 d1 N: y
: N4 K- A0 w' Q) X+ P7 n1 y            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
! `) v* a- w! U' \1 S, \
3 v$ Y: C) }4 X
2 i* W! Y4 X0 o       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
, h5 N, |/ K* Q, m( g. c1 r        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
- X- L" M) {! _5 ^" n2 q' L
5 W# X/ F! Z/ |        '读所有内容到数组
+ o$ W3 J' m, w9 t5 F: Z6 x        For j = 1 To 列数
6 z$ {8 g) M" L; l: P        内容(i, j) = rs_maxcut.Fields(j).Value
) e! F( l8 f4 A( P4 r. D        Next
( E' \8 ~' E; T6 x3 l4 P
2 M5 ]9 W3 o) ]9 O+ b0 `        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭
) T) Y& @3 ?& j2 Q7 M: m

        List1.Clear
        For i = 1 To 行数
% u3 N+ |; u! q0 g  P  j( n        For j = 1 To 列数
, _7 U2 \( Z4 l        If j = 1 Then
( |/ b; Z6 g! `, V6 p        str = 内容(i, j)
; X, A9 }" u: v/ Z, ^( J        Else
        str = str & " , " & 内容(i, j)
        End If
! l9 O& a2 ?" `        Next
        List1.AddItem str
2 n, {8 m  \' _9 R+ N. D        Next

    End If
6 l2 K/ H5 B2 T3 L
* Y1 {0 A3 Q6 d  K( G
End Sub
9 E0 Q& Z; N3 W5 w6 x1 Z! @
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
$ I% P  U% k- y7 u    Dim i As Long
    i = 0
3 h# T% f- K7 L& w) d# @
conn.Open cnn '连接数据库
  _  d4 z( E# Y. w
0 ^. p. ~- ~" P2 L0 C0 A2 ?'sql = "select * from test"
4 g) G: ?, v8 s5 J( W3 Y. t
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

5 U7 f- N' ~* }4 l! b  ?6 \$ g5 G% q* e    If rs_maxcut.EOF = False Then
) J& Y6 J( p. y
0 n& t9 B) V" }( Z! _        Do While rs_maxcut.EOF = False
) ]; ]$ V  R) S; b9 V! z* ~          i = i + 1

            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
7 h5 o8 D  O0 I- y
- p5 B4 K' e7 t: \$ I0 f+ U9 [            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
" ^8 G0 ^6 {1 q5 W# L/ u
" e3 z. g3 [5 v; B, q' a- @& J        Loop

! m9 j" F1 v/ ^& a. z# q       rs_maxcut.Update
    rs_maxcut.Close

8 ^( C( j1 f5 ^+ Y* I( {6 x# d9 `/ v    End If

End Sub
# j+ I9 y7 F" [5 K6 z


& d( K+ k$ n5 g1 W6 x
( h; }/ k5 Y) ]* B8 d