這是我的問題~不知道為什麼~~出現了錯誤訊息-->
在所要求名稱或序號的相關集合找不到物件
請各位大爺~~~~幫我看看吧!!~~~~~~
我用了VB6.0撰寫
SQL SEVER2000 做後端資料庫
RS指向PEOPLE資料庫裡的"人事資料"資料表單
RS1指向PEOPLE資料庫的"請假紀錄表"資料表單
在VB的FROM上先由LOGOIN的表單進入~利用LOGINID變數暫存使用者ID
在ONLINE表單上,如果"人事資料表"的ID欄內容與LOGINID相同
則在LBAEL15(0)到LABLE15(4)顯示基本資料
而在ONLINE表單上所輸入的CMBWHAT DTPICKER1...等等
與LABEL15(0)等一同再寫入"請假紀錄表"中
程式碼如下
Dim rs As New ADODB.Recordset
    Dim rs1 As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim sql, sql1 As String

Private Sub Command1_Click()
Dim vacation, start, endday, class As String
Dim sing1, sing2, sing3, day As Integer
Label15(5).Caption = day
DTPicker1.value = start
DTPicker1.value = endday
Cmbwhat.Text = vacation
Text1.Text = class
If Label = 1 Then sing1 = -1 And sing2 = 0 And sing3 = 0
If Label = 2 Then sing2 = -1 And sing1 = 0 And sing3 = 0
If Label = 3 Then sing3 = -1 And sing1 = 0 And sing2 = 0
Rtvl = MsgBox("您確定您要新增這筆資料嗎?", vbInformation Or vbYesNo)
Select Case Rtvl
Case vbYes
MsgBox "您已完成新增此筆資料"
On Error GoTo ErrMsg
rs1.AddNew
rs1("識別碼") = pig
rs1("中文姓名") = cname
rs1("擔任部別") = dept
rs1("職別") = pos
rs("層級") = labelno
rs1("請假日數").value = day
rs1("假別") = vacation
rs1("請假日數(起)") = start
rs1("請假日數(迄)") = endday
rs1("組長簽核") = sing1
rs1("三長簽核") = sing2
rs1("校長簽核") = sing3
If Text1.Text <> "" Then rs1("補課日期") = class Else rs1("補課日期") = Null
ErrMsg:
MsgBox Err.Description, vbExclamation
Case vbNo
MsgBox "您已取消新增此筆資料"
End Select
On Error GoTo ErrMsg
rs1.CancelUpdate
  Exit Sub

End Sub

Private Sub Command4_Click()
Me.Hide
  find.Show vbModal
End Sub
Private Sub Command5_Click()
Me.Hide
  start.Show vbModal
  Me.Show
End Sub
Private Sub DTPicker2_Change()
Label15(5).Caption = (DTPicker2.value - DTPicker1.value)
End Sub
Private Sub Form_Load()
隱藏控制項
    Dim pig, cname, dept, pos, labelno As String
Set conn = New Connection
conn.Open "Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;User ID=test;Initial Catalog=people;Data Source=192.192.217.207"

strDatabaseName = "people"
    
    strDataSource = "Data Source=" & strDataSource & strDatabaseName
    
    strConnect = strProvider & strDataSource
    
    conn.CursorLocation = adUseClient
   
    
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockPessimistic
    rs1.CursorType = adOpenDynamic
    rs1.LockType = adLockPessimistic
    
    sql = "select * from 人事資料"
    sql1 = "select * from 請假紀錄表"
    rs.Source = sql
    rs1.Source = sql1
    rs.ActiveConnection = conn
    rs1.ActiveConnection = conn
    rs.Open
    rs1.Open
      
    rs.MoveFirst
    With rs
        Do While Not .EOF
              pig = rs("識別碼").value
              cname = rs("中文姓名").value
              dept = rs("擔任部別").value
              pos = rs("職別").value
              labelno = rs("層級").value
              
              If LoginID = rs("ID").value Then
               Label15(0).Caption = pig
               Label15(1).Caption = cname
               Label15(2).Caption = dept
               Label15(3).Caption = pos
               Label15(4).Caption = labelno
            End If

.MoveNext
            
            If .EOF Then
                Exit Do
            End If
         Loop
    End With
  
  Cmbwhat.AddItem "病假"
  Cmbwhat.AddItem "事假"
  Cmbwhat.AddItem "公假"
  Cmbwhat.AddItem "產假"
  Cmbwhat.AddItem "進修"
  Cmbwhat.AddItem "婚假"

End Sub

Private Sub 隱藏控制項()
 
  Check5.Visible = False
  Check6.Visible = False
  Check7.Visible = False


End Sub
為什麼會出現這樣的錯誤訊息呢?????
拜託各位大大~~我已經想到一個頭兩個大嚕~~ =_="
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()