vb操作access数据库

15757753770

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

vb操作access数据库 的方法
' u3 |# J; z3 o/ N9 V0 Y4 l+ i7 L3 l
6 f+ D5 b4 w( m/ i: l; h首先要安装  Office2003sp2

9 H) v0 X0 X2 E% X列子：读写数据库(.mdb)
( u, R- d" s, i, ^/ B4 h) m2 t1 [
1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
5 @1 \4 G8 r7 k3 C- L! c6 x创建一个表格 并重新命名为test          （操作和Excel类似）
/ ^; e- D6 A7 m  x0 ?3 D* t2 P" H7 s
1 T; G* I. r, L# K8 J. }注意 表格名称 和源代码要对应

7 ^4 g/ T# x; p7 q- p/ c( p/ K
7 h/ o, _$ `4 f3 G7 w* t2.注册数据源（代码中已经注册）和写代码

1 }- W! f% J. u$ [9 x# w" F
' e3 ]& S6 P" Z7 h# ~在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
! Z  q3 x2 F' h2 F" x- c- A& e我们必须点击菜单中的【工程】-【部件】，
( A2 C4 |) f8 ~4 t在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
, Z9 U1 @) H; W$ q# X) \4 `' H

添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
7 H) L" p2 a- Z) c% ?# n- E2 m添加一个按钮 ID修改成 “保存”
添加一个 List1
0 ~2 d% y; j3 [4 k2 r4 w
0 a) O/ u3 O9 g& c" Q% r代码如下


Public conn As New ADODB.Connection     '标记连接对象
Dim sql As String
0 ~) ?; J+ n2 [- A# H9 ADim rs_maxcut As New ADODB.Recordset
Dim str As String
Dim aa As Double, bb As Double
Dim mbd As String
" i# ~3 e* r8 g# G" f4 ]( s- KDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
) W  O: s  R# G. T* ^. a  f, QDim 内容(999, 999) As Double
9 D3 t! R! h- L* I  p
, X, o( \% {8 I0 w/ w3 W- MPublic Function cnn() As String
" E0 [4 J1 r- w' S    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
$ ^; E3 U6 b* X% o& s0 dEnd Function

% ~* m  M+ r0 JPrivate Sub 保存_Click()
! n/ {+ P) K" h- L/ k2 ~% V
writeDatabase
    End
9 ?2 C; m! H  ?( jEnd Sub
: }9 {9 y4 _- F- X2 r
& M; X" n2 e' B; q& c2 `Private Sub Form_Load()

0 @' ?! K% E: R, P) `  i mbd = "D:\UG_OPEN\ini\数据库.mdb"
9 }* X, r+ h8 L. g7 b0 M8 _5 i9 h2 F" S4 `
# w% b1 W+ C. I) Q3 h5 i/ N    conn.Open cnn '连接数据库
9 x+ S8 k+ C2 n/ \, x    readdatabase
/ ^) ~: g' b  F* {    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
1 D6 I$ a( R5 m9 D- CMe.Text4.Text = bb
End Sub
' X% J7 J  C; A$ E) \% F% n) Q
Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
9 d0 n) c8 k9 q1 r, V5 z    Dim i As Long
    sql = "select * from test"
    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

; \* L) {+ V8 ^& k- I0 g
总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
6 {6 P, K4 |3 g行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
' n) R7 Q& X/ ]4 k+ C
7 h) R" f, h' U- X* y$ P5 D. i; ~    If rs_maxcut.EOF = False Then
( S; w* K# z) Z        i = 0
) d& |; H* e& _        Do While rs_maxcut.EOF = False
" x, b# u" y7 }1 f. ], X           i = i + 1
4 i, |/ [% q, E' A8 ?) u2 s, ~
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

# M) t4 a8 `8 j# s/ d: m0 R            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的

) ~" l) J+ s. ^- }
       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
$ u9 X& C6 H& _: L6 O& w; P0 J5 e# Z        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

+ ^7 q8 E' N, W" s, k1 j* M        '读所有内容到数组
        For j = 1 To 列数
) p! h/ `2 H  e, f        内容(i, j) = rs_maxcut.Fields(j).Value
$ b; p3 ]  x% E& \6 x        Next

        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭


        List1.Clear
        For i = 1 To 行数
( o( \1 J: s( Q3 i4 ^! n: l        For j = 1 To 列数
7 ^9 x0 p- C7 ^; K) C5 }8 S        If j = 1 Then
( e) F4 U9 w( I2 q' j        str = 内容(i, j)
        Else
        str = str & " , " & 内容(i, j)
        End If
; Q+ H8 L% s* t        Next
        List1.AddItem str
% d: L  ]) U5 e' D% o        Next
; n! a- `: O4 F; w  O1 b  L
0 \  b+ F, l- X$ C" H    End If

2 r/ @$ x' K  L  t! V; G6 K
+ d7 k2 I6 A4 _+ tEnd Sub
& s/ S: p3 v9 K
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
* Z% p/ H5 d! t" A. W    Dim i As Long
    i = 0

conn.Open cnn '连接数据库
- J6 O( r# i! `# j' h. m9 z
'sql = "select * from test"

& H1 F1 z3 |3 ~* Y  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
- y" _1 M9 X# J9 S: Y0 b. D9 K
/ }) q/ D. f/ j0 }; a5 _: I4 I: p    If rs_maxcut.EOF = False Then

        Do While rs_maxcut.EOF = False
          i = i + 1

0 m) X4 ?) z& k2 V# F            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
0 J% t8 D- G* N8 R9 N, V
            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
* z) u: `' a7 I7 Y0 m) F
            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
+ a5 \* }$ h# P3 e( I
+ C1 Y6 K+ b) a4 P3 d9 I9 Z              rs_maxcut.MoveNext
/ ~! d$ v1 X- r' p3 F2 v/ n
3 F6 D; m/ V% q6 |+ g6 |% m) c        Loop

       rs_maxcut.Update
    rs_maxcut.Close
0 y& a7 ?/ E) i( O: e
) O) B% R' q2 z) v    End If
# `. K; N, Q$ C& u) V) N  B
8 T: \/ X: c) Q3 T% X3 rEnd Sub
" R+ k: I3 C- S
7 W3 ~9 d6 E! e" h. \1 a
/ G$ O+ x- W& W  D4 y