-
本版专家分：0结帖率 60% -
ACCESS 数据库里N个表 名字类似 51book 52book 65book....... 等等 名字前面数字不统一 但是后面都是统一的book 我想用程序保存一个数据到所有以book结尾的表里，该怎么写程序。以下写法只能保存一个，请高人指点。
SQL22 = "select * from 51book“
Call OpenConn
rs.Open SQL22, cn, 3, 3
rs.addnew
rs!kcdj = TextBox1.Text
rs!kcmc = TextBox2.Text
rs!kcno = Text1.Text
rs.Update
Call CloseConn
![]()
-
本版专家分：0
-
一次的记录集操作没办法做到像你说的这样的。可以考虑采用for循环的方式，依次获取文件中的各个Table的name，通过判断name是不是以book结束来判断是否为需要添加数据的Table，如果是，用addnew添加就是了。
-
本版专家分：0
-
Dim dbs_New As Database
Set dbs_New = OpenDatabase(AccessFileName, True, False)
Dim i As Integer
For i = 0 To dbs_New.TableDefs.Count - 1
dim strName as string
strName=dbs_New.TableDefs(i).Name
'以下为根据strName是否以book结尾进行处理
Next i
-
本版专家分：3761
-
-
红花
2019年7月 VB大版内专家分月排行榜第一
2019年5月 VB大版内专家分月排行榜第一
2019年3月 VB大版内专家分月排行榜第一
-
-
试试看这样行不行:
SQL22 = "select * from 51book“
Call OpenConn
rs.Open SQL22, cn, 3, 3
rs.addnew
dim i as integer
for i=0 to rs.fields.count-1
if rs.fields(i).name like "*book" then
rs.field(i).value = textbox1.text
end if
next
rs.Update
Call CloseConn
-
本版专家分：628 -
Dim rst1 As Recordset
Call OpenConn
Set rst1 = cn.OpenSchema(adSchemaTalbles) '获取数据库表记录集
If Not rst1.EOF Then
rst1.MoveFirst
Do Until rst1.EOF
If Right(rst1!TABLE_NAME, 4) = "book" Then s筛选以book结尾的表
SQL22 = "select * from " & rst1!TABLE_NAME
rs.open SQL22, cn, 3, 3
rs.addnew
rs!kcdj = TextBox1.Text
rs!kcmc = TextBox2.Text
rs!kcno = Text1.Text
rs.Update
rs.Close
End If
rst1.MoveNext
Loop
End If
Call CloseConn
-
本版专家分：628
-
Dim rst1 As Recordset
Call OpenConn
Set rst1 = cn.OpenSchema(adSchemaTalbles) '获取数据库表记录集
If Not rst1.EOF Then
rst1.MoveFirst
Do Until rst1.EOF
If Right(rst1!TABLE_NAME, 4) = "book" Then '筛选以book结尾的表
SQL22 = "select * from " & rst1!TABLE_NAME
rs.open SQL22, cn, 3, 3
rs.addnew
rs!kcdj = TextBox1.Text
rs!kcmc = TextBox2.Text
rs!kcno = Text1.Text
rs.Update
rs.Close
End If
rst1.MoveNext
Loop
End If
Call CloseConn![]()
-
本版专家分：628
-
筛选前面那个“s”应该是个单引号，注释用
-
本版专家分：0
-
最爱的宝宝。
- vb基础
- Dim sngdrawwidth As Single 模块级变量，保存线条宽度Private Sub Command1_Click()刷新恢复Form3.ClsEnd SubPrivate Sub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single) If button = 1 T
- labview中AVI视频录取保存太大了，不到一分钟就2G了
- labview中AVI视频录取保存太大了，不到一分钟就2G了，分辨率1280*720的 这种怎么解决？
- VB学习过程（二）VB的语法基础和常用的内部函数
- 2013/10/28 语法<em>基础</em>： （1）顺序结构 Private Sub Form_Load() Dim Num1 As Integer , Num2 As Inteher Num1 = 1 Num2 = 2 MsgBox Num2 End Sub 程序由上到下依次执行，不存在任何的跳转或者循环，运行到End Sub。 这就
- VB报溢出错误
- Sub 计算器件采购量() Dim tmp1 As Integer, tmp2 As Integer, Total As Integer, amount1 As Integer Dim i As In
- 窗口同步操作
- 我想用VB写一个窗口同步操作器，就是规定一个主窗口，在主窗口操作，其他副窗口同步操作，点击，滑动，输入等，坐标等都是以窗口客户区为起点 我的想法是想把副窗口的消息处理函数替换成主窗口消息函数，所有窗口
- vb基础题，请各位帮忙看看，谢谢
- 《程序设计<em>基础</em>（VB）》作业 第2章习题 一、选择题 1．如果把一个人当作对象，那么血型相当于这个对象的_______。 (A)属性 (B)方法 (C)事件 (D)特征 2．下列方法中_______不
- VB 基础
- Visual Basci中最基本的两种预定义对象： 窗体、控件 VB app通常由三类模块组成：窗体模块、标准模块、类模块 即： .frm .bas .cls 标准模块不与任何窗体或控件相关联，标准模块的全局变量可以被工程中任何模块引用，公用过程可以被和控件相关联的任何事件调用 字符串 定长字符串、变长字符串 for example: Dim studName A...
- 意外发现VB6.0一个诡异的错误，谁能找到其中原因？
- 我在调试一个小的数据采集工程任务中，突然遇到溢出错误警告，实时错误“6”，溢出，百思不得其解，那位资深VB6.0玩家来帮忙找原因吧！ 原码： Private Sub Form_Load() Dim x
- SQL SERVER的数据库文件可否定时备份，备份文件名按 数据库名+ 年月日时分秒.bak 命名
- SQL SERVER的数据库文件可否定时自动备份，备份文件名按 数据库名+ 年月日时分秒.bak 命名，不要增量备份，是整个文件备份 此功能可以在 SQL SERVER MANAGEMENT STUD
- vb.net
- 求大佬解答一下我选中的部分 我不太明白
- 获取硬盘序列号的代码在WIN10系统中 常常 失效，可能是因为这些代码需要权限才能获取到硬件序列号，请提供一下不需要权限即可获取到硬件序列号的的代码
- 获取硬盘序列号的代码在WIN10系统中 常常 失效，可能是因为这些代码需要权限才能获取到硬件序列号，请提供一下不需要权限即可获取到硬件序列号的的代码
- VB基本语法
- VB基本语法 培训目标： 掌握各种基本数据类型以及流程控制语句的语法，感受VB编程。培训内容：1.VB中的数据类型；2. VB中的常量与变量；3. VB中的运算符；4. VB中的流程控制语句。课后练习：改进第一次培训布置的“计算器”，要求实现四则运算，并充分利用流程控制语句来实现语句的改进及对数据长度、数据...
- vb 基础
- <em>vb</em> <em>基础</em>,基本语法和用法
- vb基础教程（经典的基础教程）
- <em>vb</em><em>基础</em>教程我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可
- VB设计关于提前15分钟提醒的计时器控件怎么做
- VB中在汽车客运公司售票系统用计时器做一个发车前15分钟提醒怎么做，已经有一个专门的车次表businfo，其中的一个属性是发车时间
- 请教如何在Windows的任务栏上添加一个自己的工具栏，我想写个小工具放在这里。
- 请教如何在Windows的任务栏上添加一个自己的工具栏，我想写个小工具放在这里。 语言：VB6 能给出思路也好，谢谢！
- Excel VBA 入门基础
- VBA是一种宏语言，能完成许多重复繁琐的操作，使工作处理就会变得很高效。在office内WORD、Excel、PPT等都内置了VBA。以下主要讲Excel上的运用： 一、打开VBA方法： 方法1：在Excel界面使用快捷键Alt+F11 方法2：office2010版本以上：点击文件--选项--自定义功能区--自定义功能区--勾选开发工具--确定 开启开发工具后就可以在主菜单上看...
- SQL SERVER的数据库文件定时自动备份，备份文件名按 数据库名+ 年月日时分秒.bak 命名，不要增量备份，求 数据库端备份脚本
- SQL SERVER的数据库文件定时自动备份，备份文件名按 数据库名+ 年月日时分秒.bak 命名，不要增量备份，求 数据库端用于数据库备份的脚本
- VB编程基础ppt vb基础学习
- 7个ppt文件，简单学会VB编程，ppt格式更方便新手学习
- VB基础课件,VB基础课件
- Vb课件VB课件啊，就是学VB啊，VB课件，VB课件VB课件
- vb基础教材vb基础教材
- <em>vb</em><em>基础</em>教程，希望大家在其帮助下，都有所提高，就说这些！ <em>vb</em><em>基础</em>教程，希望大家在其帮助下，都有所提高，就说这些！
- 想问问大佬们vb这个题该怎么做
- 大佬们看看这个题8⃣️
- vb.net基础 回调函数的概念 及使用问题
- 回调函数是什么？ 我网上看了一大推论文，光凭说明很难理解清楚。 我希望能够直接VB代码示例演示，这样我能够迅速理解。
- VB课本基础知识总结
- 一、概述： Visual Basic是一种面向对象的可视化程序设计语言，采取了事件驱动的编程机制。 VB程序的两种运行方式：解释方式运行，编译方式运行。 对象：世间万物皆为对象；VB中所有可见的界面元素及大部分硬件资源。 类：具有相同性质的对象的集合；类中的每个对象称为类的实例。 事件：指对象能够识别并作出反应的外部刺激。 方法：系统已经设计好的，在编写过程中可以使用的一些特殊程序...
- C/S 架构，数据库放置在阿里云主机上，客户要从他自己的办公电脑上查询年度销售记录时（有100万条），怎么让其分页浏览数据，不要一次性将这100万条记录下载下来
- C/S 架构，数据库放置在阿里云主机上，客户要从他自己的办公电脑上查询年度销售记录时（有100万条），怎么让其分页浏览数据，不要一次性将这100万条记录下载到他的办公电脑，估计那样会特别慢。 谢谢大家
- 求助，急用，VB做程序与ONEnet相连
- 需要小程序从onenet上读取数据，求问该怎么做
- VB基础教程---VB程序设计基础
- VB<em>基础</em>教程---VB程序设计<em>基础</em>（Visual Basic 概述。创建用户界面。VB语言<em>基础</em>。。）
- vb法基础，vb语法基础
- 1. 熟悉VB程序中代码和语句书写规则； 2. 掌握VB的数据类型； 3. 掌握VB的 运算符和表达式的使用；
- VB基础\[VB]方位角计算
- VB<em>基础</em>\[VB]方位角计算VB源码彩色显示 注：在[code]...[/code]内就以下面格式显示文字
- VB基础实例大全 VB例子 VB基础 VB基础学习 实例
- 这里面的实例是<em>基础</em>实例，能让你学得更加的得心应手。
- C#基础与VB基础比较
- 在看C#视频的时候，感觉这老师讲的很乱，还好前面有VB作为<em>基础</em>。只要还记得我们去年讨论的VB总结，那么在看C#视频的时候，就会感觉到很熟悉。看完视频之后，就特别有一种欲望，将C#和VB进行比较。 1.数据类型 C#包括两种变量类型：值类型和引用类型 1.值类型：值类型就是一个包含实际数据的量。当定义一个值类型的变量时，C#会根
- 汇编语言 十进制字符串转换成十进制数
- 用子程序 入口参数si字符串首地址 ax转换出的十进制数 主程序定义一个固定的十进制字符串和一个自变量 调用子程序完成转换后转换出的十进制数保存到自变量
- 哪位大神帮个忙，一个vb编程题
- 编写一个计算！的函数过程，在窗体设置一个命令按钮，在该按钮的事件中用输入一个值，调用上述函数计算： ＝1！+2！+3！...+！mSmoxtBpuinkiccln
- 利用vbs操控excel查找某一列并获取值
- 我想用<em>vb</em>s查找excel的B,C两列，如果B,C两列中在同一行找到和我想要的值相同，那么输出当前所在的行号。一直查找到列尾。 例如：B4=23,同时C4=25，那么输出4.
- VB6.0如何正则提取下面源码的 TD中间的文字
- <TD height=1060 valig
- VB窗体插入excel表格
- 请问各位，怎样在VB窗体中插入excel表格，插入的表格只显示单元格的区域，不显示excel的操作界面，并且能读取和锁定单元格内容，在线急等，多谢各位了
- vb 基础入门
- <em>vb</em> <em>基础</em>入门
- VB基础教程基础1.1
- VB编程<em>基础</em>教程一：Visual Basic 的代码存储在模块中。模块有三种类型：窗体、标准和类。
- vb基础学习
- <em>vb</em><em>基础</em>学习 所有<em>vb</em>的<em>基础</em>全部包括在里面
- vb程序设计基础到高级
- <em>vb</em>程序设计少不了它，该文档为PPT，篇幅有几百页，从<em>基础</em>到高级，详细地介绍了VB的设计过程！
- 如何给导出的excel 添加 标题 和 合计
- 如何给导出的excel 添加 标题 和 合计 导出代码如下： Dim Rs_Data As New AdoDB.Recordset Dim Irowcount As Integer Dim Icolc
- 在win10下运行VB6开发的系统，比在XP下运行的要漂亮。
- 我没怎么用WIN10，偶尔一次，客户电脑装WIN10，运行我的系统后，发现在win10下运行VB6开发的系统，比在XP下运行的要漂亮。 从次，我喜欢win10了！
- VB.NET 教程_01_基础语法
- VB.Net教程简介： VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发，将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET（VB.NET）是在.NET Framework上实现的面向对象的计算机编程语言。 虽然它是经典的Visual Basic语言的演变，但是它不...
- 请帮忙标注代码的注释
- 我今年快50了，刚自学VB，单位的小年轻写了一些代码，没注释，请帮忙注释一下。代码如下： If UBound(ReceiveBuffer) > 103 Then datatemp2 = Hex(Rec
- 如何用EXCEL做报表，并嵌套在 form 窗体中
- 如何用EXCEL做报表，并嵌套在 form 窗体中 ，取代 下图中用的控件， 显然此时，EXCEL控件 不能有工具栏和菜单栏
- VB基础程序
- 一个简单的VB程序，随便弄的
- VB的基础程序代码集合
- VB的程序代码，<em>基础</em>的，适合初学者，不错
- VB程序设计基础（ppt）
- <em>vb</em>入门学习的powerpoint资源.
- vb程序设计入门基础
- 超<em>基础</em>的VB入门书籍,是学校选修课用的教材,文科生都能看懂.
- VB基础学习
- VB<em>基础</em>学习资料,初学着学习
- 请懂vb的大神帮忙
- 这是设计思路2048游戏的代码 请大神帮我翻译下 就是说一下哪一部分是用来做什么的 分几个模块这样子 谢谢 Option Explicit Dim BoxValue(3, 3) As Integer
- VB6.0从入门到精通(带书签)
- 本书是VB程序设计的入门图书，从VB的基本语法结构开始，引领读者一步步掌握高级知识，同时使读者能够实现用户界面的设计、对图表的控制以及类模块的使用和对数据库的操作等高端应用。 本书知识全面，结构上面向
- FpSpread控件如何在第2行之中增加 一行，并在新增加的行中将第1-第10列合并，而后在此单元格中输入文字 “2019年销售报表”
- FpSpread控件如何在第2行之中增加 一行，并在新增加的行中将第1-第10列合并，而后在此单元格中输入文字 “2019年销售报表” 控件 参见下图
- vb编程
- 求大神看看这个程序哪里有问题
- VB新手入门之二
- lt;数字类型变量>，值为1的返回值，值为2的返回值…)Switch(，条件表达式1为True时的值[，，条件表达式2为True时的值…])3.3 常见错误和难点分析1．在选择结构中缺少配对的结束语句对多行式的If块语句中，应有配对的End If语句结束。否则，在运行时系统会显示"块 If没有End If"的编译错误。同样对Select Case语句也应有与其相对应的End
- VB快速入门基础PPT
- 从最<em>基础</em>的语法学起，老师专用的课堂VB讲授的PPT。现提供给大家用来自学VB。
- C#与VB的基础比较
- 学习完了C#后，然后回过头来想了想VB，两者的相同之处还是挺多的，只不过就是表达形式上的不同。 先看一下C#： 1.数据类型 类别 1.值类型：一种由类型的实际值表示的数据类型。如果向一个变量分配值类型，则该变量将被赋以全新的值副本。当定义一个值类型的变量时，C#会根据所声明的类型，以堆栈方式分配一块大小相适应的存储区域给这个变量，随后对这个变量进行读和写操作。 值类型就
- VB基础学习资料
- 以PPT的形式，讲解了如何使用VB。详细介绍了VB的一些简单用法。
- VB程序设计基础课件
- VB程序设计<em>基础</em>课件,内容包括了<em>vb</em>的所有内容，适合于初学者学习，如果在配有程序设计，内容就更丰富了。
- vb编程基础
- VB是一种高级编程语言，具有很强大的编程功能，能简化复杂的编程。
- 求用vb做一个电影院选座系统
- 求各位大佬给操作一下 最好有点彩蛋啥的 代码全一点 谢谢了
- iTextSharp生成PDF时，标点在行首，怎样修改iTextSharp.dll
- 引用iTextSharp.dll生成PDF文件时，标点位于行首。 查看了一些资料，主要是针对iTextSharp.dll进行修改。 一是修改DefaultSplitCharacter类isSplitC
- Top属性的问题
- 我写了个界面，如下图： 为了适应各种分辨率，我运行软件读取系统分辨率，然后对每种分辨率都对 界面做了重新布局。 其他分辨率都搞好了，只差800*600. 在800*600分辨率下，左边界面如第一个图
- visual studio code 编写python
- 在Mac上安装visual studio code 编写python程序的线性拟合图像为什么无法显示，程序感觉运行一下就闪退了
- 【VB.NET】基础汇总
- A.0 如何在VS中写VB.NET代码 请走传送门 A.1 构造和析构 Public Sub New() MyBase.New() '该调用是 Windows 窗体设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写处置以清理组件列表。...
- VB最基础的教程
- VB最<em>基础</em>的教程可以让你更容易的掌握<em>vb</em>的内容！
- VB基础题
- 有一段字符“长春送电；吉林送电；辽源送电；”rn现在要把他们挨个提出来放在三个文本框里，结果如：rntext1="长春送电；"rntext2="吉林送电；"rntext3="辽源送电；"rn怎么实现？
- 2. VB用户界面设计基础
- （1）VB用户界面设计<em>基础</em> 一：VB用户界面设计<em>基础</em> 1. 概述 界面的设计有两步 （1）绘制控件。 （2）确定控件属性。 绘制控件： 在工具箱中单击想画的控件， 在窗体中按下鼠标并拖曳， 然后松开鼠标即可。 确定属性： 先选中控件， 然后按F4键或单击工具栏上的属性窗口进入属性（properties）窗口， 再在属性窗口中找到要设...
- VB 基础问题
- 我有一组单选框数组，还有一个复选框控件，请问如何在复选框选中时，其中的几个单选框在TEXT1中返回的值自动加上0.2。求代码。多谢~ rn问题补充：rn是这样子，我可能没说清楚，有0-20个option1 然后有一个check1 rnoption1/(0-5)选中时，在TEXT1中返回的值分别为0.1 0.2 0.3 0.4 0.5 0.6(用到了SELECT CASE)rn如何实现check1选中时，且当0-5option1中有任一个选中时，对应的值加0.2rn能不能详细一点啊，理解能力有限。rn
- VB基础问题
- 才开始看书，那些表达符，函数等概念和用途要背下来吗？rnINPUT函数怎么用啊？rn
- Visual Basic初学者求助
- Enum TosdType osd_text = 0 ' // Overlay覆盖 osd_time = 1 '// D3D osd_image = 2 ' // Offset screen End
- 对比十二年前的代码，发现了点有意思的东西
- 今天用<em>vb</em>写一个了一个小函数，功能很简单，就是检测某个项是否在下拉列表里，本来不想加到自己的函数库的，想想还是加一下，结果发现以前已经添加过了，修改时间是2007年，也就是12年前了，那时才学<em>vb</em>一两
- VB程序为什么不能正常运行
- 简单介绍一下这个程序下面是一个窗体的源代码 毕设差不多是照搬了一本书的一个程序 比较大 敲完书上的源代码后 各种修改后无报错（其实也就改了声明变量的访问权限 源代码是private 改成了public
- 有VB基础，想半个月内尽快上手，是学VB.net,还是C#呢？
- 有VB<em>基础</em>，会C语言，不会C++，面向对象的语言都没有接触过。。。想在半个月呢内尽可能快地上手支持.net的语言，是学VB.net,还是C#呢？ 从VB学到VB.net快么？
- 我的 VB2010 项目窗体 打不开了，跪求各个朋友帮忙看看！
- monkey:35.gif本人已经画了快半年的 ＶＢ2010 ＵＩ 由于Ｃ盘空间不足用了一下360 清理之后ＶＢ工程就不能正常打开了！ 还请看到此帖的朋友如果了解是什么情况的话给个指点，快
- 求助VB的基础问题
- 谁会用VB做滚动条的源程序呀，请各位告知一二了，谢谢
- VB编程资料入门基础
- 介绍VB语言入门资料，详细基本的介绍了相关知识
- vb基础程序
- 简单介绍<em>vb</em>的结构程序，其中包括一些基本的<em>vb</em>2008编程的基本思想和编程过程
- VB基础6
- 一。数据库 数据库对象和记录集对象 定义一个数据库对象：dim dbName as Database 数据库是一个数据的容器，而数据库对象则是在VB中用于操作数据库的一个数据和方法的集合 记录集可以看成是一张活动的，由行列组成的表 定义一个记录集：dim rsName as Recordset 记录集五种不同的类型：
- c++ 读取txt文件流 绘制曲线下载
- 自己写的txt文件读取并绘制曲线程序，运行后点击右下角的按钮即可 相关下载链接：[url=//download.csdn.net/download/dingdang0006/3312728?utm_source=bbsseo]//download.csdn.net/download/dingdang0006/3312728?utm_source=bbsseo[/url]
- sas/insight下载
- SAS/Insight的数据管理与数据探索功能 相关下载链接：[url=//download.csdn.net/download/xiaoshu01/4421588?utm_source=bbsseo]//download.csdn.net/download/xiaoshu01/4421588?utm_source=bbsseo[/url]
- dnf十字斩改暴风易语言源码下载
- dnf十字斩改暴风易语言源码 相关下载链接：[url=//download.csdn.net/download/chao441928905/4492639?utm_source=bbsseo]//download.csdn.net/download/chao441928905/4492639?utm_source=bbsseo[/url]
我们是很有底线的