vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
# m8 O5 F7 l+ T% X0 W# j4 }. |
vb操作access数据库 的方法
7 A9 a5 S+ @8 ^; s0 ]  [2 E
3 r! d5 [# p( C首先要安装  Office2003sp2
5 |' r5 H4 e, i, g0 V0 l
列子：读写数据库(.mdb)
; ]) }9 I  ~8 p2 U7 x
& W) V& Z) N! ]7 W1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
6 j4 k+ c$ |, Z2 }0 r3 F创建一个表格 并重新命名为test          （操作和Excel类似）

- q7 E. f9 M! n9 q  t注意 表格名称 和源代码要对应

: e. i5 g1 x  ^2 P" y* [
: x2 d* {/ K' l! A2.注册数据源（代码中已经注册）和写代码


在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
) U7 F7 a; F7 ^0 e) ^* D, v我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
3 }$ K* j# x- @7 E/ N“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
4 |3 c3 w: x3 ?) t. T8 ~% t

. c: t! G& @; V  z- k添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
: c: E! r5 W! _. ~添加一个按钮 ID修改成 “保存”
添加一个 List1
0 o' \9 }7 @9 J# B/ N" m
" n& f: O! ?  I0 t/ V( D3 I& F0 f" r: |代码如下


Public conn As New ADODB.Connection     '标记连接对象
Dim sql As String
Dim rs_maxcut As New ADODB.Recordset
# d& E* e: r% i; ~* w0 ?8 T6 r, GDim str As String
: @; h  @+ j; G$ w) EDim aa As Double, bb As Double
Dim mbd As String
3 q) a( H) t  T8 t2 G1 w! mDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double

Public Function cnn() As String
; z7 P* T# q; {    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
5 n0 |7 S0 L4 H; y" g; H: l5 sEnd Function

Private Sub 保存_Click()
+ V5 U% s5 \/ x" d# ^0 Z1 {
writeDatabase
) O/ m9 Y, W. m    End
End Sub
- [9 m2 v9 L% G8 b5 f8 ~! G
Private Sub Form_Load()
' ^2 d5 ^9 M" Z) {
4 B5 a. x3 O/ P9 u* o8 s0 y mbd = "D:\UG_OPEN\ini\数据库.mdb"

2 J: @* `( c( Y    conn.Open cnn '连接数据库
    readdatabase
4 ?# u+ [% E8 D! ~1 {. ]    Me.Text1.Text = "行数" & 行数
6 V* N5 N& p- M2 z8 q    Me.Text2.Text = "列数" & 列数
Me.Text3.Text = aa
) O6 _# Q7 t4 sMe.Text4.Text = bb
, I! s$ I# h) u3 wEnd Sub

Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
6 ~; `- E4 n, h' |; j    Dim i As Long
7 ~0 J1 i, s3 m. l0 r* ]# I    sql = "select * from test"
# t: Y5 A% s, E; p* i    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
% r. A  t3 K/ ~! N+ Q2 N
8 z, e  {9 P4 D8 Y" U4 f) ^
  a3 D4 s0 B5 V' X$ O# J) J8 o总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
/ P0 r: i) T, _8 c7 n) s行数 = rs_maxcut.RecordCount  '行数 （排除标题）
2 o2 _1 m6 v; I; f- `! {列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

    If rs_maxcut.EOF = False Then
        i = 0
0 b- d) E4 G2 ?        Do While rs_maxcut.EOF = False
& h3 {3 v; W* w% r9 G" g2 S           i = i + 1
% d- `7 J4 i2 C& X7 ], H2 c
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
6 k5 ]: W! ?; m+ F# B
, v, ^, ]- n' P& [) s. c            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
8 p0 ^. f, B! [% v( }6 B

       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
' F7 ~1 @2 N* r- ?' m- C5 x5 d% l        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

        '读所有内容到数组
        For j = 1 To 列数
$ Q$ m/ O% U! x6 g. O# B        内容(i, j) = rs_maxcut.Fields(j).Value
        Next
1 i1 ~# M+ L  H( E
        rs_maxcut.MoveNext '下一行
        Loop
0 a9 x4 z: ?. n" o% J7 r       rs_maxcut.Close '关闭
: ^& D9 `" D" t
$ I. B% R9 A& I( O3 p( P
        List1.Clear
& _6 X5 n5 [% ~' ]        For i = 1 To 行数
+ w& r8 O) o6 m+ B' c. G, [        For j = 1 To 列数
        If j = 1 Then
        str = 内容(i, j)
        Else
        str = str & " , " & 内容(i, j)
6 b  J3 W+ p! H        End If
  k" T1 Y, ]' h- |        Next
& j5 ^$ q1 p) m# ~        List1.AddItem str
        Next
  T2 o0 ]! [+ D6 c' H# e" l5 }# `
    End If
6 v" c& V% d9 J& ], l3 M
4 k  @" C5 q6 \
" |; X/ f3 e3 UEnd Sub
: ]$ t1 M  h& C4 n
# P" d& U0 f2 n0 J  K: |2 oPublic Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
+ J: h/ b' R  m  `# b+ s5 ]6 z    On Error Resume Next
% T3 B( Q! b: v8 a4 l3 R6 z    Dim i As Long
    i = 0

, }8 W7 |2 t- o2 F" S, _7 M- `% z& a4 cconn.Open cnn '连接数据库

6 G2 ~, Y6 g2 O+ G6 ]'sql = "select * from test"
$ j4 N) h0 J! q
' L/ O9 l+ c3 _  k0 w  ?  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

    If rs_maxcut.EOF = False Then
1 F9 O* m3 k/ j
        Do While rs_maxcut.EOF = False
$ A/ ]( r3 E% E7 U* z% h1 P: R          i = i + 1
( r1 {9 u/ H0 K2 f' P: C' C# a% K. h2 B
, k0 I: @3 Y% }( Y' e            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
* Y1 H: L5 `' B& X6 m
8 s2 T# C3 n: }% d9 {8 o- S3 g            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列
2 J4 k, x0 A: z9 _* ]+ n" d" _/ L
+ ?, ?+ S+ o) P) q. C1 L* _            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列

              rs_maxcut.MoveNext

        Loop

& j* y) G1 m0 o- S, v! h. m' u       rs_maxcut.Update
+ H% R6 [4 x0 q6 P) t* l    rs_maxcut.Close
+ v7 e$ f. `8 G
# H: z2 X9 ^; d3 L2 w& v9 P' c    End If
9 ?. F' _) u5 _' o2 r
End Sub

+ {4 e7 C- ~  n2 o

. g; {% J5 ~" M' Z- c  b  a* X
" k4 }  D( U, a" _