vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
4 S) Y* {, Z; `/ e( D
vb操作access数据库 的方法

首先要安装  Office2003sp2

# r$ \7 T) E# y' f列子：读写数据库(.mdb)
+ ~: W: Y' ]5 h) H1 u
! V) [0 p5 p0 H% c* q1 {% v& E% G1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
* U4 ~2 |" o6 w3 \1 J8 L
4 x4 G& P+ i" f3 ^5 e4 X注意 表格名称 和源代码要对应
- l* l( t4 ~3 o; P

2.注册数据源（代码中已经注册）和写代码
( T) N6 M. R! U2 }9 x) H
" F$ [% a; ]4 ~# d1 `- f" A
& r/ H7 T$ Y" k1 @4 }7 Z% j2 B在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
1 I. Q' I( f# ?8 b* c我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
! b- l7 D3 D/ L) B# v. x: @最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
( a: b' ]: Z% o
  |6 _4 T6 ]( K% b9 r3 U
添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
4 p; O) [5 u4 L# W8 ]1 M添加一个按钮 ID修改成 “保存”
添加一个 List1

) W- v) d6 {% g代码如下

7 d3 @/ V7 E, q% P0 [" E5 x
Public conn As New ADODB.Connection     '标记连接对象
# K8 i/ y+ N9 I0 O; d: t* cDim sql As String
( _2 |, \% w' \" lDim rs_maxcut As New ADODB.Recordset
4 M6 U! G6 O4 x" |5 wDim str As String
  ]' |$ p# O' k+ n' E0 u9 YDim aa As Double, bb As Double
2 p; ?, O) w$ n+ p6 CDim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double

Public Function cnn() As String
: x* ~$ u7 V: s) U" B3 I3 n4 |    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function
& V' v: o. {! W) Y, ]
Private Sub 保存_Click()
1 V3 q: a" W4 F' `$ {3 p: j- ?. m
writeDatabase
    End
9 S/ b& n2 x9 w. i4 CEnd Sub
8 ~2 U+ G6 R9 y+ p2 _7 p
Private Sub Form_Load()
% x: J7 ?8 ?3 V- Z4 M$ o: }
mbd = "D:\UG_OPEN\ini\数据库.mdb"
/ R6 S% c* I7 ]2 F% {
    conn.Open cnn '连接数据库
    readdatabase
    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
Me.Text4.Text = bb
End Sub

Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
" N" ]* n; g, G; K    Dim i As Long
% B- L& M8 Z$ S: |* \$ j    sql = "select * from test"
0 p& {* K! W7 v/ u# h. Y    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

4 B& x# c. g4 P1 t% N% T" n: r& k
" t5 X0 r6 Q# t. s5 [  n+ X总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
$ U) j8 l% A# j# ~9 o行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
+ |. F5 x3 ]  x% Y* o. O
    If rs_maxcut.EOF = False Then
        i = 0
        Do While rs_maxcut.EOF = False
( k9 N/ r, w" i, P2 x           i = i + 1
7 X# z1 O: G* S5 _6 G9 }3 ]
. Z+ L9 d, ]0 n" s           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

5 K- B. X  [' j0 r! p7 C            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的

9 d- F' I! g6 T! u
       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
& T' T" g. h# N& Q" d
        '读所有内容到数组
/ h5 f' I: P$ ]9 j        For j = 1 To 列数
- _% u( ^" e( t: _3 o$ F+ M        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

3 f9 R5 L4 C1 J8 e6 M        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭


        List1.Clear
        For i = 1 To 行数
$ }) n; I& J3 l! t, t        For j = 1 To 列数
        If j = 1 Then
$ R# z1 Y& K) c0 O& ]        str = 内容(i, j)
        Else
" C& D# }/ `- S# W& s5 d- @8 S        str = str & " , " & 内容(i, j)
' E- z6 F5 `, A" Y3 L9 m3 g        End If
        Next
        List1.AddItem str
+ x: X7 D. |5 _1 s0 c2 K        Next
2 ]" M7 K" j- g) F. x, S
    End If
4 @4 c/ o) Q1 u: ~/ J( A! |& V

& h: ~  H3 y  tEnd Sub

Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
. t5 j) m  j- j5 }4 x    Dim i As Long
    i = 0
9 s6 T. e8 N, P5 x$ k
conn.Open cnn '连接数据库

'sql = "select * from test"

  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

    If rs_maxcut.EOF = False Then

6 w. W9 R% m6 t. B" C0 B        Do While rs_maxcut.EOF = False
' O. m( R  Y3 s- t3 b- [! k' X0 a8 V          i = i + 1

            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
6 {8 K( X& ~0 Z" ~" k9 u/ R
            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
- w( z0 \) P. }' R
" X3 ?' `' n0 o& }9 P7 ~( f$ ?2 Y            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列

- v% e7 ^# L) ]( G              rs_maxcut.MoveNext

        Loop
5 p& {8 U$ p( {* i. R; N  k
4 ]  }* G  L( S( m, k5 H' _       rs_maxcut.Update
    rs_maxcut.Close
$ d4 l! Q5 l! c$ L2 M  @
    End If
! D( N: B- z9 _5 ^5 C. I4 S
3 j+ l8 C# O2 x, S" B0 z; X/ q1 rEnd Sub