Form2.Data1.Recordset.FindFirst-小知识

话题：Form2.Data1.Recordset.FindFirst

问题详情："Exit SubEnd IfForm2.Data1.Recordset.FindFirst strIf Data1.

回答：Recordset.NoMatch 没有这个属性呗.

话题：VB中的rs.FindFirst

问题详情：As Object Set rs=Me.Recordset.Clone rs.FindFirst "[姓名]='"

回答：就是查找与Text11里面内容相符的姓名

话题：VB的FindFirst,rst1.FindFirst "rst1!NO

问题详情：dbOpenSnapshot) rst1.FindFirst "rst1!NO_ 択一 问题详情题='"

回答：把这句改成 conn.Execute("insert into product (part,brand,date_code,qty,price) values ('" & request.form("f_part") & "','" & request.form("f_brand") & "','" & request.form("f_date_code") & "','" & request.form("f_qty") & "','" & request.form("f_price") & "')") conn.Execute只返回执行的行数,不返回 集

话题：access窗体,根据输入的值显示相应的值

问题详情：Dim rs As Object Set rs=Me.Recordset.Clone rs.FindFirst "[储血

回答：假如献血人组合框名为:xingm,血型组合框名为:xuex,在储血号的跟新后时间中假如以下 码: Private Sub 储血号_AfterUpdate() Me.xingm=Null Me.xingm.Requery Me.xingm=Me.xingm.ItemData(0) Me.xuex=Null Me.xuex.Requery Me.xuex=Me.xuex.ItemData(0) End Sub

话题：VB的使用方法

问题详情：VB的查找数据是的方法,总是弄不懂!有米有高手教下!~

回答：Private Sub mand1_Click() Dim aa As Variant Dim rs As New ADODB.Recordset aa=InputBox("请输入工号") Adodc1.rs.FindFirst "工号='" & aa & "'" If rs.EOF Then MsgBox "对不起,不存在此工号", vbInformation Else rs.Open "select*from 员 料 where 员工号='" & aa & "'" Text2.Text=rs("姓名") Text3.Text=rs("性别") End If rs.Close Set rs=Nothing End Sub Private Sub SSTab1_Click(PreviousTab As Integer) Text1.Text=" " Text2.Text=" " Text3.Text=" " Text1.SetFocus End Sub 编程中有三个textbox,三个bottom 如何在vb编程中进行对sql的数据查找?查找后又怎样相对读入三个textbox中?

参考回答：还有一个问题就是想问下 我的VB怎么总也连不到数据库啊无论是SQL还是ACCESS的 看了网上很多说明 照着做了还是连不上 SF能不

话题：VB DataReport 的使用

问题详情：DataReport只能输入固定的数据表中的 ,而我想DataReport因

回答：在DataReport所属的ataEnvironment中添加如下 码: Private Sub DataEnvironment_Initialize() RPT.Connections(1).ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & DataFile & ";Persist Security Info=False;Jet OLEDB:Database Password=123456" End Sub 其中: RPT---DataEnvironment的名称; DataFile ---------数据库名称; 123456-------------改成你自己的 !

参考回答：Private Sub mand1_Click() Dim aa As Variant Dim rs As New ADODB.Recordset aa=InputBox("请输入工号") Adodc1.rs.

话题：VB学 方法

问题详情：最有教程 VB与其他语言有什么不同

回答：VB是一种可视化的、面向对象和采用 驱动方式的结构化 程序设计语言,可用于开发Windows环境下的各类应用程序。它简单易学、效率高,且功能强大可以与Windowsr专业开发工具SDK相媲美。在Visual Basic环境下,利用 驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,以用动态链接库(DLL)、对象的链接与世隔嵌入(OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高,Visual Basic的功能也越来越强。5.0版以后,Visual Basic推出了中文版,与前个版本相比,其功能有了很大提

参考回答：Private Sub mand1_Click() Dim aa As Variant Dim rs As New ADODB.Recordset aa=InputBox("请输入工号") Adodc1.rs.

话题：access中,在一个窗体内,从一个列表框( 名称)选中一

问题详情：access中,在一个窗体内,从一个列表框( 名称)选中一个,

回答：假设 表结构如下: ( 名称, , , ) 一个窗体,布 见附图 添加 4个文本框 分别命名为: 名称 、 、 和 ,1个列表框 命名为List4 窗体的数据源设置为表“ ”,4个文本框分别与对应的字段绑定 列表框的行 属性设置为: SELECT . 名称 FROM ; 为列表框添加下列更新后 过程: Private Sub List4_AfterUpdate() Dim rs As Object Set rs=Me.Recordset.Clone rs.FindFirst "[ 名称]='" & Me![List4] & "'" If Not rs.EOF Then Me.Bookmark=rs.Bookmark If Me. 名称 Me![List4] Then Me.List4.Value=False End If End Sub 添加下列窗体成为当前 过

话题：ACCESS200 如何设计登录窗体?

问题详情：pare Database Dim conn As ADODB.Connection Dim rs As

回答：你的rs打开以后指针停在第一条 要把指针移到 名那条 rs.FindFirst “ 名='" & username & "'"

话题：vb查找 sql数据读取

问题详情：=InputBox("请输入工号")Adodc1.rs.FindFirst "工号='" &

回答：为什么不使用 码连接呢?给你提供个函数模块:Private Sub QuereRecord()Dim conn As New ADODB.ConnectionDim rst As New ADODB.RecordsetDim cmd As New ADODB.mandconn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" & _ "User ID=sa;PassWord=anxin;Initial Catalog=pubs"conn.Open'Set rst=conn.Execute("select * from authors") '使用连接对象方法'rst.ActiveConnection=conn '使用 集方法'rst.Open "select * from authors"cmd.ActiveConnection=conn '使用命令对象方法cmd.mandText="select * from authors"Set rst=cmd.ExecuteDim i As IntegerDo Until rst.EOF i=i + 1

参考回答：问题不清楚~~举个例子吧~