vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
0 p( V5 z% |' ]( h  k
vb操作access数据库 的方法
3 i# h) F3 C5 e; a9 x; h- v1 V; I6 u
首先要安装  Office2003sp2

- Y5 a8 m) P3 k4 b% L* o6 Z# X  c列子：读写数据库(.mdb)

1.创建 mdb
- ~) A( T0 j% B# |. w$ Z. y开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）

+ _1 i1 ]3 m; Q$ T( W6 e注意 表格名称 和源代码要对应
4 ~3 G& [  f+ {; ~( k  W+ S

4 `' ]3 A" e  V) B8 q2.注册数据源（代码中已经注册）和写代码

" Y5 A. D3 f1 n1 D5 {
在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
6 j2 t/ g/ ?0 c8 m% c0 `' y) ~; {在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
, l+ v; p+ s- _  o5 N8 p2 z“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
; R& v* Y! R# i5 s: ]
  u3 e: j+ U$ O( ?- {6 l5 N$ d
$ t8 v  N, V3 a! V6 [$ v5 ~添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
& e+ W  k% k! ?: ~添加一个按钮 ID修改成 “保存”
添加一个 List1

代码如下

9 ^, Y2 u# T8 i5 }* V) o
2 P* i3 X) q1 V0 i, O1 gPublic conn As New ADODB.Connection     '标记连接对象
Dim sql As String
+ @% i! {; z& MDim rs_maxcut As New ADODB.Recordset
Dim str As String
  I& Y5 L9 K4 ]% v" N' sDim aa As Double, bb As Double
Dim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
# W8 a  i$ W- z/ g. N- u) k& ZDim 内容(999, 999) As Double

0 T. a- i4 c) Z0 w! Q5 dPublic Function cnn() As String
, x( d/ Z0 C  e- g% w- Q) n% k9 N$ L6 g    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function
. e1 e9 m# O" {8 J
Private Sub 保存_Click()
  O6 P& _6 y. J# [! D) r% ^" A
1 A8 A5 p* v' G3 s# r/ O5 _ writeDatabase
    End
End Sub
" _8 Y2 K; V8 n  I
. y& O2 g: y/ j( @Private Sub Form_Load()
8 J! `, o& e, S4 a6 B" k- ^% R
, S+ Y( ^0 W4 |& }8 Q. F, m mbd = "D:\UG_OPEN\ini\数据库.mdb"
$ [2 i+ u: L7 }: D; _- _+ `
    conn.Open cnn '连接数据库
    readdatabase
    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
' c2 \5 v/ [  \4 o5 _Me.Text3.Text = aa
* A& M, i- p) N9 I% wMe.Text4.Text = bb
8 X3 f, c; u, _) bEnd Sub

Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
    sql = "select * from test"
    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集


/ f/ g* i2 G' [1 W. _总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
3 c0 {% M$ v. L* F1 m5 H行数 = rs_maxcut.RecordCount  '行数 （排除标题）
" N* a) I$ I$ i7 F列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

8 m# O5 i/ G* ]  c5 l7 I    If rs_maxcut.EOF = False Then
, k# a  C$ G4 u7 Z7 W        i = 0
/ }4 f5 Z+ D% w3 e        Do While rs_maxcut.EOF = False
           i = i + 1
+ Z; Q9 J6 D% G/ W8 R( n
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
2 ^; K( X% D5 F4 m8 ]
            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
9 `/ D  J% v+ F0 P, p6 }
  \2 }: \$ P. ^! D
       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
9 d& G% V# R' i1 T; t        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
9 M0 C* W" P% {- g$ [0 }1 {1 b9 f
! i2 ]4 l6 `* i' z0 Q) L: }        '读所有内容到数组
        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

        rs_maxcut.MoveNext '下一行
) f+ }7 ~3 ^; f/ h        Loop
       rs_maxcut.Close '关闭


        List1.Clear
/ T! x/ V9 d6 K% u3 E5 Q; X2 v/ k/ t        For i = 1 To 行数
4 U1 ?* B4 Y( Y: v+ p        For j = 1 To 列数
        If j = 1 Then
" l: L! |! T" W) V: f) S& h        str = 内容(i, j)
* d' X' i: @) y. X  M3 E        Else
+ @* O" a; r7 r6 A7 @6 V        str = str & " , " & 内容(i, j)
        End If
( S3 ~3 r7 m% e( u1 O4 k% e, K0 z0 m0 s        Next
  s4 }0 Y0 ^+ [" A4 `        List1.AddItem str
        Next
. {+ T6 Y- E1 y6 _4 m$ H- ?7 S3 n
- f* ]( c; `0 w3 v    End If


End Sub
! X4 k+ R3 V* ~
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
8 p* f& M  ]4 }  T/ p) D# {- C    Dim i As Long
    i = 0
8 M+ p$ Z9 N, D! m+ U
conn.Open cnn '连接数据库

: F9 C* B# s8 _) y+ x- j1 m( g. a'sql = "select * from test"
0 U5 m9 E: R* y6 J( b& t
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
* l* k1 c. A9 Y& p* M. I
8 q0 w) f  j# Z" W) }' @    If rs_maxcut.EOF = False Then

5 [$ _# [& F# X! Q        Do While rs_maxcut.EOF = False
          i = i + 1

            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题

            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
' B7 @. }5 F7 e$ I2 s5 i, v# C
: T, N; K- O$ N9 P            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列

              rs_maxcut.MoveNext

, D) E9 B' q$ F" Z& Y; E        Loop

! p9 y" A, b' Z. o- I, x1 Q% Z       rs_maxcut.Update
; N. N0 w  G( y    rs_maxcut.Close

& F# l0 L- U1 b0 z2 A1 o, A* ?    End If
, d% R5 B8 M( \. R! o
5 e8 g% I+ Z7 E9 e& l* _End Sub
5 Z$ ?2 p, v( G7 }9 \9 A
* J. r1 [& k, R
0 S+ b0 M1 E3 {: j! S' [+ Y
, t, N/ f6 u& C8 W) K