vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
- m* J) ^6 c% ^- g) @# @3 c
' r! x8 P) S! m( q5 H, wvb操作access数据库 的方法

首先要安装  Office2003sp2
! i9 V& m: U' e# r
列子：读写数据库(.mdb)

1.创建 mdb
  d$ L; p4 u( \( q开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）

' V) i, C. c( e# b9 j注意 表格名称 和源代码要对应

; c5 ^% C( E( h! k$ _# u
* Q& ^! Z' c* l# a* o2.注册数据源（代码中已经注册）和写代码
" h1 [' R7 M, ?( }  K! d1 ^% \6 c

, ]. f: B+ h; ~  t- C在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
  V0 C3 I! U) n) k7 H/ z. f我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
5 L9 }* v- o' _* y2 W4 u, H“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
, x' X7 Z  m; ]4 o+ W3 A最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
4 o+ s+ [! `/ H
4 w+ q' Y! I6 _1 t
( l6 S; p  J$ ?3 q4 K* a# ?添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
1 Y, t+ w* y) b7 f添加一个按钮 ID修改成 “保存”
; c9 y  m3 b3 W, I, Q" @6 w添加一个 List1
! C# U/ o9 v' B
代码如下
+ @; t! F% P" `
" ~( e* v! Z. W; D
Public conn As New ADODB.Connection     '标记连接对象
$ K6 d" N; c# U* dDim sql As String
1 m6 {" \: o* }8 _Dim rs_maxcut As New ADODB.Recordset
! n: w9 o$ N( F) y$ q% G% oDim str As String
Dim aa As Double, bb As Double
& D! H. g- S7 a  mDim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
7 Q* Q0 N# T" ^% x9 |Dim 内容(999, 999) As Double

Public Function cnn() As String
( V" ?7 M: \  |* ^4 F    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function

4 `! b% j! N' S! E: h& g+ VPrivate Sub 保存_Click()

6 I2 a: J- A  F- g4 V: N writeDatabase
    End
End Sub
2 @" M5 B, q+ ?; x
Private Sub Form_Load()
0 G. i  s- D' d" b) T
7 s7 q1 G6 Q) F mbd = "D:\UG_OPEN\ini\数据库.mdb"
4 i+ x8 Z7 `7 c$ ?
) ?* p$ f7 E* u- d    conn.Open cnn '连接数据库
    readdatabase
2 I  |, C# G) D  e1 M  v    Me.Text1.Text = "行数" & 行数
) W: Y' ?6 b- y* K+ l! W( _    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
8 n( V' }: ^1 l9 ?Me.Text4.Text = bb
  ~5 s! I2 B, Q# s) U2 L: X( eEnd Sub
; F+ N% j3 u5 ?5 P& Z4 h* B
. J% ?# K% ^9 V* I& zPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
3 A0 k( t4 B# L2 |1 H7 w6 G0 n8 S    Dim i As Long
3 Q* |, s1 k) m% Z5 O" C+ S& B    sql = "select * from test"
    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
' P% K( n1 `# x8 v3 R" k
! J# a" D; D! N( ]
1 D/ w6 g1 w1 _  Y总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

% I( C% _; t$ g' O* A8 a$ c    If rs_maxcut.EOF = False Then
% f; p8 |- _0 A7 m" I) @        i = 0
8 i# ]! a, Z5 I        Do While rs_maxcut.EOF = False
$ o8 U* ~1 z( h& q1 c           i = i + 1

9 n0 C! h( o2 h0 [) [/ Q: u           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的

; k, M  u9 \- [
       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
* J/ e  r1 u" Y, k3 K" t        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
. @6 c$ u7 F: M% H. K4 z
1 p$ R# r/ `! C        '读所有内容到数组
" m0 p3 d, h' l: {. q" x        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
% E! o8 x5 z7 |9 \0 s, p        Next
) o/ f- u/ Y/ g# \
0 x% {  {" C: t) g) \        rs_maxcut.MoveNext '下一行
) l1 W5 W& H' h7 ~+ Q        Loop
       rs_maxcut.Close '关闭
4 y) D; f+ c7 B! m) V9 J  c: g
9 Z, c& e2 W9 b5 I  z: B' s2 _" b
        List1.Clear
0 q7 z; ]/ R$ G* n6 x, K4 I9 r9 W        For i = 1 To 行数
        For j = 1 To 列数
        If j = 1 Then
        str = 内容(i, j)
+ j) c4 g) N6 h" q$ o        Else
        str = str & " , " & 内容(i, j)
        End If
6 D- ~. F- A8 G3 ~" o; d        Next
* f* Y: D# l0 O' ]* a        List1.AddItem str
9 o# h  @& p0 [% b( L* `/ c! M$ N4 G0 A        Next

    End If
  J& p; p! f# D7 ^3 H3 T8 k# r# [

End Sub
9 |3 x5 T! u8 \& Z! z4 k3 Q
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
    Dim i As Long
$ |2 W; G1 F/ _1 g; j    i = 0
( p. I) O/ `7 j; V
/ W3 l" ^$ m  m& Econn.Open cnn '连接数据库
. h+ k- _9 s8 _( }8 H
'sql = "select * from test"

6 l3 j8 Q' T, K- g+ {6 a- ~/ L2 N" s0 X  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

4 T+ |# V  U. {) S4 O    If rs_maxcut.EOF = False Then
- }: T4 Y) g% N: C6 {% a
2 p/ r6 _, G/ }- V9 E- M        Do While rs_maxcut.EOF = False
! W  H/ g: T/ g0 P3 `- C" I          i = i + 1

, @! V/ `7 W9 M/ q) p            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
3 U$ ?7 {! N# d& n6 t
            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
5 Q7 |: v- o* k/ m5 r; c4 i
            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
9 Y2 U- x2 O. h! r3 ?1 `( ?+ H
3 R8 N0 J  V4 _! V              rs_maxcut.MoveNext

+ [# O, W/ B0 R' H( t8 a        Loop

       rs_maxcut.Update
    rs_maxcut.Close
2 b: b0 v9 z# |" w. |0 E- Q% d
    End If

$ m& u  l( @; _$ o5 h' w2 I' c( n' {End Sub