vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
, d/ }, G3 L6 t4 U
vb操作access数据库 的方法
! }8 z2 X/ P* r4 a2 ?$ i) t  `9 C$ j
. L; u1 g/ V% s1 V- r首先要安装  Office2003sp2

列子：读写数据库(.mdb)
9 Z- p4 W7 R( L( K9 f
* L( F- j6 ]( C! y4 L- ]1.创建 mdb
9 I+ f0 F6 U5 c" w  e7 V开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）

1 k9 [- y3 E9 K8 y! {( o- g5 d& z注意 表格名称 和源代码要对应


, A4 ^7 i4 Z7 s; z( ~% _2.注册数据源（代码中已经注册）和写代码

* V4 t- H# {. }2 K5 y
1 n: L) F1 t* U/ {% J在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
, D/ t) i6 }: ^# j" y5 O在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
, R& s' V) D" Z最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了


+ X  Y8 t. s: y$ A0 {. v" t添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
  Y2 n! ]% i1 U" {6 `添加一个按钮 ID修改成 “保存”
/ U4 B0 t$ ]/ j4 Z添加一个 List1

代码如下

9 e" y$ a. L% Z/ X/ Z3 m
, w* N' D% w! d) ?' n# |" |' XPublic conn As New ADODB.Connection     '标记连接对象
% c1 e& l9 T8 P, @Dim sql As String
5 O! o# W* ~2 nDim rs_maxcut As New ADODB.Recordset
; L0 P% i" x7 x) ^% B7 \1 [1 nDim str As String
. R1 I4 @2 \+ W8 o2 jDim aa As Double, bb As Double
Dim mbd As String
) B2 {# j4 s6 r+ a: w5 `, z9 oDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double

Public Function cnn() As String
    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function

, @2 {3 ^1 Y/ QPrivate Sub 保存_Click()

% @$ y1 D0 {! I writeDatabase
    End
End Sub
8 ^/ o* [, k/ x1 z4 @$ X- U, g
Private Sub Form_Load()
  h* S4 V; S. _5 r( v" K4 a% L
: o/ K0 n7 n5 e/ Q& M mbd = "D:\UG_OPEN\ini\数据库.mdb"
# _& T( Q+ {! i. b. {
% ?* J, d: s$ [% b, W9 f8 F    conn.Open cnn '连接数据库
# Z- ^, N0 j* K, l7 r    readdatabase
    Me.Text1.Text = "行数" & 行数
" r) ?! P4 l; g) x1 p% x9 G& I    Me.Text2.Text = "列数" & 列数
! b  C/ C& K3 v' q: C/ X5 p2 S% w2 sMe.Text3.Text = aa
Me.Text4.Text = bb
End Sub

1 D4 @1 A8 ?% v9 s7 _, VPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
3 f0 Z9 a( z$ w% k    Dim i As Long
3 N  b% q( L8 C7 f    sql = "select * from test"
    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
: R; J. o, @! ~: e8 v8 t) ]" W
4 U" v# k# |$ @/ e# A# a
1 J) `2 }: D6 E2 }9 P/ ^总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
8 c8 V- f) ~1 i* a行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
8 k( P( v! p  W) q8 r
    If rs_maxcut.EOF = False Then
7 B8 b/ V: f  }. a( Y! i        i = 0
, Y+ C' x  W& x+ Z& p/ V        Do While rs_maxcut.EOF = False
           i = i + 1
, B4 W* y6 F! r9 g, q! L2 o, D
$ Z: e/ H; Y) p# Y) m. n+ C& g9 X           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
% S4 k3 \' }1 h; B# n( F1 [
/ m4 e1 |) m' ~5 `- C3 Y5 Q8 a1 W( W            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
; C9 g; C7 k# m+ }9 G: A" H' ~1 p

       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
9 i7 E  s* S: K        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

        '读所有内容到数组
        For j = 1 To 列数
; J, r. k; t3 o% Z        内容(i, j) = rs_maxcut.Fields(j).Value
5 c9 v) u  f5 ~0 f3 Z        Next

% P1 p. f2 C9 g        rs_maxcut.MoveNext '下一行
: I" [+ L+ Y* K' X* A$ k        Loop
       rs_maxcut.Close '关闭

/ Q$ Y' N! G8 A) i( J
- S( K6 K# B2 z5 M5 e* L        List1.Clear
        For i = 1 To 行数
' @: ]9 ]' s9 d+ Q2 {5 F        For j = 1 To 列数
  g8 d9 y% S3 ]5 F7 b' q        If j = 1 Then
" |* Z- o' ~* G8 D# F        str = 内容(i, j)
: _- a  b$ X$ H$ y        Else
5 N( l) o  |' Y% h/ r; d& Z& c        str = str & " , " & 内容(i, j)
        End If
* z+ R! Y# `# Q6 k9 r  f4 C        Next
        List1.AddItem str
        Next
8 J. \2 p' S4 S
- L3 d7 m0 |8 _( N& i    End If


End Sub

" _* M* e  |. e  o8 R* mPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
  M* M; u8 v8 E- Q6 e$ S5 @( y    Dim i As Long
    i = 0
# @2 Z! f/ U; r( R
conn.Open cnn '连接数据库
- s, B# R& G6 i4 D2 m( F& z
'sql = "select * from test"
0 j; K9 }+ U2 p) ]3 L
  Q6 H' O  ~9 S: o  ]  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

    If rs_maxcut.EOF = False Then

; A- l" ?/ O9 e* `) W1 F        Do While rs_maxcut.EOF = False
+ J, X1 a/ o$ G6 i: X9 ]7 }1 E          i = i + 1

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

            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列

/ T& E  M* ^/ p8 k, c              rs_maxcut.MoveNext

  E  X" K7 Q& M% B  _- e        Loop
( V8 n( Y& f/ ?# \2 _
       rs_maxcut.Update
    rs_maxcut.Close
6 x6 ]+ b+ L9 ~
    End If

End Sub

/ m8 t9 j4 F* A! ]5 c

* A0 {( \. V, g1 Y( a5 I' E
3 L- G! o6 L9 X4 f5 s