vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
" t1 z1 v& t$ @  i# x! G. O
$ m2 p! f2 y) b, d1 e6 C' evb操作access数据库 的方法

6 U9 e* ~5 ~# H首先要安装  Office2003sp2

$ f' l- l; f  I& b# E' l列子：读写数据库(.mdb)
- W% J' {5 S3 D) c! q2 N# Z3 U' z
1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
, P$ n' j/ @$ M6 t# x" Y0 f4 L创建一个表格 并重新命名为test          （操作和Excel类似）
1 J0 {0 Y" ], h( P
# Y& \+ l  U. q) }6 c  X  O注意 表格名称 和源代码要对应


& I4 b1 @9 z; x4 g0 e! _- s& C2.注册数据源（代码中已经注册）和写代码

; _- F" x. _7 P) o; k+ N
$ ~5 Q% N! b) Q# X' a: s6 p9 B, Z5 `在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
% e# E- c5 U( m# Q; [* R0 d0 |  M$ z“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
! g" z  l8 Z7 _6 _2 p/ G- \

添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
添加一个按钮 ID修改成 “保存”
% R# b/ l) ^! }9 y添加一个 List1

代码如下
, A% s( [5 {2 E" I
9 T) {0 G, ?6 w
: `' n3 t, e5 q4 iPublic conn As New ADODB.Connection     '标记连接对象
Dim sql As String
: g6 {* D* u* N  J2 h  PDim rs_maxcut As New ADODB.Recordset
Dim str As String
0 o( {) E: P& I* w3 jDim aa As Double, bb As Double
$ r# ?( W' U+ K+ vDim mbd As String
, d% F4 X, V/ E! E! ~/ F: ]9 _/ EDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
5 n. j- w- ]% ^Dim 内容(999, 999) As Double

9 P0 [7 n9 E; r4 @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
2 [$ ~' s4 q& u$ V' K4 t* Y
& }& j- V7 w  J8 n, f7 O6 kPrivate Sub 保存_Click()
% g6 s2 _, ^6 a2 A7 m8 h
6 K9 n! j, r; O, A& ? writeDatabase
    End
End Sub
$ w% C$ Y# \, `' L
, _  s6 _, T& S3 T" j; W' {) EPrivate Sub Form_Load()

* {# g' Q+ ^# b/ D5 }' e1 F mbd = "D:\UG_OPEN\ini\数据库.mdb"

    conn.Open cnn '连接数据库
    readdatabase
    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
' E+ p8 \1 r9 I5 `, XMe.Text3.Text = aa
Me.Text4.Text = bb
End Sub
  d0 t' W4 H7 K# n) z
! L% b% W: |8 n4 w; e& tPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
    sql = "select * from test"
+ O% Y1 z  o5 V9 y# C) }% v. B    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
% z* ~* o; L0 Y, B2 {% S
+ H# p* O- `' E
% C' m8 \% E; d+ u3 F3 W8 A总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
. A. C% E9 T1 F5 c+ k5 b) R3 {2 }/ h/ E9 o
3 ]; p5 E' y+ |) V    If rs_maxcut.EOF = False Then
3 m( G# P, m: X% l) |$ ]2 c, K        i = 0
        Do While rs_maxcut.EOF = False
           i = i + 1
; ~$ `2 z: {: G: N! h  k
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

; s* B: @' l+ E$ j' [0 m& N' U" r            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
+ G4 ^. y1 u, N( e
* p& I$ W/ x( g8 n+ I: e
       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

& N- j5 _! X, ~* K! g% i* r: J        '读所有内容到数组
        For j = 1 To 列数
0 g% [" @8 j7 X. r! x% r# o" ]8 a        内容(i, j) = rs_maxcut.Fields(j).Value
        Next
7 r4 H9 L  E! x2 a/ n2 U7 v$ }& P- J& \
        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭
8 H/ E1 C: Z: t" a) C( c8 \5 m
0 g; J  }. k# X4 L' J4 I) S
' L& {6 g- C5 x1 P+ j        List1.Clear
        For i = 1 To 行数
        For j = 1 To 列数
& r8 y' H3 U; N: x: b        If j = 1 Then
* g- c7 |% r; r+ {4 [        str = 内容(i, j)
( L/ v# I& s# ^# d- U        Else
        str = str & " , " & 内容(i, j)
" i( f- ~3 h5 l$ P% y        End If
5 ]) O& N1 T- i4 E        Next
        List1.AddItem str
        Next
# l/ ?6 j5 R7 V# s  Y0 H
" D* }4 X  l, Y6 A: S    End If


End Sub
# W2 g7 u" g4 f" W/ x7 [6 G
# E& S2 J! S" [( E" h" p1 zPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
; ^: J6 c/ Y9 l0 I+ M+ ^+ e' j    Dim i As Long
    i = 0

conn.Open cnn '连接数据库

! b- J: b/ Y$ `. u$ t'sql = "select * from test"
* m* p  j0 X2 H2 z  F
$ m3 \& M6 M! q0 K2 X  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
* z- I/ z5 s" ~. Z
% V$ }8 L% E  @" c6 h+ A    If rs_maxcut.EOF = False Then
* P2 k6 H1 x+ s8 [. b+ |
        Do While rs_maxcut.EOF = False
          i = i + 1
' G/ p* V! t6 j+ s! T
! H7 P! F+ G* E            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题

            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列
( `9 J" D! k9 o# `5 U
( r$ Q9 f2 A8 a& f              rs_maxcut.MoveNext

        Loop

       rs_maxcut.Update
9 o) K3 W: d" p/ @    rs_maxcut.Close
4 z: `5 @3 q' a8 F" [$ t1 l" X
    End If
# `, E5 ~8 l: S, F, [
% W) T  g; a2 f% s- N3 CEnd Sub

& x4 f# L; m+ [! K& M
) f: ]0 [# l2 n4 V
+ v- F% \5 `" V; |5 |& L! ?3 B% T
7 i) c. H% z/ D) {0 B7 e