急项目：如何在VB中做可以画简单示意图的程序并存档。

Question

line (VB自带)
Microsoft DAO 3.6 Object Library (引用)(读写数据库)

Answer 1

Private MdbChange As Database, MdbChange2 As RecordsetPublic Function WriteAccess(FileName As String, UserName As String, Passward As String, TableName As String, _
                            RecordNumber As Long, FieldNumber As Long, DataMain As Variant, Optional IsError As Boolean = False) As Long
    Set MdbChange = OpenDatabase(FileName, , , "UID=UserName;PWD=Passward")
    Set MdbChange2 = MdbChange.OpenRecordset(TableName)
    If IsError = True Then
       If RecordNumber > MdbChange2.RecordCount Or FieldNumber > MdbChange2.Fields.Count Then
          WriteAccess = 1
          MdbChange2.Close
          MdbChange.Close
          Exit Function
       End If
    End If
    MdbChange2.Move (RecordNumber)
    MdbChange2.Edit
    MdbChange2(FieldNumber) = DataMain
    MdbChange2.Update
    MdbChange2.Close
    MdbChange.Close
End Function