vb操作access数据库

15757753770

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

vb操作access数据库 的方法

首先要安装  Office2003sp2

列子：读写数据库(.mdb)

1.创建 mdb
/ ?  E1 C# `/ [$ X开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）

, m/ L; }( i* B$ N$ U注意 表格名称 和源代码要对应


6 F: I/ F1 h7 u) x2.注册数据源（代码中已经注册）和写代码
% W  v- H+ P6 z( T) F5 L/ v
6 W) r6 |. l2 R, U
( g; ^% X( n% z6 x* p在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
+ P: Q0 a8 V' w+ L1 R% N; z“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
5 f" G1 j( L  q" p; D( Y5 s6 S- z最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
' \) C0 \" \; S2 h2 o/ X) P- G

添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
添加一个按钮 ID修改成 “保存”
添加一个 List1
& J6 `" B- ]! `: ?- H7 ^+ j/ M
# s" N. R0 T1 g% a; }/ G( h代码如下
( y& y9 B4 m9 k7 q& _
. x2 Z1 y' [, J5 O4 s$ z& }
& D& G/ O/ v' V6 JPublic conn As New ADODB.Connection     '标记连接对象
Dim sql As String
% P, k2 _' {) L8 d" H9 H/ e3 zDim rs_maxcut As New ADODB.Recordset
Dim str As String
Dim aa As Double, bb As Double
Dim mbd As String
! o- ?: H* v- {4 QDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
+ W7 g0 k7 d* ~& XDim 内容(999, 999) As Double
6 _: t  d8 V- b
Public Function cnn() As String
! S2 [% ]- `6 a3 x5 m7 ]; l    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function
6 W. y( V7 I$ M) d; W* `
3 p+ C8 i  c# Y" R: I. i( I0 ^Private Sub 保存_Click()

writeDatabase
    End
) Q$ a- s  {* S& n# a' uEnd Sub

Private Sub Form_Load()
! [2 O+ y6 A4 M# M
mbd = "D:\UG_OPEN\ini\数据库.mdb"
- k; {  Z5 `% L4 L/ }& Z9 ^
$ w) N# C. ?. t8 _  x( W% q    conn.Open cnn '连接数据库
% V- F! `8 w# L% L) a/ M0 y6 D    readdatabase
- x+ t$ x+ q2 I& Q- r3 \5 f3 _    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
Me.Text4.Text = bb
End Sub

Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
( Q( Y- H- |0 D/ Q( w% e( E    Dim i As Long
# L; v2 p' k, o( _* ?    sql = "select * from test"
- n5 R, ]0 U5 q0 |3 f6 ?. W9 Z    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
7 B" e1 g' B" H

( n  |; Q1 E, ]) K/ e总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

    If rs_maxcut.EOF = False Then
        i = 0
        Do While rs_maxcut.EOF = False
( {; t3 N; I3 w" R( Y           i = i + 1
& ~! J7 X6 A$ F" r  }2 _: y; @
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
( n- h: ?4 W) l6 `! F9 E: \

% W) n+ O& G, w- A  p% ~3 ?( i) y       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
# ~" s8 v' S1 l        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

        '读所有内容到数组
        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭
/ @- y. J) ]( U8 F$ B- f  o

        List1.Clear
$ J0 z( t8 v2 Z: C; P        For i = 1 To 行数
        For j = 1 To 列数
        If j = 1 Then
        str = 内容(i, j)
: r% M) F1 A2 O6 f. Q        Else
) x) `6 s4 M1 H. V4 x        str = str & " , " & 内容(i, j)
        End If
        Next
        List1.AddItem str
        Next

9 Q/ A3 \/ A3 f& U3 K6 c& ~% E    End If
! w* q0 q/ N6 |# y& r$ z: T! J
) B$ N: t/ R* }" s( P7 f+ V
End Sub

; Q) w, Z: X" @5 YPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
" i9 N  v) ]( o2 J    On Error Resume Next
/ f0 k, s) i1 X    Dim i As Long
! I* ]/ f7 Y, i. o& I$ O    i = 0
& w  K8 @( E0 ^
conn.Open cnn '连接数据库
9 D7 J' x7 j" m
* J1 J5 X! G  F. f4 `) u2 t'sql = "select * from test"

  U) W% w9 P5 p% n" a, E  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
7 ?! C' \# r$ }9 u& k
. z- b: O& s" k5 Z: v    If rs_maxcut.EOF = False Then
+ J- a, k. M8 g3 U5 s) r! I
        Do While rs_maxcut.EOF = False
, k, M! J; a3 j" }          i = i + 1

            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
7 m9 p$ t" w* }2 X
8 n7 y0 s6 `! ^+ W            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列

* G: b$ h" E) T1 h! b; ?/ Z8 O) M  H% o              rs_maxcut.MoveNext

' [+ E0 F, ~& u% W        Loop

       rs_maxcut.Update
! T3 j: m9 p2 g) h" ^' e1 u    rs_maxcut.Close
& ~% p4 }/ I$ d/ M# N' Y6 Z9 Y4 O
* R$ j/ p, X% h4 n' ~    End If
1 i2 n0 F! o# Y& v$ l
End Sub
% S! `0 c: e" @' u  W9 S: V/ ~


0 ~" v0 y4 }1 [: }, J