语句为： Set Frmshow.DataGrid1.DataSource = rs---错误为：行集合不支持标签---我是想用另一个窗体的datagrid显示数据

hoge66 2003-08-19 11:14:26

语句为： Set Frmshow.DataGrid1.DataSource = rs---错误为：行集合不支持标签---我是想用另一个窗体的datagrid显示数据。请高手指点！

...全文

19 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lihonggen0 2003-08-19

打赏
举报

回复

Rs.CursorLocation = adUseClient '加一句

Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs

strongfisher 2003-08-19

打赏
举报

回复

Set form1.dgAsset.DataSource = Nothing
Set rs = New ADODB.Recordset
With rs
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT * FROM tblasset"
Set .ActiveConnection = cnnCMMS
.Open
End With
Set form1.dgAsset.DataSource = rs
应该可以的

目录数据库课程设计报告 1 1.开发环境和相关技术介绍 5 1.1开发环境 5 1.2相关技术介绍 5 2.需求分析 5 2.1系统需求和功能 5 2.1.2功能需求描述 6 2.1.2.1员工基本信息模块 6 2.1.2.2工资结构设置模块 6 2.1.2.3工资汇总模块 6 2.2数据字典 6 2.2.1数据结构 7 2.2.2数据项 7 2.2.3数据流 8 2.4安全性要求 8 2.5一致性要求 9 2.6完整性要求 9 3 概念结构设计 9 3.1设计方法和步骤 9 3.2概念结构E-R图 9 4.逻辑结构设计 9 4.1具体RDBMS数据模型转换 9 4.2系统结构图 10 5.数据库物理设计 10 5.1索引的选择建立 10 5.2数据存放位置 10 5.3确定系统配置 10 6.数据库实施 10 6.1数据库创建 10 6.1.1各数据表说明 10 6.1.2数据库创建 11 6.2数据库备份和恢复方案 13 6.2.1应用辅助工具进行备份和恢复 13 6.2.2分离数据库法 13 6.3用户界面设计和应用程序编码 13 6.3.1用户界面设计 13 6.3.2类文件功能描述 14 6.3.3主要代码分析 14 }7.系统测试方案和测试报告 21 7.1测试方案 21 7.2测试过程 21 7.2.1登陆测试 21 8.安装和使用说明 25 8.1安装说明 25 8.1.1安装VB6.0E 25 8.1.2安装Microsoft SQL Server 2000 ODBC驱动程序 25 8.1.3升级Microsoft SQL Server 2000数据库管理系统 25 8.1.4附加数据库 25 8.1.5可能出现情况 25 9.完成情况和总结 25 9.1总结 25 1.开发环境和相关技术介绍 1.1开发环境项目名称：工资管理系统开发软件：vb6.0与Access 2000 运行环境：2000/XP/2003 1.2相关技术介绍 Microsoft SQL Server 2000数据库管理系统是微软公司研制开发的关系型数据库管理系统。该系统支持并扩展了SQL语言标准，可以运用标准SQL语句对数据进行操作，也可以使用功能强大的GUI工具进行灵活的数据管理。同时，系统还提供功能完善的API，可以在应用程序中调用这些API来实现与数据库系统的连接以及相关数据的操作。sp3是该系统的一个版本号，只有sp4以上的SQL 2000系统才能够支持纯ODBC连接方式。 Vb6.0功能强大的应用程序开发工具，主要支持基于面向对像化的语言的各种开发项目。 2.需求分析 2.1系统需求和功能工资管理信息系统对企业加强工资管理有着重要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比如拥有工资计算功能，工资统计功能，报表输出功能，而且设计的模块也很多，比如工资管理模块，工资统计模块，报表设计模块，打印输出模块，模糊查询模块等。由于本软件主要是为作者工作的一家科技公司定制开发的。该公司是一家刚刚成立的公司，总体人员比较少，有正式员工20人，人员结构比较简单，学历比较高，基本拥有大专以上学历，部门划分也很清晰，而且人员的流动性不高，所以公司目前对工资管理的要求不高。因此，针对该公司而言，我们经过反复论证，最终确定了工资管理系统的设计方案，该工资管理系统的主要功能如图3.1所示： 2.1.2功能需求描述 2.1.2.1员工基本信息模块员工基本信息模块具有员工信息输入、员工增删、员工信息查询三个功能，员工基本信息包括员工号、员工姓名、员工性别、所在部门、所在岗位、工龄和工资等级等信息。员工增删实现了对数据库中员工信息的增加和删除。员工可以通过员工号或员工姓名对员工信息进行查询。 2.1.2.2工资结构设置模块根据该公司的工资管理实际情况，本系统将工资结构分为基础工资、岗位工资、工龄工资三部分。该模块可以对这三个工资类型设置工资等级，并对每个等级设置工资标准。 2.1.2.3工资汇总模块用户在员工信息管理模块对该员工的工资等级进行输入以后，在工资汇总模块会自动对员工工资进行汇总。用户可以打印出工资汇总表，打印之前可以通过打印预览功能进行打预览。 2.2数据字典该软件的数据库由下述四张数据表组成：员工信息表、基础工资设置表、岗位工资设置表 1、员工信息表字段字段名类型宽度说明 1 员工号字符型 3 数字 2 员工姓名字符型 10 小于等于5个汉字 3 员工性别字符型 2 “男”或“女” 4 岗位名称字符型 14 小于等于7个汉字 5 工龄数值型 2 1~99之间 6 工资等级数值型 2 1~99之间 2、基础工资设置表字段字段名类型宽度

４．设计体会通过本次课程设计，使我从更深的层次了解了VB的设计技巧和应用方法。在程序的编制和调试过程中，我从中学到了很多有用的方法，比如通过本次设计，我更深刻的体会到了VB系统的方便与实用。在课程设计的过程中，我对课本上的知识进行了复习，从中找出了不少盲点，由衷地感觉到学习过程中应该把学的知识作扎实，多动手多思考，这样才能最大限度的减少知识的漏洞。把课本上的东西变成实际的东西，让其有使用的价值，是一件很让人高兴的事。我切实的体会到VB这门课程是有用处的，它解释了我平时学习中的很多疑惑，让我增长了很多见识。５.参考文献 [1] 刘天惠.Visual Basic程序设计教程[M]. 北京: 清华大学大学出版社，2003.12-24 [2] 龚沛曾.Visual Basic程序设计教程[M]. 高等教育出版社, 2004.28-45 [3] 蒋加伏.Visual Basic程序设计教程[M].北京: 北京邮电大学出版社，2003.10-56 [4] Microsoft .Visual Basic 6.0 中文版控件大全[M]北京：电子工业出版社,2004.15－23 ６.附录源程序代码如下：（１）用户登录窗体 Private Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset 沈阳大学课程设计说明书 NO.16 If Trim(UserName.Text = "") Then MsgBox "没有输入用户名称，请重新输入！", vbOKOnly + vbExclamation, "警告" UserName.SetFocus Else '查询用户 SQL = "select * from UserInfo where UserID='" & UserName.Text & "'" Set rs = TransactSQL(SQL) If iflag = 1 Then If rs.EOF = True Then MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告" UserName.SetFocus Else If Trim(rs.Fields(1)) = Trim(PassWord.Text) Then rs.Close Me.Hide gUserName = Trim(UserName.Text) '保存用户名称 FrmMain.Show Unload Me Else MsgBox "密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告" PassWord.SetFocus PassWord.Text = "" 沈阳大学课程设计说明书 NO.17 End If End If Else Unload Me End If End If pwdCount = pwdCount + 1 '判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End If End Sub Private Sub Form_Load() pwdCount = 0 gUserName = "" End Sub Private Sub PassWord_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode End Sub Private Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode End Sub 沈阳大学课程设计说明书 NO.18 （２）添加用户窗体 Option Explicit Public str1 As String '保存修改时的SQL语句 Public ID As Integer '保存记录编号 Private baddflag As Boolean rivate Sub AID_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode End Sub Private Sub AID_LostFocus() Dim SQL As String Dim rs As New ADODB.Recordset SQL = "select SName,SDept,SPosition from StuffInfo where SID='" & Me.AID.Text & "'" Set rs = TransactSQL(SQL) If rs.EOF = False Then Me.AName = rs(0) '初始化员工姓名 Me.AOldDept = rs(1) Me.AOldPosition = rs(2) Else MsgBox "员工编号输入错误，或者没有这个员工！", vbOKOnly + vbExclamation, "警告！" Me.AID = "" Me.AID.SetFocus Me.AID.ListIndex = 0 End If rs.Close End Sub 沈阳大学课程设计说明书 NO.19 Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub rivate Sub checkinput() If Me.ANewPosition = "" Then MsgBox "请输入新的职务！", vbOKOnly + vbExclamation, "警告！" Me.ANewPosition.SetFocus ElseIf Me.AOutTime = "" Or IsDate(Me.AOutTime) = False Then MsgBox "请输入正确的调出时间！", vbOKOnly + vbExclamation, "警告！" Me.AOutTime = "" Me.AOutTime.SetFocus ElseIf Me.AInTime = "" Or IsDate(Me.AInTime) = False Then MsgBox "请输入正确的调入时间！", vbOKOnly + vbExclamation, "警告！" Me.AInTime = "" Me.AInTime.SetFocus Else baddflag = True End If End Sub Private Sub cmdOK_Click() Dim SQL As String Dim rs As New ADODB.Recordset 沈阳大学课程设计说明书 NO.20 baddflag = False Call checkinput If baddflag = True Then If flag = 1 Then 'Call checkinput SQL = "select * from AlterationInfo" Set rs = TransactSQL(SQL) rs.AddNew rs.Fields(1) = Me.AID rs.Fields(2) = Me.AName rs.Fields(3) = Me.AOldDept rs.Fields(4) = Me.ANewDept rs.Fields(5) = Me.AOldPosition rs.Fields(6) = Me.ANewPosition rs.Fields(7) = Me.AOutTime rs.Fields(8) = Me.AInTime rs.Fields(9) = Me.ARemark rs.Update rs.Close SQL = "update StuffInfo set SDept='" & Me.ANewDept & "', SPosition='" SQL = SQL & Me.ANewPosition & "' where SID='" & Me.AID & "'" TransactSQL (SQL) MsgBox "已经添加调动信息！", vbOKOnly + vbExclamation, "添加结果！" SQL = "select * from AlterationInfo order by ID" 沈阳大学课程设计说明书 NO.21 frmAlterationResult.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Person.mdb" frmAlterationResult.Adodc1.RecordSource = SQL If SQL <> "" Then frmAlterationResult.Adodc1.Refresh End If Else '修改记录 'Call checkinput SQL = "update StuffInfo set SDept='" & Me.ANewDept & "', SPosition='" SQL = SQL & Me.ANewPosition & "' where SID='" & Me.AID & "'" TransactSQL (SQL) SQL = "update AlterationInfo set AOldDept='" & Me.AOldDept & "',ANewDept='" SQL = SQL & Me.ANewDept & "',AOldPosition='" & Me.AOldPosition SQL = SQL & "',ANewPosition='" & Me.ANewPosition & "',AOutTime=#" & Me.AOutTime SQL = SQL & "#,AInTime=#" & Me.AInTime & "# where ID=" & ID TransactSQL (SQL) MsgBox "已经修改信息！", vbOKOnly + vbExclamation, "修改结果！" Unload Me SQL = "select * from AlterationInfo order by ID" frmAlterationResult.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Person.mdb" frmAlterationResult.Adodc1.RecordSource = SQL If SQL <> "" Then frmAlterationResult.Adodc1.Refresh End If 沈阳大学课程设计说明书 NO.22 Set frmAlterationResult.DataGrid1.DataSource = frmAlterationResult.Adodc1.Recordset frmAlterationResult.DataGrid1.Refresh frmAlterationResult.Show frmAlterationResult.ZOrder 0 Call init Me.ZOrder 0 End If End If End Sub （3）查询员工信息窗体 Option Explicit Private query As String Private fromdate As String Private todate As String Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub Private Sub CombineDate() fromdate = Me.FromYear.Text & "-" & Me.FromMonth.Text & "-1" fromdate = Format(Me.FromYear.Text & "-" & Me.FromMonth.Text & "-1", "yyyy-mm-dd") todate = Me.ToYear.Text & "-" & Me.ToMonth.Text & "-1" todate = Format(todate, "yyyy-mm-dd") End Sub 沈阳大学课程设计说明书 NO.23 Private Sub setSQL() If IDCheck.Value = vbChecked Then query = "select * from StuffInfo where SID='" & Trim(Me.SID) & "'" End If If NameCheck.Value = vbChecked Then query = "select * from StuffInfo where SName='" & Trim(Me.SName) & "'" End If End Sub Private Sub cmdOK_Click() Call CombineDate Call setSQL frmResult.createList (query) frmResult.Show Unload Me End Sub Private Sub Form_Load() Dim i As Integer Dim SQL As String Dim rs As New ADODB.Recordset SQL = "select distinct datepart(yy,SInTime) from StuffInfo" Set rs = TransactSQL(SQL) If Not rs.EOF Then rs.MoveFirst While Not rs.EOF If Not IsNull(rs.Fields(0)) Then 沈阳大学课程设计说明书 NO.24 Me.FromYear.AddItem rs(0) Me.ToYear.AddItem rs(0) End If rs.MoveNext Wend rs.Close Me.FromYear.ListIndex = 0 Me.ToYear.ListIndex = 0 End If For i = 1 To 12 Me.FromMonth.AddItem i Me.ToMonth.AddItem i Next i Me.FromMonth.ListIndex = 0 Me.ToMonth.ListIndex = 0 End Sub

对于初学vb的同学们来说，数据库是一个很让人头疼的东西，我就曾经因为对数据库一点认识都没有而感到头疼万分、、、昨天，在我研究一个有关数据库的软件一周以后，终于对数据库有了一点点的认知。首先，为什么要学数据库，数据库是干嘛的？数据库为什么这么令人头疼？数据库可以说是学习软件开发的核心课程之一，几乎绝大部分软件都涉及到数据库，很多数据必须存在数据库中，最初都是存在文件中，

vb6.0作为一款已经过时的编程语言，虽然使用的人不多，但是还是要总结下一些常见错误：以vb6.0中文企业版与access数据库的交互为例子来讲解其中可能会碰到的坑↓↓↓ 目录1.连接access数据库2.Dim Rs As New ADODB.Recordset用户定义类型未定义3.combox组件怎么添加选项以及获取当前选项4.insert into语法错误问题5.未定义的变量错误6.两个窗口之间的切换和传递数据7.access数据库使用模糊搜索8.执行sql语句错误**未完待续** 1.连接acc

首先，看看最终效果图： 1、datagrid.jsp页面源码 //导入官方的js和css，href/scr路径根据文件所在位置不同，而不一样 ]" data-options="rownumbers:true, singleSelect:false, url:'/mobilemode/apps/solex/test/dbsy/queryToDo.js

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章