vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
' o: r6 a' x8 S5 v+ n8 Y/ r
8 B. u0 p) M: ~/ |: j- Evb操作access数据库 的方法
( g4 s7 L) o- U, U4 q+ x
首先要安装  Office2003sp2

) a$ K+ j% S; M, X2 C; C列子：读写数据库(.mdb)
5 m; k% @% [! I6 m/ ]  Z( X' }. s  r
% |4 y, z- S1 s) @; {  j1.创建 mdb
6 ^/ u& r- L% E6 S; A& h开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
9 P4 E5 O' L, R4 D创建一个表格 并重新命名为test          （操作和Excel类似）
$ M; z& ?  \: V! f6 q' f7 B
5 Z+ K, w7 l  g注意 表格名称 和源代码要对应

* m/ U, e; i6 v8 N) n1 Y
2.注册数据源（代码中已经注册）和写代码
  z& U4 K6 W0 f# I* ^2 |
0 {3 O: }9 V0 h& M8 e
$ ]2 J7 R7 Z* r1 ~: s) L' _( B在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
; L5 r; l+ K! g$ K- a: A' c: {我们必须点击菜单中的【工程】-【部件】，
1 q- H0 w. c2 j& \9 b1 v在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了

& y8 [$ n1 e( ^. V8 n% U
添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
添加一个按钮 ID修改成 “保存”
$ f' z9 v) w; V- q添加一个 List1
& f5 Q7 N2 _% G5 t' d: i
9 L$ Y) m2 |" ]$ W4 w% u3 k( A代码如下
: W* V  c) R% L
9 D1 ~- f3 u: i
Public conn As New ADODB.Connection     '标记连接对象
Dim sql As String
Dim rs_maxcut As New ADODB.Recordset
3 ]& |; B  D( Y5 m- uDim str As String
- F0 e, P7 E0 [( A8 xDim aa As Double, bb As Double
, Y9 T& e- P1 g* B, U0 [Dim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double
/ D8 d" x7 T0 q
Public Function cnn() As String
    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
, A. h) J& _6 sEnd Function
5 s7 c! |; R% W2 d% q
7 h* b: u9 m  H: ^Private Sub 保存_Click()
/ n) c5 a  Z0 V3 f0 i, _
writeDatabase
& g$ j! U2 y) ^' B  Y    End
  w  A$ p8 d( u  x" pEnd Sub
: k5 b$ {  H' Y, Q3 _1 J: p
- y8 A0 ~4 w) Z6 m7 |Private Sub Form_Load()

mbd = "D:\UG_OPEN\ini\数据库.mdb"
$ p% D& T9 v8 O1 _# J0 I
    conn.Open cnn '连接数据库
# ^( g' l- j1 F" m1 u8 X$ @    readdatabase
6 G0 }' x2 ]+ M$ B% m    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
Me.Text4.Text = bb
End Sub
1 D/ \: T- d/ h) H! C2 {
/ s. M$ T( c) e' P3 y% N' T; a8 SPublic Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
0 B5 S; B2 Y7 J2 m    sql = "select * from test"
- _3 G  o1 {/ C* b% t" g* ]    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
" D8 Q  X; D9 `+ Q, ^$ p1 D1 L

总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
9 n: t! N- S/ L! ]8 T8 c列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

    If rs_maxcut.EOF = False Then
9 S) W2 \6 A/ {1 N' T        i = 0
        Do While rs_maxcut.EOF = False
% j2 ~" _/ [4 y) y2 \           i = i + 1

           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
3 Z& X" p3 }, }- H0 f
# z( z3 h1 _9 f( Z% i0 M            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的


7 h  E- `- Y8 v       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
5 \! r* ]1 c" i/ I( _& W8 h: G        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

- I4 J* u9 o. t$ _        '读所有内容到数组
        For j = 1 To 列数
8 v4 E5 S% e/ R0 Q! m        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

, J& G/ @9 M" I6 _        rs_maxcut.MoveNext '下一行
3 U% `# d1 M, p5 o& O6 r        Loop
0 T8 L. ~5 G7 C       rs_maxcut.Close '关闭

/ y  ]1 g3 R. ]' T, D
        List1.Clear
( `2 P: Q3 U- U$ w6 A        For i = 1 To 行数
        For j = 1 To 列数
        If j = 1 Then
        str = 内容(i, j)
        Else
/ ?& q& W+ {8 e" h6 H. G        str = str & " , " & 内容(i, j)
        End If
& {5 Z0 h1 x- Z: r; z# e        Next
) ]# e' F+ M$ [- E. u# m% X        List1.AddItem str
        Next

% ~; l: x8 H$ B; V6 R, d    End If


End Sub
$ R5 Z9 P  I/ [" A; l
& Q1 ~  ~0 K/ j, |' [$ _Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
2 J  G6 f1 p& Q/ ~1 e$ g4 S    On Error Resume Next
7 i3 p  l0 b$ b' c  D2 n- r    Dim i As Long
    i = 0

9 K7 q3 X5 S0 N: Pconn.Open cnn '连接数据库

'sql = "select * from test"
$ l2 S0 p5 J2 p# f3 t
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

    If rs_maxcut.EOF = False Then

        Do While rs_maxcut.EOF = False
& t8 x# F  l: Z0 r          i = i + 1

9 D* Z5 J# q7 |+ _/ [            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
5 O) o9 Y) \6 l) ^
            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
1 m- a7 c* D. I  L# V/ j6 V
            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
" e5 |) [2 S8 m8 i1 `) f) w( I9 V
: w; e  H7 I+ v$ W$ h              rs_maxcut.MoveNext

        Loop

2 V5 Y, Q  c0 E0 Z9 N2 a       rs_maxcut.Update
    rs_maxcut.Close

7 t; m: y: j- @: ^% o    End If

End Sub
5 T/ a# s6 V$ w# @
/ _& s& L' D; _


$ m# ?$ W. y3 N& M7 y