vb操作access数据库

15757753770

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

; S4 k2 t. Y0 W3 }2 L8 q; s6 d+ E  Zvb操作access数据库 的方法
4 G* C1 w# v, I6 T! _- e1 H
0 D" b) ~- P- [首先要安装  Office2003sp2

列子：读写数据库(.mdb)
$ Y7 W  T* i+ r7 z
) X0 m( ~* L# `% o* H# C9 G1.创建 mdb
& _) M* H& _& m' K开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
1 o6 s% [$ y; E4 A创建一个表格 并重新命名为test          （操作和Excel类似）
+ Y" r- |0 o+ Z
) A# Z! W& r8 D" ~, I注意 表格名称 和源代码要对应

# [1 J* R! z! E
2.注册数据源（代码中已经注册）和写代码
9 f; k) j: [' T

在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
5 p) b& S9 i' g) }! A  z我们必须点击菜单中的【工程】-【部件】，
* a/ z9 v4 Q9 w7 f在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
4 H* y& I9 A1 e+ A3 T1 ]: r9 |“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了


4 R: W1 L, E6 g8 ?( `% @添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
( e# z) i0 H' T3 E) U: ~添加一个按钮 ID修改成 “保存”
* q8 O( b/ g8 F& t& d添加一个 List1

代码如下
7 X# W" T, |7 @

2 A. ]* x9 I  f3 r6 O% L) fPublic conn As New ADODB.Connection     '标记连接对象
Dim sql As String
Dim rs_maxcut As New ADODB.Recordset
Dim str As String
Dim aa As Double, bb As Double
Dim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
+ d* Z  A' P+ U6 [4 L( |' d; _Dim 内容(999, 999) As Double
, d9 {: R8 Z4 H0 i
Public Function cnn() As String
* {) B; m8 |0 u) v0 P    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
/ ?, I1 y( ~7 x/ G0 d6 UEnd Function

Private Sub 保存_Click()
% [$ L$ F& O3 c* R
writeDatabase
( q0 F% P4 t: q5 n2 N4 d1 ?7 ~+ Y+ y    End
End Sub

Private Sub Form_Load()

# _  h) K% S: J' @5 Y- K+ g mbd = "D:\UG_OPEN\ini\数据库.mdb"

: W- U+ M. z0 H3 p+ F: N    conn.Open cnn '连接数据库
& X% V, c3 z- p( n/ Q    readdatabase
  x& K2 Q0 u: @1 i: U    Me.Text1.Text = "行数" & 行数
  {6 q* H. F0 q: X$ g    Me.Text2.Text = "列数" & 列数
2 S6 j5 I% a. u+ U, e. UMe.Text3.Text = aa
Me.Text4.Text = bb
End Sub
, r5 Y2 d  y, d9 E
Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
' g2 t9 j- i; g, Z1 s3 R' Z8 P* ^  d    sql = "select * from test"
$ I: P* x- ^" ]# A8 b    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
, a! q1 @0 u( c: [+ l) Y2 S# ^, n( b8 Y
/ f2 m0 C' ~4 w7 p
总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
; C( L0 E' `4 V5 D# M
    If rs_maxcut.EOF = False Then
        i = 0
        Do While rs_maxcut.EOF = False
           i = i + 1
3 ]2 z0 w- a: J. i* J
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
9 {0 u& U" f3 k" R) S1 l' p! ^
4 s* F1 S  j1 t& ?2 r            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的

) O! c* ~) A! b
. k" C; H7 _# \% L       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
6 {3 v3 p7 _& c, A
% c! |7 F6 k* X5 f, I* U( Q% p        '读所有内容到数组
7 O/ o- L0 @: f; I# o3 Q. M        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

+ L6 n& h. Q! m1 J! ?# J        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭
1 M) u% |( s" K

6 e) a8 }" f: V# E        List1.Clear
        For i = 1 To 行数
0 A9 N# l9 ^- ^8 |$ N        For j = 1 To 列数
        If j = 1 Then
        str = 内容(i, j)
        Else
" ]1 Q* t, H& ^$ U) f* b& E; T        str = str & " , " & 内容(i, j)
        End If
! T/ z  y. c4 s: E        Next
+ z& p) f) K6 H& y        List1.AddItem str
0 C2 c0 s' R7 r( I/ Y3 l4 H9 n        Next

    End If

1 v2 V- V( }4 C6 B# k0 J) w
End Sub

Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
6 i( z( Y( `5 U  T& K    On Error Resume Next
- ], l( W3 W: ?& n% u7 e5 I    Dim i As Long
3 r, A- E& _% h/ \( ~    i = 0

9 @7 M; a- q" Q5 a' |conn.Open cnn '连接数据库

: D) J- M) Y5 A: A'sql = "select * from test"

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

    If rs_maxcut.EOF = False Then

) V! p% C5 ]" n& z2 u* [- e5 K        Do While rs_maxcut.EOF = False
          i = i + 1
1 e# F: x% T2 A' m+ [
            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题

3 }( b8 {, ^- _% S- e7 Z$ q            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列

0 \3 h7 a! ~- x; u7 Z( A; b: s  |            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
1 W+ W( k+ s4 n  h8 N; ^
4 D; I7 @2 R9 ~6 [4 j, @              rs_maxcut.MoveNext

        Loop

       rs_maxcut.Update
6 T- j# S1 ~; e' P5 m: f% J: o    rs_maxcut.Close

3 L+ [9 x2 A1 K6 V% Y4 U- S1 T    End If

; E% D  K2 P8 r8 ]* |# NEnd Sub
; Y: Q, W" p- W9 k- M$ v5 d
9 D' {9 S: c4 p5 b5 _* v. |, m
" ]& d4 X: c" A. N