vb操作access数据库

15757753770

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

vb操作access数据库 的方法

7 G. e' }, r+ T首先要安装  Office2003sp2

; O4 w; ^  O* i! _) g7 X列子：读写数据库(.mdb)

1.创建 mdb
+ \; I0 X% I2 D" V; w2 A& S0 r1 P开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
, A, P2 }" b" e4 o创建一个表格 并重新命名为test          （操作和Excel类似）
4 w  ^: t* J2 P( ~8 ^
注意 表格名称 和源代码要对应


2.注册数据源（代码中已经注册）和写代码
0 u: j5 x! m! P; V: m$ N2 w% B

1 R4 Y$ D" Z9 _; X% n# K: @在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
% r, x2 ]: q; H6 `3 j" D) h, c' Z/ y最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了


添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
  U5 n4 H8 u2 k/ v' h' A; A" e添加一个按钮 ID修改成 “保存”
添加一个 List1
- B7 U( B0 l5 `% \( H$ N
代码如下
9 y0 v2 \4 \0 |4 Q! V1 a9 a

Public conn As New ADODB.Connection     '标记连接对象
Dim sql As String
, g6 o3 C: A0 d# g0 a7 ^) {5 V7 k1 s% LDim rs_maxcut As New ADODB.Recordset
Dim str As String
& \6 [6 T& X+ UDim aa As Double, bb As Double
2 m. q! e. W# l  H8 h* mDim mbd As String
# j7 l. L9 P7 F; d3 m0 _5 e* wDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double

Public Function cnn() As String
  J6 M! F! l4 d' K6 s$ o    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
1 ]5 H3 i  l6 b) K4 sEnd Function

Private Sub 保存_Click()
* Q) e+ Q+ m' Q9 U
writeDatabase
    End
End Sub

Private Sub Form_Load()
0 j- ~1 g# B5 M8 W
mbd = "D:\UG_OPEN\ini\数据库.mdb"
; V3 e1 ?9 v+ ^- X
, |5 `2 s3 ~* j0 t4 l* U    conn.Open cnn '连接数据库
8 [* I  B7 I/ b2 Q    readdatabase
; [# ?' @: Y) b* X. @1 k. _1 z. T5 V    Me.Text1.Text = "行数" & 行数
( K/ o# b. B# S' Y    Me.Text2.Text = "列数" & 列数
8 \* N( g9 X( ]Me.Text3.Text = aa
Me.Text4.Text = bb
) Y) B% b; b/ D2 HEnd Sub

9 W: E2 P) b3 r: J2 u9 {% \9 XPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
- F  D; U2 N) A6 S+ ~    Dim i As Long
) v+ `' Z2 R+ `# ~5 |5 r% \! D$ d: c    sql = "select * from test"
/ r8 \0 Q% p# v, l* q8 I6 C! P, s    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
8 r5 p# J0 m0 w( q% P! N
+ ~) X! g& C' [( m' c' Z% I4 r1 v
: M, g# R, O% p. f, _总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
  [; ^2 h! C- x( E+ b6 \- m- d列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
) P/ Y# F; \8 ?6 M, G8 l; o9 _: {
6 r0 b6 s5 k0 c; r9 T    If rs_maxcut.EOF = False Then
6 N. Q/ S  }) Z# i$ f7 Q        i = 0
1 U$ A7 N- x1 i2 ]& O, @% V  R        Do While rs_maxcut.EOF = False
# E6 o, z7 D" }) r0 j+ x$ Y3 m" ?+ e           i = i + 1
2 i/ t! r0 A" _; a  g0 D; s
. P4 |! t0 T. u6 @. h7 i' O5 ]( \7 x           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

" j6 x& T$ E$ s% K            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
! T" f9 d# L$ `3 @3 k
4 e. X/ A" @- b  q* w; l3 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列
. c7 V/ V$ I- u. y, {# o4 T7 {
        '读所有内容到数组
- G: F+ a* I+ l: R        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next
5 @- D& @; i* D3 G
! k; U( ~+ o) n        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭
- g5 d& H1 }5 W6 ]

5 h/ L6 M8 E/ i9 B" \) L, S        List1.Clear
7 ]$ K, S% b! M+ l* W        For i = 1 To 行数
- ]7 c. `- j" ?3 R9 M5 ~$ {0 Q        For j = 1 To 列数
        If j = 1 Then
. V: i; ]* n. c  j+ |! Z        str = 内容(i, j)
        Else
        str = str & " , " & 内容(i, j)
        End If
" \' |! L& Q' S2 P2 H, `        Next
7 t) R5 b2 H; }1 o6 }. M        List1.AddItem str
* G2 \% t; p/ v# X4 K$ E, G        Next

    End If


/ l  E& ^- D# u( D8 zEnd Sub

' r5 t! \4 Z0 z  k1 M0 |% @3 i* Q8 I' cPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
8 R6 V9 e' l: B* ~0 Y    Dim i As Long
6 @% i; O# Q" R    i = 0
1 l' Z- ]9 N7 G% C! ~! I' [' \
conn.Open cnn '连接数据库

5 a% N6 f; M2 c. r'sql = "select * from test"
. X: v" [% h7 }. M$ ~
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
2 `) E- G( S- l- V/ D, P
8 J8 c# r! t5 ?    If rs_maxcut.EOF = False Then
" o5 D$ A: r4 _$ _
        Do While rs_maxcut.EOF = False
" q$ U/ p# ^' O, e) A4 o( H( w9 U. F' [. B          i = i + 1

5 c+ {) m) Y5 @2 |# T! Z            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题

- ]; m4 H- G$ r' @5 D* N            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
2 m  _# v" V- A% ?% f+ e
$ p+ j2 ?. k8 f6 u+ e5 E3 D            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
1 v. w, \# I6 @0 A; ^* P" w9 R
              rs_maxcut.MoveNext

" A6 `* d" z1 ^. c) `        Loop

5 i7 P- f- e6 _2 |' i       rs_maxcut.Update
    rs_maxcut.Close

" R2 V" s/ ]8 e+ P9 p' r# u    End If

/ X- g4 ~/ M/ a" m; sEnd Sub