vb操作access数据库

15757753770

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

* E* s2 T5 D, hvb操作access数据库 的方法

; e# n: c5 v) @; l首先要安装  Office2003sp2
9 s* Q' E2 f4 H! ]7 ^
列子：读写数据库(.mdb)

1.创建 mdb
! ~8 G2 G8 S/ b. Y' ]: U, D开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
( g& M8 m: t6 [9 r3 p1 }
& h- _+ \5 o$ L* ^* g9 ]2 B- E, M注意 表格名称 和源代码要对应

+ P; g# Z3 ^' b! ~. {4 c/ R
: Y: I- N& g9 T. {# _2.注册数据源（代码中已经注册）和写代码

6 J: \1 [6 U2 W& e2 g) b$ s2 \
在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
我们必须点击菜单中的【工程】-【部件】，
: m0 u: v5 ?) b8 M7 _9 p- p* a在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
) g  j, }3 g' N“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
9 V, A+ R% g3 Q3 C7 x+ c, i最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了


' q9 `/ w- o* B6 x1 h添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
* T5 B* B; S% q5 H+ t8 t添加一个按钮 ID修改成 “保存”
+ g1 V/ B' ]1 c' z7 Q! g* v添加一个 List1

, t3 ~+ L& B3 ^代码如下
1 y. _' I) |) P
6 h& x1 _1 Y+ ?% R+ S* Q
Public conn As New ADODB.Connection     '标记连接对象
Dim sql As String
, \/ i" ~- B# {, j0 ~3 b7 eDim rs_maxcut As New ADODB.Recordset
Dim str As String
% I+ L8 C: x* M3 L: {% vDim aa As Double, bb As Double
6 y+ f. i5 l& Q) MDim mbd As String
9 o: h( e$ h0 ]* LDim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(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
+ ^% p4 l& Z( ]
9 @* `* B( y2 {+ Z2 WPrivate Sub 保存_Click()
6 ], U/ x0 H! \0 }) I
writeDatabase
$ D8 H* |$ s3 {1 H% x4 F2 V) j# k    End
$ {4 ]% I2 _9 a$ m5 e9 rEnd Sub
8 q2 c5 |% g" h) S( e1 F' O, s
Private Sub Form_Load()

. H) z2 d  b5 k4 `( `$ m  m mbd = "D:\UG_OPEN\ini\数据库.mdb"
) x/ B5 r6 v" L
    conn.Open cnn '连接数据库
$ ]) V, `, V$ K( @' L    readdatabase
$ `7 n$ @, x. N1 r, ~/ W    Me.Text1.Text = "行数" & 行数
% {! X% n" V* ?  X1 o( ?    Me.Text2.Text = "列数" & 列数
$ l$ @$ t  p) DMe.Text3.Text = aa
2 k/ L+ [( l" e" }8 `1 |' h* W0 a& ^, O1 hMe.Text4.Text = bb
; r& S$ b2 `- [! S+ z0 g, h# t) r7 JEnd Sub

Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
    Dim i As Long
% A* a* ~! d# f4 W  P    sql = "select * from test"
. Y7 c& A2 w1 L. u    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
6 p* f& G+ @# j$ T1 ^3 {5 i
, ^0 W) d% y: J# t+ S) Z& `/ z
1 |6 c. O  }6 Z* H$ D, O4 z. A总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
  {1 O/ ]1 S: l, p行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

$ ?/ o& U1 S' o/ O* v( J. j) f    If rs_maxcut.EOF = False Then
        i = 0
        Do While rs_maxcut.EOF = False
           i = i + 1
3 [9 y: f6 l) J- ^
           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标

" B6 G2 ^) b4 M- M            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的


       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
! I! X! f% I. \        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列
* R1 x  _- Z5 m# z
6 k; k+ m. `1 z% _1 K- j        '读所有内容到数组
        For j = 1 To 列数
        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

* M( i# x6 d3 d. G0 c+ H/ I5 g4 U        rs_maxcut.MoveNext '下一行
        Loop
# {! K  {8 p$ a: e' U       rs_maxcut.Close '关闭


        List1.Clear
; I$ C. t' M! @2 m1 w# T        For i = 1 To 行数
* D1 x/ C% g3 w% `" H* ]) [0 c        For j = 1 To 列数
* @+ l* |) w% s3 K& c$ [% W        If j = 1 Then
+ u5 Y$ H0 g8 g        str = 内容(i, j)
8 [* K; {0 ~3 ~& H+ U$ h! _        Else
) ~( z) u9 c; D  h# Y# i0 i8 ?: V        str = str & " , " & 内容(i, j)
1 f6 ?$ n. x) b  c        End If
        Next
        List1.AddItem str
4 p) R9 u# M# R2 E! E        Next
( a/ }& |+ @5 A0 E( ]& I6 q
    End If

1 L' q: a% P* @2 f
" u/ S* m. E3 A8 S, h; eEnd Sub
1 @. r0 Q: ~4 j
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
8 O% F6 f& J) W% M# K% R    Dim i As Long
    i = 0
+ s/ @, J+ }1 \& e4 R
2 z% g# C4 H3 Z/ V# bconn.Open cnn '连接数据库

'sql = "select * from test"
4 V2 m. ~( h) m. P+ w6 i2 J
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集

0 A5 f2 a" i; N1 M    If rs_maxcut.EOF = False Then

        Do While rs_maxcut.EOF = False
) b- @+ M# R6 y          i = i + 1
& f+ U. X& Y  u% s; w
            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
. B  S5 @- B, a& A
0 C# L9 k- |- i, m            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列
3 N- r  L' r' R: N7 S
              rs_maxcut.MoveNext
5 m6 u7 M# d$ H8 k# S
        Loop
( Q: S. ~" V1 {; O% m% Z& Y
$ p* a# l1 E0 n( |. O/ n       rs_maxcut.Update
5 J. f# A$ T% r8 C9 D    rs_maxcut.Close

    End If

& v$ k& z. `/ T( \$ S1 gEnd Sub
; J. t* I/ R' T& {
: j# d5 M2 M4 x( E2 V

$ n: K' {! b" c2 v1 V
, }' c1 G2 l. C7 m