vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
  c9 C# O8 |' H. r  j2 P
8 K2 A) |* c1 b/ n$ M  Hvb操作access数据库 的方法
0 n* \/ Z. y, H- U
首先要安装  Office2003sp2
) l! r$ [% {! c
列子：读写数据库(.mdb)

* A1 q7 n* s: x1.创建 mdb
3 a3 d; w% E5 G' @1 z开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
  o! {9 f; q+ H! ~5 A
2 d% F# o6 L& E6 R; _注意 表格名称 和源代码要对应
$ k1 K! k! J. Q

( i0 ^3 G* Q7 E4 w7 H+ u3 U& `2.注册数据源（代码中已经注册）和写代码
  C% \% p/ B) x& T

在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
! A/ U; n1 P9 ~( b) D我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
6 W6 O% J5 o* u) t7 X% ?2 D( |
' B2 |- v8 Z8 @: o* ?% d
添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
, N: \4 q) O7 W5 v% W$ \添加一个按钮 ID修改成 “保存”
8 [7 H: X# D, l2 [添加一个 List1
) r* l, q$ [0 N4 s
代码如下

5 g' o, K. t* C8 a7 F! Y
Public conn As New ADODB.Connection     '标记连接对象
Dim sql As String
- L/ m& B' m- `  ~( \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
Dim 内容(999, 999) As Double

% |0 l7 M: i5 C, m& IPublic Function cnn() As String
    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function
" ~/ \$ F$ |. j, v; x! L
Private Sub 保存_Click()
" s/ w0 j* I3 p) _6 \
writeDatabase
+ n4 O6 K& i8 x- y    End
" k- W! b9 u, p, ?; QEnd Sub
$ W9 ~( r: K5 z8 V0 p+ Z! e
Private Sub Form_Load()

  ?9 A5 j3 f9 A+ z1 a* s. ^1 [ mbd = "D:\UG_OPEN\ini\数据库.mdb"
  d, J8 i. v" S/ e  h/ S7 E( K
+ j+ O$ o$ A# M7 X    conn.Open cnn '连接数据库
0 ~& D9 J" t  _* N- t5 `    readdatabase
    Me.Text1.Text = "行数" & 行数
. v( ]9 j! g1 G! [  i    Me.Text2.Text = "列数" & 列数
# k- I' i: [: ?- `5 NMe.Text3.Text = aa
Me.Text4.Text = bb
End Sub

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

总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
9 n6 Y( G1 Q. v, [2 x# T8 ]行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
3 q0 d& J4 S5 T) P
( G5 I% u+ R5 |7 j- b2 n    If rs_maxcut.EOF = False Then
        i = 0
        Do While rs_maxcut.EOF = False
3 c' R4 U& P! M6 ^$ c' B           i = i + 1

. ], W5 K* [$ r4 J           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

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


       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
; _- V- m* d7 N' |6 c! F! S9 S& ^        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

; f4 d: n3 Y. q! F' f0 _        '读所有内容到数组
        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next
) Z+ y3 T9 D1 T
        rs_maxcut.MoveNext '下一行
        Loop
1 o0 W& r3 X% L& T  H       rs_maxcut.Close '关闭
% s; p: P8 I( {, `! {

        List1.Clear
0 z+ a, |$ {0 _8 ]: L        For i = 1 To 行数
        For j = 1 To 列数
        If j = 1 Then
2 U, j+ x& v( B# g5 ?) K% W3 k        str = 内容(i, j)
. I/ ^$ O5 N( s/ C! f- i        Else
# m3 ^, f9 p) }5 }+ _        str = str & " , " & 内容(i, j)
9 Q0 O9 ]( e4 H5 b1 J        End If
        Next
        List1.AddItem str
        Next

    End If
- ?. ^  M4 H' v  ?( I& a, a' H- x
2 S5 z4 M7 p% D: j% _4 b0 q# b
End Sub

Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
    Dim i As Long
. {# v- U: u" _6 {& B# t    i = 0
7 L3 l" [/ }; l8 N6 ?$ a7 ?) D
8 Y! c% r  ~) Iconn.Open cnn '连接数据库
% J% H  i0 q2 }' V; J7 B
# C' K  |+ d$ a3 G'sql = "select * from test"
1 i2 q' V3 O- Y( U$ l
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

    If rs_maxcut.EOF = False Then
9 ~! J0 i- R! W' I2 ?! D
        Do While rs_maxcut.EOF = False
          i = i + 1
) E( E" o0 G2 c% b( c5 p
            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
3 t" h: G6 p# }9 B
            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列

              rs_maxcut.MoveNext

9 ]$ @0 _; G* ?7 s! Y        Loop
( H1 R9 J8 A0 Y' v  M# t4 {
       rs_maxcut.Update
    rs_maxcut.Close
" b4 ^  ?2 b) g! c
    End If

+ j. o5 ?+ n0 W* }- b9 a- ?1 eEnd Sub


0 f# M) C  ?% J9 Z- v