无保留散分！！本人共420分，全部一次性送出！

Question

我现在用DAO编数据库，遇一难关，身边又无明师，特来网上拜师。
有此间高手，请留下QQ或UC号联系。问题一经解决，马上送分。

Answer 1

不过我得先换电脑，能解决问题的，分照送。
我用VB6编的，现在的机器上只有.net,请大家先等会儿

Answer 2

Private Sub Form_Load()
  On Error GoTo loaderror
  
  Set db = OpenDatabase("C:\vb_data\book\app\ch3\school.mdb", False, False)
 
  Exit Sub
  
loaderror:
  
  MsgBox Err.Description
  
End SubPrivate Sub Form_Load()
  On Error GoTo loaderror
  Dim sql As String
  
  sql = "SELECT 学籍.* FROM 学籍 ORDER BY 学籍.学号"
  Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
  
  If rs1.RecordCount > 0 Then
    displayrecord
  Else
    MsgBox "目前没有任何学生的学籍数据", vbExclamation + vbOKOnly, ""
    cleardisplay
    rs1.AddNew
  End If
      
  Exit Sub
  
loaderror:
  MsgBox Err.Description
  
End Sub
Public Sub displayrecord()
  Dim i As Integer
  For i = 0 To 35
    If i = 4 Then
      If Not IsNull(rs1.Fields(i)) Then
        If rs1.Fields(i) = "1" Then
          Text1(i) = "男"
        Else
          Text1(i) = "女"
        End If
      Else
        Text1(i) = ""
      End If
    ElseIf i = 22 Then
 ----------------     If Not IsNull(rs1.Fields(i)) Then
        If rs1.Fields(i) = "1" Then
          Text1(i) = "毕"
        Else
          Text1(i) = "肄"
        End If
      Else
        Text1(i) = ""
      End If
    Else
      If Not IsNull(rs1.Fields(i)) Then
        Text1(i) = rs1.Fields(i)
      Else
        Text1(i) = ""
      End If
    End If
  Next
  
End Sub

Answer 3

问题在于，到了有虚线那句后，跳出提示框，“要求对象”，不知为何
此程序有窗体两个，第一个的加载项里打开了c:\下的数据库，在调用第二个窗体的加载项里应自动将ACCESS库表里的纪录在窗体内显示，现在这一步完不成
不知朋友们能否理解我的问题？

Answer 4

跳出提示框，“要求对象”，不知为何
==========
检查一下你“学籍”表中是否有23个字段，估计是i值=22时，Field(22)根本不存在

Answer 5

如果数据库中的记录完全通过程序维护的话，有些地方不需要判null，只要在增改记录时判断就行了；另外像男/女、肄业/毕业之类可以用checkbox控件显示

Answer 6

你这个问题可以解决
你吧它发过来
。。
[email protected]
QQ;124811427

Answer 7

朋友，短短几行代码，实在不太好解决，能否把程序发给我？最好连ACCESS一起发过来，
问题可能出在数据库里
 [email protected]

Answer 8

1、你发的源程序已经收到。。
你怎么不把文件压缩成一个附件来发，害的我连收了7个附件。晕啊。
2、要求对象的错误已经找到：
定义对象错误，在模块里为：Public re1 As Recordset,你用rs1肯定错误。
改成：Public rs1 As Recordset。
3、怎么还用DAO，建议换成ADO。。^_^

Answer 9

先谢谢HELANSHAN()老大，
还想请问大家一个问题：
Set db = OpenDatabase("C:\vb_data\book\app\ch3\school.mdb", False, False)
这一句就能打开一个数据库么？
set 不是个赋值语句么

Answer 10

db是数据库对象，给db赋值当然是用OpenDatabase函数打开一个数据库了

Answer 11

H* 老大说 的有道理,我原一直感觉应该是先
Set db = Database("C:\vb_data\book\app\ch3\school.mdb", False, False)
再Opendb
才说的过去，现在它是一步并作两步走了