Option Compare Database
Dim OS As ADODB.Connection
Dim PI As ADODB.Recordset
Dim DI As ADODB.Recordset
Private Sub Form_Load() '窗体载入:建立连接并打开患者信息表
Set OS = CurrentProject.Connection
Set PI = New ADODB.Recordset
Set DI = New ADODB.Recordset
PI.LockType = adLockPessimistic
DI.LockType = adLockPessimistic
PI.Open "患者信息", OS, , , adCmdTable
DI.Open "医生信息", OS, , , adCmdTable
Call intiztextbox
End Sub
Private Sub pdqk_click()
list0.RowSourceType = "值列表" (这里提示,运行时错误“424”要求对象,我是想在这里实现DI里姓名与PI里姓名有关系的话就显示在列表框里)
Do While Not DI.EOF
PI.MoveFirst
Do While Not PI.EOF
If DI!医生ID = PI!选定医生 Then
list0.AddItem DI!姓名 & " " & PI!姓名
End If
PI.MoveNext
Loop
DI.MoveNext
Loop
End Sub
第二段是
Private Sub CX_click()(这里提示,运行时错误“91”对象变量或WITH块变量未设置。这里我想实现查询功能,把DI表里的数据显示在文本框里)
If ID = DI![医生ID] Then
Text7.Value = DI![姓名]
Text9.Value = DI![职务]
Text11.Value = DI![籍贯]
Text13.Value = DI![出生日期]
Text15.Value = DI![雇佣日期]
Text17.Value = DI![科室]
Text19.Value = DI![备注]
End If
End Sub