求解VB语句
来源:百度知道 编辑:UC知道 时间:2024/06/30 05:13:04
Private Sub Form_Load()
'打开连接
Set conn = New Connection
Set conn = getConnection()
'设置默认值
cbsex.Text = cbsex.List(0)
cbmm.Text = cbmm.List(0)
cbsr.Year = 1983
'显示所有学生信息
Set rsStu = New ADODB.Recordset
rsStu.Open "select * from jyxt", conn, adOpenStatic, adLockOptimistic
Set dgList.DataSource = rsStu
'设置Datagrid宽度
For i = 0 To dgList.Columns.Count - 1
dgList.Columns(i).Width = (dgList.Width - 337) / dgList.Columns.Count
Next
dgList.Caption = "学生信息列表"
End Sub
运行rsStu.Open "select * from jyxt", conn, adOpenStatic, adLockOptimistic对象名无效,请各位高手指教,谢谢!
'打开连接
Set conn = New Connection
Set conn = getConnection()
'设置默认值
cbsex.Text = cbsex.List(0)
cbmm.Text = cbmm.List(0)
cbsr.Year = 1983
'显示所有学生信息
Set rsStu = New ADODB.Recordset
rsStu.Open "select * from jyxt", conn, adOpenStatic, adLockOptimistic
Set dgList.DataSource = rsStu
'设置Datagrid宽度
For i = 0 To dgList.Columns.Count - 1
dgList.Columns(i).Width = (dgList.Width - 337) / dgList.Columns.Count
Next
dgList.Caption = "学生信息列表"
End Sub
运行rsStu.Open "select * from jyxt", conn, adOpenStatic, adLockOptimistic对象名无效,请各位高手指教,谢谢!
在"工程"菜单"引用"选项中加载 Microsoft Active Data Objects ...库
你的数据库连错了~!
估计是连到了系统数据库master
这里
rsStu.Open "select * from jyxt", conn, adOpenStatic, adLockOptimistic
有个地方换成你的数据库名~!