vb操作access数据库

15757753770

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

9 y* L9 i( ]6 Z6 ?8 s  q8 F$ avb操作access数据库 的方法

' N. ~9 x" W$ o  K首先要安装  Office2003sp2

6 F; R4 a( D7 a2 D列子：读写数据库(.mdb)

1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
3 A- D3 H! f2 j/ p3 ?
注意 表格名称 和源代码要对应


, g8 ?; @  C1 B: I, p2.注册数据源（代码中已经注册）和写代码
5 C3 P# [, E- D3 N: b
& `4 r, I; `. G. p$ G
在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
/ Y; V6 y6 z4 ?! h4 e5 Z我们必须点击菜单中的【工程】-【部件】，
* K8 a/ k, E3 g/ j4 h在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
# s  e* Q$ o. ^) q. |( a“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
3 u4 v5 m6 {. s0 z4 M最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
& r# t( k1 ~, B6 e8 S
# M$ a( ?! ^! U2 S& O
- L, ^6 f2 F. ^# G& N- W- Q  D) o添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
6 g; U- s* ?) M8 p0 b6 a* c: Z添加一个按钮 ID修改成 “保存”
, P2 O$ |" }' v添加一个 List1

1 [6 O# t2 P7 `- Y' h1 N: v* v代码如下
2 n4 h% l( G8 _* ~+ _

  o% o  J6 P1 a+ [5 [7 lPublic conn As New ADODB.Connection     '标记连接对象
: M8 x; x0 h! R, J4 FDim sql As String
  S+ O- ]/ z' Y0 o$ _) JDim rs_maxcut As New ADODB.Recordset
, }7 e( E  _5 O% D) }3 \# zDim str As String
Dim aa As Double, bb As Double
( ?2 r$ b. H% O7 p: X. P! yDim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
% O+ A" f; z9 a$ N- ~' d/ mDim 内容(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
) g% G/ e/ p1 E9 V+ P. R
Private Sub 保存_Click()
3 n8 g* F4 w% U! j3 e3 d
5 I3 I9 p) w0 D6 |( Q writeDatabase
* \% m$ Z0 w+ r! w1 S    End
End Sub
3 u1 u# R& o1 e* |% i$ W6 e
  t. f% y! V( A2 a3 v7 J# nPrivate Sub Form_Load()
, E. }5 O$ I) W+ ^7 M, g" ]
- Y: n- b2 [+ ^" V! e3 J4 y8 n mbd = "D:\UG_OPEN\ini\数据库.mdb"
: ?3 Q! m$ t. y+ Z3 H
    conn.Open cnn '连接数据库
    readdatabase
0 ?' D4 h0 r' O+ Y2 T  L    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
+ m: }1 o/ i; F+ x$ gMe.Text3.Text = aa
' {( ]1 g0 N$ cMe.Text4.Text = bb
+ J% f! A( I& H  M# P! kEnd Sub
9 T) O7 c3 j+ A; F* s4 ~8 w+ l
- ?5 M  ], \7 P* I. bPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
+ ]$ H3 y  k2 K" v# i! \    Dim i As Long
- E; T8 Q' q2 S" o$ @! T    sql = "select * from test"
3 f$ P2 I+ @" D  ]' v" r    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
# d4 N, q& u1 H4 Z4 m4 t
+ R* u& `( m7 W' Y4 }
总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
  D0 r8 G6 K, j5 u1 V- Z6 k; p列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）
0 f5 I+ {5 p$ F  P- X$ U
    If rs_maxcut.EOF = False Then
        i = 0
/ n3 H% q0 H5 q- R/ K2 c4 ~1 @1 `        Do While rs_maxcut.EOF = False
$ {' K- J9 [0 G# Y           i = i + 1
9 w7 B" [2 K# t6 c$ ]( @
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

& u& ]: J1 z) K) J0 H4 F2 d7 \            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的


" ~8 O; H& t3 I2 t, l       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
7 B  c2 _/ _9 ]. t* {        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
2 G2 v4 l7 B# {1 @0 o& Y1 J4 B5 l: U
        '读所有内容到数组
* J1 B5 `0 j9 ^3 l4 H' @* h        For j = 1 To 列数
5 G8 {$ @$ g8 l1 F1 ~) Y1 c        内容(i, j) = rs_maxcut.Fields(j).Value
0 Q9 u4 v: j0 z. E' B6 ?5 L        Next

& @$ s2 K9 y1 Q% e% k: C3 k2 v# Q        rs_maxcut.MoveNext '下一行
        Loop
( _* ^) R. ?7 A' D       rs_maxcut.Close '关闭

. t- {! N3 R$ g+ B. {
        List1.Clear
        For i = 1 To 行数
        For j = 1 To 列数
        If j = 1 Then
8 D) X, q# j4 O/ K+ A' `        str = 内容(i, j)
8 w' W- W0 ]' }& V# `# I- c4 O! n        Else
5 m6 h* U. _) u        str = str & " , " & 内容(i, j)
        End If
        Next
* f9 k: T/ c) F& ]9 e4 p$ h        List1.AddItem str
# q; Y# D' R* ^5 N" |        Next
2 L1 ~1 P" Y% ~7 Z) c* G
    End If

) o' @6 a# ]0 ?9 I4 o: w0 F
End Sub
; I- u6 f. T) F# B+ ^& Q; s; @, \# Z
' I1 U  R/ M% d& ^! qPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
! [2 N4 ^6 c+ p& x# L" @$ ^2 `    Dim i As Long
    i = 0
# m' j" P( C1 O- e. B) Y
8 }" v% ]/ u  g$ T4 `* ~conn.Open cnn '连接数据库
* g! p5 U' D* M) V) Q
% S  `$ e$ J" t) i0 U5 V'sql = "select * from test"

/ }2 N7 @4 q6 u2 H/ r  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

" B5 ?9 I$ C! W; \6 T' t/ l6 K    If rs_maxcut.EOF = False Then

0 K: U5 r/ p% s        Do While rs_maxcut.EOF = False
6 H, D1 W" v% F/ @          i = i + 1

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

            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
' c5 B7 E, k9 ?% w* z& r  U
, g0 n- m4 [9 [" X" F7 L7 l            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
( J$ h3 k+ F; o+ ^# U( @, ^
* C1 p3 n3 D; p; `/ l2 F/ g  g" ^              rs_maxcut.MoveNext

" d# K1 p; j. T        Loop

% @& O2 W" J; G( F5 \       rs_maxcut.Update
    rs_maxcut.Close
8 ~' v+ F3 j. _) B
. W" C6 C7 {$ P  f( G7 V  F$ e    End If

End Sub


8 l7 b* g( L( s" x  J6 k. M
) t- W. S( u$ x" F
# K6 Z  u# ?2 M" Y: A: R