字段索引问题,帮帮忙啊!

albert521 2003-04-08 12:43:47
Dim WithEvents adoPrimaryRS As Recordset
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim f As ADODB.Field
Field f = New ADODB.Field
Dim n As Integer
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\VB98\ALB.mdb;"
n = CInt(Text1.Text)
Set f = adoPrimaryRS.Fields(n)
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select avg(len(f)) from ¹¤×ʱí", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
DataGrid1.ReBind
End Sub
我想做一个对字段的索引,第5行总是运行不过去,但这是照着MSDN做的,很着急呀
个位高手帮帮忙啊!
...全文
30 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧