关于recordset.find问题

hhlyjx_79 2002-04-19 03:42:47

为什么我查询老是查不到底一个记录？？？？我把find最后面的1为0又会出现乱七八遭的问题~~~~~~~~
If (Command4.Caption = "查询") Then
Adodc2.Recordset.Find strfind, 1, , 1
If (Adodc2.Recordset.EOF) Then
MsgBox ("没有找到符合条件的人！")
Command4.Caption = "查询"
Exit Sub
End If
Command4.Caption = "下一个"
Else
Adodc2.Recordset.MoveNext
Adodc2.Recordset.Find strfind
If (Adodc2.Recordset.EOF) Then
MsgBox ("已经没有符合条件的人了！")
Command4.Caption = "查询"
Exit Sub
End If
End If

...全文

108 9 打赏收藏转发到动态举报

写回复

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

年糕 2002-04-19

打赏
举报

回复

最好用ado记录集(rs.filter strfind)

wuwu_7 2002-04-19

打赏
举报

回复

Adodc2.Recordset.Find strfind, 1, , 1
其中的第二个参数是控制在开始搜索之前跳过多少记录。你设置为1。

hhlyjx_79 2002-04-19

打赏
举报

回复

UP

hhlyjx_79 2002-04-19

打赏
举报

回复

strfind是正确的
除了第一条，其它的全部可以正确的查询到，不需要向前向后，每次都是从第一条记录开始向下查询
问题是出在第一条记录~~~~~

valiant 2002-04-19

打赏
举报

回复

strFind的格式，比如：
strFind ="state = 'WA'"

rexyudl 2002-04-19

打赏
举报

回复

Adodc2.Recordset.Find strfind, 1, , 1
试试更换成下面的语句!
Adodc2.Recordset.Filter="字段名='数据'"
Filter是过滤出数据库内符合条件的内容.

inforum 2002-04-19

打赏
举报

回复

给一个单选框让用户选择向前，向后查找
向前
Adodc2.Recordset.Find strfind, , adSearchForward
向后
Adodc2.Recordset.Find strfind, , adSearchBackward

nebular 2002-04-19

打赏
举报

回复

STRFIND是否正确

hhlyjx_79 2002-04-19

打赏
举报

回复

有没有人啊~~~~help

Option Explicit Dim Bupdata As Boolean Dim i As Integer Private Sub Cmbdegree_Click() If Cmbdegree.Text = "定制" Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End Sub Private Sub Cmbdepart_Click() If Cmbdepart.Text = "定制" Then FrmTable.Show Cmbdepart.ListIndex = 0 End If End Sub Private Sub CmdAddNew_Click() If CmdAddNew.Caption = "添加" Then CmdAddNew.Caption = "确认" CmdDel.Enabled = False CmdOK.Enabled = False DataA.ReadOnly = False For i = 1 To 12 If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.AddNew Txt(0).Locked = False If FrmMain.cutable = "employee" Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = "男" Else DataA.Recordset.Fields(4) = "女" End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text ElseIf FrmMain.cutable = "leave" Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now Else DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If Txt(0).SetFocus Else 'OK If Txt(0).Text = "" Then MsgBox "不可以为空" Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0 Next i If FrmMain.cutable = "employee" Then DataB.Recordset.FindFirst "职工编号=" + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox "职员编号重复" Txt(0).Text = "" Txt(0).SetFocus Exit Sub End If ElseIf FrmMain.cutable = "leave" Then DataB.Recordset.FindFirst "假条编号=" + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox "假条编号重复" Txt(0).Text = "" Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox "not a number" Txt(i).SetFocus Exit Sub End If Next i DataB.Recordset.FindFirst "工资编号=" + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox "工资编号重复" Txt(0).Text = "" Txt(0).SetFocus Exit Sub End If End If DataA.Recordset.Update DataA.Recordset.MoveLast FrmMain.DataA.Refresh FrmMain.DataB.Refresh DataB.Refresh CmdAddNew.Caption = "添加" CmdDel.Enabled = True CmdOK.Enabled = True End If End Sub Private Sub CmdCacel_Click() If CmdAddNew.Caption = "确认" Then DataA.Recordset.CancelUpdate End If FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataA.Refresh If FrmMain.cutable = "employee" Then FrmMain.DBGA.Columns("性别").Button = True FrmMain.DBGA.Columns("学历").Button = True FrmMain.DBGA.Columns("部门").Button = True End If End Sub Private Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then DataA.Recordset.MoveLast End If FrmMain.DataA.Refresh End Sub Private Sub cmdOK_Click() If Txt(0).Text = "" Then MsgBox "不可以为空" Txt(0).SetFocus Exit Sub End If Bupdata = False DataA.Recordset.Edit If FrmMain.cutable = "leave" Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now ElseIf FrmMain.cutable = "employee" Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = "男" Else DataA.Recordset.Fields(4) = "女" End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox "not a number" Txt(i).SetFocus Exit Sub End If Next i DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If For i = 1 To 12 If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.Update FrmMain.DataA.Refresh DataB.Refresh End Sub Private Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End Sub Private Sub Lab_Click(Index As Integer) End Sub Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If FrmMain.cutable = "leave" And Index = 1 Then If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If FrmMain.cutable = "salary" Then If Index <= 3 Then If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If Index = 13 Then Exit Sub If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And KeyAscii <> 46 Then KeyAscii = 0 Exit Sub End If End If End Sub Private Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If FrmMain.cutable = "salary" Then If Txt(Index).Text = "" Then Exit Sub If Index >= 4 And Index <= 6 Then Txt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text) Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text) End If If Index >= 8 And Index <= 10 Then Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text) Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text) End If End If End Sub Private Sub Form_Load() DataA.DatabaseName = App.Path + "\sm.mdb" DataB.DatabaseName = App.Path + "\sm.mdb" DataA.Caption = FrmMain.cutable DataA.RecordSource = "select * from " + FrmMain.cutable DataB.RecordSource = "select * from " + FrmMain.cutable DataA.Refresh Txt(0).Locked = True 'If FrmMain.DBGA.Row = 0 Then Exit Sub If FrmMain.cutable = "employee" Then 'employee For i = 0 To 12 Lab(i).Caption = DataA.Recordset.Fields(i).Name Next i Txt(0).DataField = DataA.Recordset.Fields(0).Name Txt(1).DataField = DataA.Recordset.Fields(1).Name Txt(2).DataField = DataA.Recordset.Fields(2).Name Txt(3).DataField = DataA.Recordset.Fields(3).Name Txt(4).Visible = False Txt(5).DataField = DataA.Recordset.Fields(5).Name Txt(6).DataField = DataA.Recordset.Fields(6).Name Txt(7).Visible = False Txt(8).Visible = False Txt(9).DataField = DataA.Recordset.Fields(9).Name Txt(10).DataField = DataA.Recordset.Fields(10).Name Txt(11).DataField = DataA.Recordset.Fields(11).Name Txt(12).DataField = DataA.Recordset.Fields(12).Name Txt(13).DataField = DataA.Recordset.Fields(15).Name If FrmMain.cuAp > -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If If DataA.Recordset.Fields(4) = "男" Then Opsex(0).Value = True Else Opsex(1).Value = True End If '设置lsdegree的显示项 For i = 0 To FrmMain.LsDegree.ListCount - 2 Cmbdegree.AddItem FrmMain.LsDegree.List(i) If FrmMain.LsDegree.List(i) = DataA.Recordset.Fields(7) Then Cmbdegree.ListIndex = i End If Next i If Cmbdegree.ListIndex = -1 Then Cmbdegree.AddItem DataA.Recordset.Fields(7) Cmbdegree.ListIndex = Cmbdegree.ListCount - 1 End If Cmbdegree.AddItem "定制" '设置lsdepart的显示项 For i = 0 To FrmMain.LsDepart.ListCount - 2 Cmbdepart.AddItem FrmMain.LsDepart.List(i) If FrmMain.LsDepart.List(i) = DataA.Recordset.Fields(8) Then Cmbdepart.ListIndex = i End If Next i If Cmbdepart.ListIndex = -1 Then Cmbdepart.AddItem DataA.Recordset.Fields(8) Cmbdepart.ListIndex = Cmbdepart.ListCount - 1 End If Cmbdepart.AddItem "定制" '设置完毕 ElseIf FrmMain.cutable = "leave" Then 'leave Txt(7).Visible = True Cmbdegree.Visible = False Cmbdepart.Visible = False Frame1.Visible = False For i = 8 To 12 Lab(i).Visible = False Txt(i).Visible = False Next i For i = 0 To 7 Lab(i).Caption = DataA.Recordset.Fields(i).Name Txt(i).DataField = DataA.Recordset.Fields(i).Name Next i Txt(13).DataField = DataA.Recordset.Fields(10).Name If FrmMain.cuAp > -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If Else 'salary Frame1.Visible = False Cmbdegree.Visible = False Cmbdepart.Visible = False For i = 0 To 12 Lab(i).Caption = DataA.Recordset.Fields(i).Name Txt(i).DataField = DataA.Recordset.Fields(i).Name Next i Txt(13).DataField = DataA.Recordset.Fields(15).Name Txt(7).Locked = True Txt(11).Locked = True Txt(12).Locked = True If FrmMain.cuAp > -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If End If End Sub Private Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataB.Refresh End Sub Option Explicit Const MxUser = 100 Public EmploID As Integer Public CurUser As String Public CurId As String Public CurPsw As String Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub Form_Load() Dim i As Integer If App.PrevInstance Then MsgBox ("程序已经运行，不能再次装载。"), vbExclamation Unload Me End If '本段代码用于判定本程序是否已经装载于内存中，以避免程序的多重启动 i = 0 Open App.Path + "\user.ini" For Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) If state(i) = "A" Then Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1 '在窗口装载阶段读取用户设置文件获取用户信息并装载于用户列表框中 End Sub Private Sub CmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() If txtPassword = pws(Combo1.ListIndex) Then CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) Me.Hide 'Load FrmMain FrmMain.Show Else MsgBox "Invalid Password, try again!", , "Login" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me End

目前从网上下载的免费LabSQL-1.1a.zip压缩文件中LabSQL工具包一般不完整，其Recordset VIs中只有17个子VI，与完整的LabSQL工具包相比缺少5个子VI，分别是： ADO Recordset Addnew.vi 添加一条新记录； ADO Recordset Delete Record.vi 删除一条记录； ADO Recordset Find.vi 查找记录； ADO Recordset MovePrev.vi 把Recordset对象中当前记录的位置移动到前一条记录上； ADO Set FieldValue.vi 修改记录中某个字段的值。下载后直接将解压文件夹复制到labview安装文件目录下的user.lib，例如C:\Program Files\National Instruments\LabVIEW 8.6\user.lib，其他版本亦然

下载后直接将解压文件夹复制到labview安装文件目录下的user.lib，例如C:\Program Files\National Instruments\LabVIEW 8.6\user.lib，其他版本亦然 LabSQL 1.1a,网上这个版本很多，但大多数资源都缺几个函数，完整版的大小1.11MB，如果有大小是1.1MB的版本，它里面肯定缺几个函数，分别是查找记录：ADO Recordset Find.vi；删除记录：ADO Recordset Delete Record.vi；添加新记录：ADO Recordset Addnew.vi；设定字段：ADO Set Field Value.vi。大家下载时请注意

Table of Contents | Index Programming Excel with VBA and .NET Preface Part I: Learning VBA Chapter 1. Becoming an Excel Programmer Section 1.1. Why Program? Section 1.2. Record and Read Code Section 1.3. Change Recorded Code Section 1.4. Fix Misteakes Section 1.5. Start and Stop Section 1.6. View Results Section 1.7. Where's My Code? Section 1.8. Macros and Security Section 1.9. Write Bug-Free Code Section 1.10. Navigate Samples and Help Section 1.11. What You've Learned Chapter 2. Knowing the Basics Section 2.1. Parts of a Program Section 2.2. Classes and Modules Section 2.3. Procedures Section 2.4. Variables Section 2.5. Conditional Statements Section 2.6. Loops Section 2.7. Expressions Section 2.8. Exceptions Section 2.9. What You've Learned Chapter 3. Tasks in Visual Basic Section 3.1. Types of Tasks Section 3.2. Interact with Users Section 3.3. Do Math Section 3.4. Work with Text Section 3.5. Get Dates and Times Section 3.6. Read and Write Files Section 3.7. Check Results Section 3.8. Find Truth Section 3.9. Compare Bits Section 3.10. Run Other Applications Section 3.11. Control the Compiler Section 3.12. Not Covered Here Section 3.13. What You've Learned Chapter 4. Using Excel Objects Section 4.1. Objects and Their Members Section 4.2. Get Excel Objects Section 4.3. Get Objects from Collections Section 4.4. About Me and the Active Object Section 4.5. Find the Right Object Section 4.6. Common Members Section 4.7. Respond to Events in Excel Section 4.8. The Global Object Section 4.9. The WorksheetFunction Object Section 4.10. What You've Learned Chapter 5. Creating Your Own Objects Section 5.1. Modules Versus Classes Section 5.2. Add Methods Section 5.3. Create Properties Section 5.4. Define Enumerations Section 5.5. Raise Events Section 5.6. Collect Objects Section 5.7. Expose Objects Section 5.8. Destroy Objects Section 5.9. Things You Can't Do Section 5.10. What You've Learned Chapter 6. Writing Code for Use by Others Section 6.1. Types of Applications Section 6.2. The Development Process Section 6.3. Determine Requirements Section 6.4. Design Section 6.5. Implement and Test Section 6.6. Integrate Section 6.7. Test Platforms Section 6.8. Document Section 6.9. Deploy Section 6.10. What You've Learned Section 6.11. Resources Part II: Excel Objects Chapter 7. Controlling Excel Section 7.1. Perform Tasks Section 7.2. Control Excel Options Section 7.3. Get References Section 7.4. Application Members Section 7.5. AutoCorrect Members Section 7.6. AutoRecover Members Section 7.7. ErrorChecking Members Section 7.8. SpellingOptions Members Section 7.9. Window and Windows Members Section 7.10. Pane and Panes Members Chapter 8. Opening, Saving, and Sharing Workbooks Section 8.1. Add, Open, Save, and Close Section 8.2. Share Workbooks Section 8.3. Program with Shared Workbooks Section 8.4. Program with Shared Workspaces Section 8.5. Respond to Actions Section 8.6. Workbook and Workbooks Members Section 8.7. RecentFile and RecentFiles Members Chapter 9. Working with Worksheets and Ranges Section 9.1. Work with Worksheet Objects Section 9.2. Worksheets and Worksheet Members Section 9.3. Sheets Members Section 9.4. Work with Outlines Section 9.5. Outline Members Section 9.6. Work with Ranges Section 9.7. Range Members Section 9.8. Work with Scenario Objects Section 9.9. Scenario and Scenarios Members Section 9.10. Resources Chapter 10. Linking and Embedding Section 10.1. Add Comments Section 10.2. Use Hyperlinks Section 10.3. Link and Embed Objects Section 10.4. Speak Section 10.5. Comment and Comments Members Section 10.6. Hyperlink and Hyperlinks Members Section 10.7. OleObject and OleObjects Members Section 10.8. OLEFormat Members Section 10.9. Speech Members Section 10.10. UsedObjects Members Chapter 11. Printing and Publishing Section 11.1. Print and Preview Section 11.2. Control Paging Section 11.3. Change Printer Settings Section 11.4. Filter Ranges Section 11.5. Save and Display Views Section 11.6. Publish to the Web Section 11.7. AutoFilter Members Section 11.8. Filter and Filters Members Section 11.9. CustomView and CustomViews Members Section 11.10. HPageBreak, HPageBreaks, VPageBreak, VPageBreaks Members Section 11.11. PageSetup Members Section 11.12. Graphic Members Section 11.13. PublishObject and PublishObjects Members Section 11.14. WebOptions and DefaultWebOptions Members Chapter 12. Loading and Manipulating Data Section 12.1. Working with QueryTable Objects Section 12.2. QueryTable and QueryTables Members Section 12.3. Working with Parameter Objects Section 12.4. Parameter Members Section 12.5. Working with ADO and DAO Section 12.6. ADO Objects and Members Section 12.7. DAO Objects and Members Section 12.8. DAO.Database and DAO.Databases Members Section 12.9. DAO.Document and DAO.Documents Members Section 12.10. DAO.QueryDef and DAO.QueryDefs Members Section 12.11. DAO.Recordset and DAO.Recordsets Members Chapter 13. Analyzing Data with Pivot Tables Section 13.1. Quick Guide to Pivot Tables Section 13.2. Program Pivot Tables Section 13.3. PivotTable and PivotTables Members Section 13.4. PivotCache and PivotCaches Members Section 13.5. PivotField and PivotFields Members Section 13.6. CalculatedFields Members Section 13.7. CalculatedItems Members Section 13.8. PivotCell Members Section 13.9. PivotFormula and PivotFormulas Members Section 13.10. PivotItem and PivotItems Members Section 13.11. PivotItemList Members Section 13.12. PivotLayout Members Section 13.13. CubeField and CubeFields Members Section 13.14. CalculatedMember and CalculatedMembers Members Chapter 14. Sharing Data Using Lists Section 14.1. Use Lists Section 14.2. ListObject and ListObjects Members Section 14.3. ListRow and ListRows Members Section 14.4. ListColumn and ListColumns Members Section 14.5. ListDataFormat Members Section 14.6. Use the Lists Web Service Section 14.7. Lists Web Service Members Section 14.8. Resources Chapter 15. Working with XML Section 15.1. Understand XML Section 15.2. Save Workbooks as XML Section 15.3. Use XML Maps Section 15.4. Program with XML Maps Section 15.5. XmlMap and XmlMaps Members Section 15.6. XmlDataBinding Members Section 15.7. XmlNamespace and XmlNamespaces Members Section 15.8. XmlSchema and XmlSchemas Members Section 15.9. Get an XML Map from a List or Range Section 15.10. XPath Members Section 15.11. Resources Chapter 16. Charting Section 16.1. Navigate Chart Objects Section 16.2. Create Charts Quickly Section 16.3. Embed Charts Section 16.4. Create More Complex Charts Section 16.5. Choose Chart Type Section 16.6. Create Combo Charts Section 16.7. Add Titles and Labels Section 16.8. Plot a Series Section 16.9. Respond to Chart Events Section 16.10. Chart and Charts Members Section 16.11. ChartObject and ChartObjects Members Section 16.12. ChartGroup and ChartGroups Members Section 16.13. SeriesLines Members Section 16.14. Axes and Axis Members Section 16.15. DataTable Members Section 16.16. Series and SeriesCollection Members Section 16.17. Point and Points Members Chapter 17. Formatting Charts Section 17.1. Format Titles and Labels Section 17.2. Change Backgrounds and Fonts Section 17.3. Add Trendlines Section 17.4. Add Series Lines and Bars Section 17.5. ChartTitle, AxisTitle, and DisplayUnitLabel Members Section 17.6. DataLabel and DataLabels Members Section 17.7. LeaderLines Members Section 17.8. ChartArea Members Section 17.9. ChartFillFormat Members Section 17.10. ChartColorFormat Members Section 17.11. DropLines and HiLoLines Members Section 17.12. DownBars and UpBars Members Section 17.13. ErrorBars Members Section 17.14. Legend Members Section 17.15. LegendEntry and LegendEntries Members Section 17.16. LegendKey Members Section 17.17. Gridlines Members Section 17.18. TickLabels Members Section 17.19. Trendline and Trendlines Members Section 17.20. PlotArea Members Section 17.21. Floor Members Section 17.22. Walls Members Section 17.23. Corners Members Chapter 18. Drawing Graphics Section 18.1. Draw in Excel Section 18.2. Create Diagrams Section 18.3. Program with Drawing Objects Section 18.4. Program Diagrams Section 18.5. Shape, ShapeRange, and Shapes Members Section 18.6. Adjustments Members Section 18.7. CalloutFormat Members Section 18.8. ColorFormat Members Section 18.9. ConnectorFormat Members Section 18.10. ControlFormat Members Section 18.11. FillFormat Members Section 18.12. FreeFormBuilder Section 18.13. GroupShapes Members Section 18.14. LineFormat Members Section 18.15. LinkFormat Members Section 18.16. PictureFormat Members Section 18.17. ShadowFormat Section 18.18. ShapeNode and ShapeNodes Members Section 18.19. TextFrame Section 18.20. TextEffectFormat Section 18.21. ThreeDFormat Chapter 19. Adding Menus and Toolbars Section 19.1. About Excel Menus Section 19.2. Build a Top-Level Menu Section 19.3. Create a Menu in Code Section 19.4. Build Context Menus Section 19.5. Build a Toolbar Section 19.6. Create Toolbars in Code Section 19.7. CommandBar and CommandBars Members Section 19.8. CommandBarControl and CommandBarControls Members Section 19.9. CommandBarButton Members Section 19.10. CommandBarComboBox Members Section 19.11. CommandBarPopup Members Chapter 20. Building Dialog Boxes Section 20.1. Types of Dialogs Section 20.2. Create Data-Entry Forms Section 20.3. Design Your Own Forms Section 20.4. Use Controls on Worksheets Section 20.5. UserForm and Frame Members Section 20.6. Control and Controls Members Section 20.7. Font Members Section 20.8. CheckBox, OptionButton, ToggleButton Members Section 20.9. ComboBox Members Section 20.10. CommandButton Members Section 20.11. Image Members Section 20.12. Label Members Section 20.13. ListBox Members Section 20.14. MultiPage Members Section 20.15. Page Members Section 20.16. ScrollBar and SpinButton Members Section 20.17. TabStrip Members Section 20.18. TextBox and RefEdit Members Chapter 21. Sending and Receiving Workbooks Section 21.1. Send Mail Section 21.2. Work with Mail Items Section 21.3. Collect Review Comments Section 21.4. Route Workbooks Section 21.5. Read Mail Section 21.6. MsoEnvelope Members Section 21.7. MailItem Members Section 21.8. RoutingSlip Members Part III: Extending Excel Chapter 22. Building Add-ins Section 22.1. Types of Add-ins Section 22.2. Code-Only Add-ins Section 22.3. Visual Add-ins Section 22.4. Set Add-in Properties Section 22.5. Sign the Add-in Section 22.6. Distribute the Add-in Section 22.7. Work with Add-ins in Code Section 22.8. AddIn and AddIns Members Chapter 23. Integrating DLLs and COM Section 23.1. Use DLLs Section 23.2. Use COM Applications Chapter 24. Getting Data from the Web Section 24.1. Perform Web Queries Section 24.2. QueryTable and QueryTables Web Query Members Section 24.3. Use Web Services Section 24.4. Resources Chapter 25. Programming Excel with .NET Section 25.1. Approaches to Working with .NET Section 25.2. Create .NET Components for Excel Section 25.3. Use .NET Components in Excel Section 25.4. Use Excel as a Component in .NET Section 25.5. Create Excel Applications in .NET Section 25.6. Resources Chapter 26. Exploring Security in Depth Section 26.1. Security Layers Section 26.2. Understand Windows Security Section 26.3. Password-Protect and Encrypt Workbooks Section 26.4. Program with Passwords and Encryption Section 26.5. Workbook Password and Encryption Members Section 26.6. Excel Password Security Section 26.7. Protect Items in a Workbook Section 26.8. Program with Protection Section 26.9. Workbook Protection Members Section 26.10. Worksheet Protection Members Section 26.11. Chart Protection Members Section 26.12. Protection Members Section 26.13. AllowEditRange and AllowEditRanges Members Section 26.14. UserAccess and UserAccessList Members Section 26.15. Set Workbook Permissions Section 26.16. Program with Permissions Section 26.17. Permission and UserPermission Members Section 26.18. Add Digital Signatures Section 26.19. Set Macro Security Section 26.20. Set ActiveX Control Security Section 26.21. Distribute Security Settings Section 26.22. Using the Anti-Virus API Section 26.23. Common Tasks Section 26.24. Resources Part IV: Appendixes Appendix A. Reference Tables Section A.1. Dialogs Collection Constants Section A.2. Common Programmatic IDs Appendix B. Version Compatibility Section B.1. Summary of Version Changes Section B.2. Macintosh Compatibility About the Author Colophon Index

1 , datafile.zip
"This sample demonstrates how to do file input and output using Visual Basic. The sample creates a new database file and allows you to view, add, or delete records in this database."
2 , dbprint.zip
This demonstrates how to print data from a database.
3 , edittbls.zip
This is an EXCELLENT example on how to edit database Tables through VB.
4 , graphdb.zip
This demonstrates how to graph information from a database to a picturebox.
5 , ClassBuilder1.zip
Class Builder - reads SQL Server or Access database and creates a class of the selected table
6 , adoView1.zip
ADO viewer. Retrieve all columns, querys and fields of a database and put them in a TreeView(using OpenSchema ADOConnection method)
7 , imagechunk1.zip
This application will save JPG,BMP,GIF files in your database and allows you to fetch the same. Code example for saving and fetching the same in oracle and sql is also given.
8 , DBImpExp.zip
A utility to import/export Access database from/to other application formats, e.g. Excel and text files. With sample files and help, as well as ample remarks.
9 , pb_test.zip
Test project illustrating high performance Data Access for SQL Server using ADO command objects and Stored Procedures for Insert, Update, Delete and Select. Two methods for Selects are shown
10 , Employees.zip
This is a database project, for storing employees data.
11 , DBProject2.zip
New version of DBProject. Allows you view, scroll through, and edit an access database.
12 , adoview.zip
ADO Viewer,This code retrieve all columns, querys, fields of a database(Access, SQL Server, etc...)
13 , Cheques2.zip
New version of Cheques program. Must see...
14 , ADOSQLcodeGenerator.zip
SQL and ADO Code Generator. Generate SQL statement and ADO Code Connection without the use of an ADO Data Control.
15 , client.zip
This application is about programming with Client Side Cursors.
16 , AccessSecurity.zip
An Access97 security tool. Replaces going into Access97 and switching between security forms.
17 , DatabaseViewandEdit.zip
Do about anything with Access databases. View, edit, export contents to Word or Excel, etc., etc.
18 , VBSales.zip
This is a complete database program for sales which help you to create purchase order, Invoice, etc.
19 , accidents.zip
A programme meant to add, edit,delete,and searching data. It includes how to show statistics regarding the accidents information.just try it. It is handy in studying database programming.
20 , MySQLExplorer.zip
Explorer for MySQL Data Base.You can retrieve and execute your query.
21 , ICDBaseSource115.zip
DAO based database program with many features in it
22 , ICDBSourceBeta115.zip
teach people just beginning with databases and also i am new to databases so this is pretty well commented.
23 , Diary.zip
This application everything you need.t has a CALCULATOR.It has TIME & DATE u can even set the system time
24 , L_datab.zip
The functions are for open Databases including passwords, creating Recordsets , executing SQL statements, renaming tables and many more.
25 , CodeGen.zip
VB code generator,The application currently generates data classes for Access '97 databases.
26 , dbexample.zip
The best part about using a MS JETDB EnGINE4 is that the DB can be accessed through a network.
27 , ComboLookup.zip
Zip Code Database Is A Program To Find Zip Codes By Using A Lookup Field.
28 , UDL.zip
This is a class that lets you create and edit UDL files
29 , qbd-dbCoder131.zip
This code shows how to take data from a VB database application and place it into an Excel spreadsheet.
30 , Family_v2_upload_Apr_05_2000.zip
This is a family address book program created using VB6.
31 , datsearch.zip
Application which searches an Access database for a specified search term entered by the user.
32 , DBTextGrid.zip
This program is the modification of my previous Textgrid.Now you can Add, Modify, Delete, View, Save data to/from your database with this Grid. The grid was formed with array of text boxes.
33,txtgrid.zip
This program creates text box array dynamically and loads the database fields onto it.
34,DAOLike.zip
This program Demonstrates how to use LIKE operator in Jet SQL Query (uses DAO).
35,xmlcreator.zip
This project is a demonstration of how to convert a recordset into an XML format file. Its well documented and more XML stuff to come along.
36,compmdb.zip
This program will allow the user to select a MDB file to compact. Its then backed up just in case, compressed and then the original is deleted before the new compacted version is moved back in place of the original.
37,dbinfo.zip
We've written this mainly for when we develop databases, but really you could adapt it for productive use too. By supplying a DSN entry, it will attempt to connect to that database and list all the tables in it. When you click on a table, it lists all
38,3a.zip
An Inventory System, you can add, edit, sort, find, delete, print, change your password and create a backup of your database
39,A417Source.zip
Full original RANDOM DATA INDEXING (SY-32)METHOD),Faster DATA access than a classical database application. the 1st source of new indexing method (SY-32)
40,student.zip
This is Student Administration Project , u can administrate student through this programme in any institute when u run the programme please use password "mars3" then u can run please check it.
41,ADOViewer.zip
ADO DataBase Viewer. Can open multiple concurrent databases from seperate providers. Works with Access, SQL Server and DSN. I included the ODBC Logon from VB6 so it should be able to hook up to any data provider that supports ADO.
42,rptparam.zip
Passing parameters with data reports. I have set two parameters and passed them during run time.Open with VB6.
43,CompactRepair.zip
A small application that shows you how to compact and repair a Microsoft Access mdb or mde using ADO (JRO).
44,Ledgerinvb5.zip
This is simple GL ledger Project, again a database program. It has an interesting part if you click About button. Must see it.
45,AdoSort.zip
Ado Data Sort Control will display your data from database, filter, sort (up to 3 levels) all in HFlexGrid!!!
46,adoxml.zip
Use ADO to convert database records into an XML file. All users must have MSXML.dll version 3.0, and Internet Explorer 5.5.
47,DataCntl.zip
Simple application that shows how to use the Data Control to connect to the Biblio.mdb database and display all authors in the Authors table.
48,MyTool.zip
An SQL Query tool for SQL Server or Oracle.
49,fab15.zip
Complete Database Address book With Lots Of New Facilites.....下载 Now.
50,DataBaseViewer.zip
DataBase Viewer is a program that lets you to look at your database files. It opens the recordsets in a table for easy viewing and also has a percents and progress bar to show the exact loading progress of the RecordSet.
51,Dynarep.zip
This program generates a dynamic datareport during runtime without using any DataEnvironment object. I have passed the datasource and recordset properties during run time. Opens with VB6.

52,EditUDL2.zip
This is a newer version of the Edit UDL class. This version 2.3 enables you to Create, Edit and Save UDL files either by the UDL properties Dialog Box or by a connection string. The class adds some additional Properties. The Zip file contains not only the class but a sample project demonstrating the use of the UDL class.
53,ADOclient-side.zip
In a network environment, open a connection to a database, retrieve data, close the connection, work with the data, reopen the connection to communicate with the database again and do a batch update.
54,udl2.zip
This application reads universal data link files from disk, creates them, and saves modifications to them to a file. UDL files contain ADO connection information to data sources. Their output can be used as a connection string in your applications.
55,timebilling.zip
This is a full 3-tier dababase application which includes a activex dll project(business objects) and a standard exe(UI).
56,ADODAOpw.zip
Application which shows how to access a password protected Access database using DAO and ADO.
57,DBExplorer.zip
Database explorer for viewing all tables and queries in a database. Also includes an SQL editor similar to SQL Query Analyzer.
58,FriendsDb.zip
ADO Database, Improved login and made the program smaller but with the same options as before just a few extra ones with the login such as write the login to the registry instead of just to a ini file also better encryption for the ini file... Now you can save your password as a number, in the previous login the encryption was poor.
59,FriendsDb105.zip
ADO Database... FriendsDatabase Version 1.05 ... Updated Again, Added even more error handling and images to the listview box also added a few forms to stay on top. Some major error additions i skipped before, runs much smoother now not that it didn't before.
60,Friends.zip
GREATLY UPDATED: Added much better error handling just to be safer and more neat... Also added more sound so all commands have a sound and upon loading a 3 second wav plays also included is the advanced progress bar and ocx that i found in someone elses source that is great for multiple reasons..
61,FriendsDatabase.zip
My first ADO database, i learned from tutorials on here specifically from Jerry Barnes so i think this would be great for people new to ADO databases to learn from but i suggest finding Jerry Barnes ADO For beginners source because it is incredibly commented on and will surely have you creating ADO within 20 minutes.
62,user_query.zip
The Application basically allows you to connect to any Access Database view records of each table, along with the table design ,write sql statements on the fly(any dml statement).Most Of The Functionality Of The Application Has Been Automated. A must See..
63,Database.zip
Database application. Must see...
64,Cheque.zip
Cheques. Must see...
65,ICDBaseSource.zip
DAO based database program with many features in it, I also noticed after searching around I seen no databases that supported saving gaming info so I made one witht he ability for saving game info such as favorite game, gaming handle, clan name, clan rank...
66,pizza.zip
Pizza Program. Must see...
67,prjDataEnv.zip
This VB database application shows how to use DataEnvironment in code.
68,Familyv3.zip
This is new version of a family address book that I released some time ago. This time around I mostly use ADO instead of DAO and now the user isallowed to add or remove any category of their choice.
69,AgendaRBC.zip
An Agenda which uses a text database file.
70,project26.zip
Stocks Portfolio.
71,vbasics.zip
This is a database project that uses the VB DBGrid control to display and scroll through all records in an Access database.
72,vbWales.zip
Database app. I did as a college assignment. Only simple stuff but there is some good tab strip code etc...
73,DBProject.zip
Database Viewer application. Allows you to view and scroll through all of the records in a database.
74,dbCoder.zip
Access97 Database Coder. Analyses a database and writes the code required to create blank copy. Two projects dbCoderAddIn.vbp can be compiled as an add-in and will place the code in a new module of the active project.
75,move_vb6.zip
Demonstrates how to use the data control to move through a recordset.
76,ado.zip
Opens an access database using ADO and then displays all records, provider properties and error information in a list box.
77,f_119.zip
An example of a bound form using the ADO control(4KB)
78,f_118.zip
Examples of a connectionless recordset(2KB)

7,763

社区成员

197,605

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章