vb操作access数据库

15757753770

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

vb操作access数据库 的方法
1 G; c& d. N& ^4 S5 |: @# k* I
- [8 x! q7 f9 t/ W首先要安装  Office2003sp2
' {) m0 g0 R4 U) P
2 f. C$ b/ P% \8 O  K列子：读写数据库(.mdb)
) c( ?6 b( \5 j4 B! o: {
1.创建 mdb
- i! W& }3 r' ~  Z; p: g# g! f& m* m开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
3 B3 D" _/ |, v
注意 表格名称 和源代码要对应
& B5 I0 L; _: y2 [- l2 }' y

# G; c; O6 `1 Q' a6 V$ W2.注册数据源（代码中已经注册）和写代码

  l# ^, i# ]; k/ x
在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
: o2 y2 {( |( ^! H0 ?, q$ m/ g我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
* ^" w$ C* L+ H$ n8 I) B7 n5 v“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
5 c+ c6 J, Y/ o( N+ ]
' p1 Q# o9 |# B$ f. P
7 {' ~' M) a4 L. e+ ?; U8 M  X7 Y5 I6 _添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
) G/ o% Q  H. L7 s3 n9 O8 N添加一个按钮 ID修改成 “保存”
) z" ]  r: g2 j( v% k添加一个 List1

代码如下
6 W+ N: ]) e+ v8 _

* N8 {+ X9 s' X( J' Y+ z+ F% y) t/ qPublic conn As New ADODB.Connection     '标记连接对象
Dim sql As String
Dim rs_maxcut As New ADODB.Recordset
Dim str As String
6 Q2 t4 D- B; J3 UDim aa As Double, bb As Double
2 G1 f1 F& y9 O( fDim mbd As String
2 e( N; n; Y# ~: vDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
0 j: `' b4 H9 p3 E: HDim 内容(999, 999) As Double
  a+ W6 W) e! o; i/ J  k  I
Public Function cnn() As String
$ x- K) P6 e1 _    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function
: X1 ]# E8 R' u4 [$ d" V
/ J3 I7 O+ Y- `Private Sub 保存_Click()
8 R( Z+ G" c$ \5 L2 k/ R
writeDatabase
* D: C: _, @$ f    End
End Sub

Private Sub Form_Load()

mbd = "D:\UG_OPEN\ini\数据库.mdb"

    conn.Open cnn '连接数据库
    readdatabase
$ S* a- }3 Y( u( Y; t4 }    Me.Text1.Text = "行数" & 行数
2 }/ v, M( d: J- i7 |) C, f    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
Me.Text4.Text = bb
$ [5 c* o5 k% P) n  H- b' U5 `End Sub

3 t0 l: q! G0 _) M; ]1 J0 J' z1 cPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
/ J4 I: C! m% ^4 R; @    sql = "select * from test"
2 c7 E9 E, M  Y. j, A    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集


总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
% v) ]/ S# ?9 g4 }行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

. V! s6 a; \9 Y! d/ l4 F    If rs_maxcut.EOF = False Then
- f0 ^3 S" C2 U        i = 0
2 _9 E9 j& E* x. J        Do While rs_maxcut.EOF = False
           i = i + 1
7 u1 J( Z" R# V4 c. r4 S% h. M, x; h
' P" i. z( B; `$ m5 a! p1 [           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
! K: f1 Q+ l0 V8 T; A1 @  V
            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
' Y9 q6 _9 F( H# P( T& v9 H4 Y

: E' k8 |: J- C, Q       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
! w7 z' l. ^2 y* z, z
        '读所有内容到数组
        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
1 C' o8 c! c1 Q9 J- H        Next

  M" P( E. i" d2 E4 B9 z        rs_maxcut.MoveNext '下一行
! y8 X: x- e# Z! S4 Z        Loop
0 P6 r2 ]% E) O0 s& _       rs_maxcut.Close '关闭
+ P% w( y' E1 ?+ O! W/ V

        List1.Clear
        For i = 1 To 行数
+ U3 Q7 Y/ Y- C' H        For j = 1 To 列数
* z/ s" q: l" ]# p2 B+ c        If j = 1 Then
; L9 ^' d9 X; f" ?1 M# l        str = 内容(i, j)
        Else
: |5 |; Q: e5 d$ F9 O+ F        str = str & " , " & 内容(i, j)
2 x# w; a' O( I: L4 r# a        End If
        Next
  D7 n! @9 f/ {& g! G7 O) t" g        List1.AddItem str
/ b% Q3 J" R8 j        Next

    End If


6 r& |0 [2 P" C" x! N+ EEnd Sub

0 o. G& F, S( F4 yPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
8 u" t! p$ R( r3 b0 |    Dim i As Long
    i = 0

, j- f  l: O8 G( M- |- L  Bconn.Open cnn '连接数据库

'sql = "select * from test"

  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
2 m6 J9 x! ]- Y  g7 y
    If rs_maxcut.EOF = False Then
: s/ a! b; E7 D. C6 ^; i
        Do While rs_maxcut.EOF = False
/ z4 Q( r6 I7 D0 G, J" P          i = i + 1
5 h* i$ |2 i; U8 P4 }2 E0 P
            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
3 @8 z3 K5 V% b, V+ ^' ^
            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
0 \0 L/ b' L/ N! y1 R+ ~- |/ P
            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
5 k+ M- r$ Y$ F) j' r/ l
8 ~% R: v+ Q  A  y              rs_maxcut.MoveNext
  C1 o% f0 j6 o* D
        Loop
$ V2 k  {- I2 t$ {' Y
       rs_maxcut.Update
4 g4 S1 o  R# s7 U    rs_maxcut.Close

    End If
2 b6 Y2 n/ h. F1 U" K
End Sub
2 g1 T9 s9 a' o



: G! k' \$ p$ I