谁能解决这个问题我嫁给他了

[复制链接]
查看11 | 回复4 | 2007-6-17 08:27:00 | 显示全部楼层 |阅读模式
你的Adodc1.ConnectionString 是.出来的还是硬写上的?如果是.出来的。。。那我也找不到了不过。。。Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data.MDe;Persist Security Info=False" Adodc1.CommandType = adCmdText SQL = "select 学号,姓名,性别,年龄,电话,QQ,地址 from data order by 学号" Adodc1.RecordSource = SQL Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Adodc1.Tag = 0 End Sub 应该是最后这段的错。。。
回复

使用道具 举报

千问 | 2007-6-17 08:27:00 | 显示全部楼层
真牛,真看不懂!!!!太崇拜你们了!!!!
回复

使用道具 举报

千问 | 2007-6-17 08:27:00 | 显示全部楼层
If Index = 0 ThenAdodc1.Recordset.MoveFirstEnd IfIf Index = 1 ThenIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveLastElseAdodc1.Recordset.MovePreviousEnd IfEnd IfIf Index = 2 Then这里条件判断有些问题,既然index不等于1,执行到Adodc1.Recordset.MovePrevious 这里程序就应该停下来了.把这里改成if ..//else if ...
回复

使用道具 举报

千问 | 2007-6-17 08:27:00 | 显示全部楼层
你能先告诉我你这段程序是用VB连到SQL后,再显示出查找的二维表吗,看上去思路好乱啊
回复

使用道具 举报

千问 | 2007-6-17 08:27:00 | 显示全部楼层
http://www.downsite.cn/zl.asp?class_bh=10&i=1&offset=20
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行