vb操作access数据库

15757753770

c# c++ vb 是可以互相调用的
) I. }7 s9 D( u
vb操作access数据库 的方法

首先要安装  Office2003sp2
6 D" ]9 F) Y% Z: Z& \; g' E
7 S7 ]8 r2 u- \. i# W列子：读写数据库(.mdb)

1.创建 mdb
开始->所有程序->Office2003->Access 2003  新建一个空数据库 保存位置C:\report.mdb  
创建一个表格 并重新命名为test          （操作和Excel类似）
. E* r7 N# c1 m8 f8 C/ B) q
注意 表格名称 和源代码要对应
+ ~0 c- H$ R, k+ Y* Y# Y

2.注册数据源（代码中已经注册）和写代码
) x; q1 }; J% E

在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，
/ G& A% n2 e4 Z: G6 C* @% j我们必须点击菜单中的【工程】-【部件】，
在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和
“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，
最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了
$ j, D6 B3 J* r2 F
0 h' c/ Y# L1 o9 V
添加4个文本控件  Text1 和 Text2  和 Text3 和 Text4
/ M- i2 N7 o0 y& }添加一个按钮 ID修改成 “保存”
添加一个 List1

2 `: N8 e: |/ Z  Z9 G- H7 T: ]代码如下
% A5 N/ y& V  W9 N0 ?% I

Public conn As New ADODB.Connection     '标记连接对象
9 ?# L9 N! y1 g& ?, YDim sql As String
Dim rs_maxcut As New ADODB.Recordset
Dim str As String
Dim aa As Double, bb As Double
Dim mbd As String
Dim 总页数 As Integer, 行数 As Integer, 列数 As Integer
Dim 内容(999, 999) As Double

- D" M) K5 H$ ~5 DPublic Function cnn() As String
    cnn = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mbd & "ersist Security Info=True;Jet OLEDBatabase Password=123"
End Function

& D- c6 l0 n- Y3 W8 t  SPrivate Sub 保存_Click()

writeDatabase
1 r: x! x5 H5 b) l: T( n# Z. e0 @    End
End Sub

Private Sub Form_Load()

mbd = "D:\UG_OPEN\ini\数据库.mdb"
( q3 o2 A$ N* `; v. }7 g7 ?& {3 U
    conn.Open cnn '连接数据库
    readdatabase
" M* b; m; p3 G( Q' }    Me.Text1.Text = "行数" & 行数
    Me.Text2.Text = "列数" & 列数
( ]0 S3 ^/ a/ r& R7 R2 JMe.Text3.Text = aa
Me.Text4.Text = bb
! u6 X# q4 \4 kEnd Sub

6 b! U) ?/ ?; `  ~Public Sub readdatabase() '读数据 （读数据和保存数据实际上是一样的操作方法）
8 K" I+ z- i8 d" e' t5 R+ P2 S    Dim i As Long
9 c& N( X$ ~& U" Q( c    sql = "select * from test"
: _+ u% p" x% a    rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集


. a. t7 Y; J# A( Z0 Z- C# u! \总页数 = rs_maxcut.PageCount  '页大小rs_maxcut.PageSize
行数 = rs_maxcut.RecordCount  '行数 （排除标题）
列数 = rs_maxcut.Fields.Count - 1 '列数 （排除标题）

    If rs_maxcut.EOF = False Then
        i = 0
        Do While rs_maxcut.EOF = False
           i = i + 1
/ M: v/ J" x, _+ B1 z3 A' C
6 {. O8 g7 @: M0 b( R7 P           ' If i = 0 Then str = rs_maxcut.Fields(0).Name & rs_maxcut.Fields(1).Name '读标
/ X0 k3 A8 @- K, v4 ?5 i, V
) Z& F, p3 K$ H5 a# B, |+ K            '第一行  或者  第一列的内容 他们属于标题 所以不管是行列我们都是重第二行或列开始的
# F- o4 @. Y0 O

       If i = 1 Then aa = rs_maxcut.Fields(1).Value '除去标题后的，第1行第1列
' Z" ?3 z8 d( K. l        If i = 2 Then bb = rs_maxcut.Fields(1).Value  '除去标题后的，第1行第2列

        '读所有内容到数组
) Y- C, z6 n$ X/ [6 _, }  s        For j = 1 To 列数
3 G  Y9 }9 [4 T8 i" X, n6 g        内容(i, j) = rs_maxcut.Fields(j).Value
        Next

/ }* P$ X* `: r' H6 H        rs_maxcut.MoveNext '下一行
        Loop
  i5 T2 S% J: L$ K: _2 Y( R* V       rs_maxcut.Close '关闭
# ^, u! ]4 N4 i9 m9 P5 C) p

. s" `; K( O7 ?# X        List1.Clear
+ p* L6 C& C1 Q( f; V' X        For i = 1 To 行数
        For j = 1 To 列数
        If j = 1 Then
0 m9 m' {3 H+ N3 n        str = 内容(i, j)
- Q  g5 i3 y4 n9 c( M# |0 V        Else
        str = str & " , " & 内容(i, j)
        End If
        Next
        List1.AddItem str
        Next

    End If
. Y& ]/ Z/ E- y6 E
0 [4 D5 V" t9 J1 ?( n6 X2 T& `3 _
End Sub
9 u/ @: r4 E/ |; v
Public Sub writeDatabase() '保存数据（读数据和保存数据实际上是一样的操作方法）
    On Error Resume Next
7 {' X2 R8 x2 f7 S# [8 v# L    Dim i As Long
! o, D: F/ @+ T  Z2 }( ]    i = 0

conn.Open cnn '连接数据库

: k8 E, D, Q* r3 w, f  b; |'sql = "select * from test"
- O2 C% k# f+ f
  rs_maxcut.Open sql, conn, adOpenKeyset, adLockPessimistic  '打开记录集
# @5 T  e9 O! V) k' g  b4 ~' V  m
    If rs_maxcut.EOF = False Then

3 d/ f- S# m* i  C: [        Do While rs_maxcut.EOF = False
6 g2 [* l" ?% @, r3 p: w$ _          i = i + 1

* w4 i9 H4 [( P8 E/ D            '不要去修改 第一行  或者  第一列的内容  因为他们属于标题
2 X$ H$ `6 J9 j, q" x- g
            If i = 1 Then rs_maxcut.Fields(1).Value = Val(Text3.Text) '编辑第2行第1列

2 m" u+ H" D3 B( m; [- ^# v            If i = 2 Then rs_maxcut.Fields(1).Value = Val(Text4.Text) '编辑第2行第2列
, r! d/ O7 L. X3 C: N( G+ _+ f
  B  U# Q# B0 B; P              rs_maxcut.MoveNext

        Loop

" p: e8 X6 F  u# K" I9 a' k       rs_maxcut.Update
9 _7 V  j" m& V" {    rs_maxcut.Close

    End If
9 k9 P/ Z5 T5 a" w1 s
; O( S0 }: y+ x9 o3 C2 J7 K( M0 H& {End Sub
/ f- E9 x* w- K# N  L

2 ~& W* v! H# E4 i# ?, q
2 r- n! [+ Y( ?/ c" D
4 R; z- }* o' ]6 i* z