【VB】插入数据的问题

问题描述

OptionBase1PrivateSubCommand1_Click()Dima,i%Text1=""ReDima(i)Fori=1To10a(i)=Int(Rnd*10+1)Text1=Text1&a(i)&""NextiEndSubPrivateSubCommand2_Click()Dimi%,num%,p%num=Val(Text2)p=Val(Text3)ReDimPreservea(UBound(a)+1)Fori=UBound(a)TopStep-1a(i+1)=a(i)Nextia(p)=numText4=""Fori=1ToUBound(a)Text4=Text4&a(i)&""NextiEndSub提示“下标越界”，哪个下标越界了啊TT拜托了我都折腾两天了一般下标越界怎么检查啊…

解决方案

解决方案二：
出错有位置指示的啊。OptionBase1'这个规定下标从1开始'PrivateSubCommand1_Click()Dima,i%Text1=""ReDima(i)'i没赋值默认是0，所以a(i)等于声明a(1To0)，终止下标比起始下标还小？？？'

又：a是Command1_Click()的局部变量，其它函数中访问a要闹哪样？
解决方案三：
这年头学校还教VB6.0吗？为啥不直接学VB.NET呢，好用的不是一点半点。。

时间： 2024-10-27 12:56:08

【VB】插入数据的问题的相关文章

asp.net(vb)为什么我单击提交留言时没有把留言信息执插入数据表中？？？

问题描述 事件代码:subpostarticle(senderasobject,easeventargs)dimconnasnewoledbconnection()conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("guestbook.mdb")conn.open()dimartidasintegerdimcmdasnewoledbcomma

oracle 字符串拆分，序列，插入数据

问题描述 oracle 字符串拆分,序列,插入数据 insert into stud_sname1_417 (id,sname1) select seq_sname1_417,distinct substr(name,1,1) from name; 请问为什么是 missing expression 解决方案 Oracle拆分字符串函数Oracle拆分字符串函数Oracle拆分字符串函数 解决方案二: insert into stud_sname1_417 (id,sname1) SELECT

怎么用java实现doc文档模板插入数据和表格并导出？急急急，在线等

问题描述 怎么用java实现doc文档模板插入数据和表格并导出?急急急,在线等 我要实现一个模板导出功能,模板包含标题和文字内容,模板中间还有一个表格,和结尾文字.要实现动态添加标题文字,其中表格中内容部分动态添加数据,可能会有多种模板,区别是表格样子不同,都要添加内容,最后整个导出doc文件.有没有demo?各位大神?谢谢了先.下面图片中红色框住部分是要动态添加数据的地方,其他地方是模板原型. 解决方案 下面是我实现的方式,用poi工具. /** * * @param filePath 源文件

mfc sqlite-mfc用w32sqlite插入数据时老是提示SQLITE_ERROR

问题描述 mfc用w32sqlite插入数据时老是提示SQLITE_ERROR mfc用w32sqlite插入数据时老是提示SQLITE_ERROR if(!isopendb){ isopendb=sqlite.Open(_T(""C:Usersdb"")); } sqlite.DirectStatement(sqlstr1); sqlite.DirectStatement(sqlstr2); sqlite.DirectStatement(sqlstr3); sql

hive0.13.1 的bug，新增字段插入数据为空？

问题描述 hive0.13.1 的bug,新增字段插入数据为空? hive0.13.1 的bug,新增字段插入数据为空?hive从0.10.1升级到0.13.1发现以前的数据分区,在新增的字段是没有数据的? 解决方案 hive 升级后,好像是有一些兼容性的问题,如:hive0.13.1 orc兼容性问题fix

asp.net 使用SqlBulkCopy极速插入数据到 SQL Server

按这个来算,我们那个发水票的时间就会由 10分钟-->20秒,这可太神奇了. 于是乎,下demo,测试,改成自己一般使用的方法测试,NND,还真可以说是极速. 在此贴上我的Demo:SqlBulkCopy.rar 复制代码 代码如下: using System; using System.Diagnostics; using System.Data; using System.Data.SqlClient; using Microsoft.ApplicationBlocks.Data; name

php 解决MySQL插入数据出现 Incorrect string value: '\xF0\x9F\x92\x8BTi...'错误

在项目中向MySQL插入数据时,发现数据插入不完整,通过调试,发现插入语句也没什么特殊的错误.但是就是差不进去,于是就打开mysqli错误的调试 $ret = mysqli_query($this->conn, $sql) or die(mysqli_error($this->conn)); 结果弹出如下错误信息: Incorrect string value: '\xF0\x9F\x92\x8BTi...' 有错误信息就好办了,结果上网一查结果是:mysql编码格式utf-8格式,不支持带四

ASP编程入门进阶（二十）：ADO组件之插入数据记录

ado|编程|插入|数据|ado 简单的显示记录已经掌握,现在需要的就是通过ASP将信息内容插入到数据库中. 一.拥有数据库cnbruce.mdb 本数据库的作用就是用来被插入数据的,可以直接采用上节中已经建立的cnbruce.mdb文件,当然连接打开数据库的文件conn.asp也就顺利引用了. 二.建立输入插入信息的页面平台addit.html 本页的主要作用是:显示一些文本输入框以用来提供输入信息内容提交数据库. 1,addit.html<form action="addit.asp&

SQL循序渐进(5)插入数据到表

插入数据到表 Insert语句用于往表格中插入或者增加一行数据,它的格式为: insert into "tablename" (first_column,...last_column) values (first_value,...last_value); [] = optional 简单举个例子: insert into employee (first, last, age, address, city) values ('Luke', 'Duke', 45, '2130 Boars

ASP 插入数据, 换行问题解决方法

插入|解决|数据|问题 作用:当插入数据时, 把每行的回车符替换为 <br /> 方法, 只使用简单的 replace 方法-- content_ = replace(request.Form("content"),chr(13),"<br/>") 如使用函数, 可这样使用-- content_ = funcName(request.Form("content")) 文件: insertform.asp--插入数据表单页,