vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
" Z) j% ~. H0 P4 n) F$ `7 }
vb操作access数据库 的方法

+ [  x0 \# \( S/ G2 h( I; [首先要安装  Office2003sp2

$ r) t  g( ]* }3 q2 H列子：读写数据库(.mdb)

1.创建 mdb
6 R+ B! c: ?  c( }1 z开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
7 s; E* Z. B! z) N3 u* o创建一个表格 并重新命名为test          （操作和Excel类似）

* w5 B* z* ^/ b( i+ p: [* D# x' C注意 表格名称 和源代码要对应
( m, T0 s: y( ]

3 `$ Y" X8 S7 O& i2.注册数据源（代码中已经注册）和写代码

8 ^- s. S5 R6 O* Q9 V
在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
: s+ e# Z+ R: c/ g$ _  t我们必须点击菜单中的【工程】-【部件】，
+ X3 _5 j% o: F8 L: I* _; h+ J在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
! m9 j: H# M7 R: S“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
3 O+ F! P5 d) @. _7 `+ g
/ c  P* ]0 W; k1 G0 H9 b& |
添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
添加一个按钮 ID修改成 “保存”
8 A- B  Q  K7 d- N( c, Z' b添加一个 List1
# {. k- b5 H) Y2 f9 b8 s1 w  i4 k
代码如下

. J# b0 e( a7 u: R
Public conn As New ADODB.Connection     '标记连接对象
' {/ R$ H$ e1 W% MDim sql As String
# o/ @" v& y" K) d/ b: [8 {+ Y) p- @Dim rs_maxcut As New ADODB.Recordset
Dim str As String
: R1 K# d1 ?; Z7 q' ?; DDim aa As Double, bb As Double
Dim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double

! q( w, `8 Q1 jPublic Function cnn() As String
    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
. W: V# m* T4 z; t7 i( H* L* REnd Function

Private Sub 保存_Click()
8 ]9 `% V: \1 U7 I1 \
writeDatabase
    End
4 g+ `8 S9 d8 e, [End Sub

Private Sub Form_Load()

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

    conn.Open cnn '连接数据库
    readdatabase
    Me.Text1.Text = "行数" & 行数
& W- ?! q4 V; D* ~0 [; `    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
3 ~, D4 E- U7 H5 E' x2 @6 C" XMe.Text4.Text = bb
4 |1 H6 _: M, x% x  JEnd Sub

Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
" f9 p) O, J$ E    Dim i As Long
5 f( c, F! {, }    sql = "select * from test"
    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
/ @3 {) U$ b, }; K" }! B0 a
/ K( o, Z8 q" d8 S% `; J1 z
总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
/ ^% L  i1 Y6 d0 [% k6 {5 n行数 = rs_maxcut.RecordCount  '行数 （排除标题）
+ s/ F5 k# k/ ^$ @( m列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

' d( m; K4 g( P5 t    If rs_maxcut.EOF = False Then
) W1 B: Z3 N) n        i = 0
) S" T2 D* f. @0 ]- ?  \* L        Do While rs_maxcut.EOF = False
0 g. _! g9 P: ~5 S% G5 A  m& ~( J           i = i + 1

           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
; s9 H7 D: _5 |" o# D, b

8 O- p& N4 W' k  S4 S       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

        '读所有内容到数组
; U$ c! h8 Q+ g( X6 |% V        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

        rs_maxcut.MoveNext '下一行
        Loop
       rs_maxcut.Close '关闭


        List1.Clear
        For i = 1 To 行数
        For j = 1 To 列数
& N7 _8 `4 z' B        If j = 1 Then
        str = 内容(i, j)
& F  n/ R5 R$ G        Else
! ?2 a! h3 A9 v) w/ t) {        str = str & " , " & 内容(i, j)
        End If
% z* B2 Z) v1 Z' L4 M        Next
        List1.AddItem str
% A' o' r+ B7 x( j5 N        Next
7 D0 P1 F, v3 O% g5 l2 t9 d0 d
    End If
9 _) ^( m* w2 s5 o) M3 @+ _
1 V2 P8 p( @! ^0 k
End Sub
' ^( l5 c# R' ?, m( W3 ^. ~# A4 v
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
    Dim i As Long
) X" e3 F! W+ m; J$ P0 @    i = 0
4 j8 y( h' x5 T& x! u4 }8 n1 [
; {0 p7 a! v7 G& v. a( Gconn.Open cnn '连接数据库
% U' n$ h$ S; ^# a
! h7 m' X& u: L$ ?: b& [( R'sql = "select * from test"

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

2 ]0 p4 L9 r, R6 t) `+ @    If rs_maxcut.EOF = False Then
  S! r! g* z: z1 Z8 P: u
        Do While rs_maxcut.EOF = False
0 z5 r: o7 t9 v$ r          i = i + 1

            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
: B6 o7 Q' w$ L5 {- M0 i
. o. b* K9 I: b: C: z, a, U8 x            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
& O- _$ M* P: R
            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列

4 c1 a- O9 t7 w0 }( K* A& M              rs_maxcut.MoveNext

1 h. @" u5 ?% c! E  G        Loop
! s$ A& H1 r4 @5 k8 f9 _
       rs_maxcut.Update
0 t* S0 ]+ K! \1 E    rs_maxcut.Close

    End If

/ }5 y3 i  r' x# X9 @2 q+ _End Sub
0 E$ z0 e% I  x$ F+ B6 S
( }# X& \3 p9 l  [" N

7 K. D# b2 T  E& J: ?- O
' O( Y* Y: c+ d: ^