求一段VB代码纠错
试试 Do until mrc.EOF
把错误信息报上来
语句没有执行,所以没有反应,另外漏掉一个$
Strline = "SELECT * INTO " & Text1.Text & " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & file_name & "'," & List1.Text & ")"
改为:
Con.Execute "SELECT * INTO " & Text1.Text & " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" & file_name & "'," & List1.Text & "$)"
新手,用VB写一段代码!可是现实错误未定义标签,什么原因?
goto a 其中的goto 是跳转符号 后面的不是变量 是一个标签代号 不需要声明 你想要跳转到哪 就将 另外一个a:(A加冒号)放到同一个过程中你想跳转的位置上 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load a:sj = Timer()If sj =...
用VB编写一段代码判断输入的数是否素数。
1、首先启动vb6,创建一个新的标准exe文件,然后调整表单大小。2、选择表单并在属性中设置font属性的值。 字体是田英章的笔触书,字体大小是1号。3、双击表单以编写代码,单击设置过程,对象为表单form1。4、接着输入代码内容:代码的内容是根据题目定义的。5、单击“开始”按钮进行编译和调试,并根据...
VB中出现以下错误怎么解决?我是初学者啊. 发现二义性的名称:command1_c...
你的问题有两个 1、Command1_Click()和Command1_Click(index As Integer)是同一个事件,VB是事件型,要放弃过去代码驱动的思维。你可以将这两部分代码合并,并且辅以条件或选择性分支语句。2、你在前五行的代码中犯了一个错误 Private Sub Command1_Click()Dim num1, num2 As Single 'num1,n...
VB反复使用一段代码,如何处理简单
Public Function FunctionName() 'Public根据情况而定,可写为Private '这里写要反复使用的代码 End Function 或 Public Sub FunctionName()'这里写要反复使用的代码 End Sub 【例】假如求和的代码要反复用 Rem 定义函数 Public Function QiuHe(Number1 As Integer, Number2 As Integer) As Integer Qi...
请问vb中写一段代码,判断输入text的值是否为空,怎么写
方法1:if Text1.Text="" then MsgBox "内容为空"方法2:if Len(Text1.Text)=0 then MsgBox "内容为空"
哪位大侠帮忙编一下图片下这段代码,VB的,谢谢了!
自己完全一点都不会吗 如果是这样做这个还有什么意义 最好是把你不会的地方列出来 然后别人可以给你指点 --- ps:就是在确定按钮的click事件里比较输入密码是否和数据库是否一样就可以了 你是不会连数据库 还是不会查询?Open 和 Close 方法范例 (VB)本范例在已打开的 Recordset 和 Connection ...
请人解说一下这段VB代码,我新手,30分哦!!
1、SelCount是选中的个数,Selected(X)=True是某一项是否被选中 While LstLeft.SelCount > 0意思是LstLeft选中的个数大于0则开始循环 至于是用SelCount还是Selected(X)要根据实际需要决定 2、用两个循环嵌套,保证LstLeft中每一个被选中的都移动到LstRight中,Exit For的作用就是每删除一项就再从头检查...
帮忙翻译下 这段vb 代码详细点 谢谢···
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)'把表格的第1列和第8列的值赋给变量 book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)End Sub Private Sub Form_Load()Dim rs_...
VB高手帮忙翻译一段代码,谢谢啦!
这是一个注册用户的VB小程序。 很简单的。我都不知道该怎么解释。Private Sub cmdOK_Click()Dim SQL As String Dim rs As ADODB.Recordset ’以下是判断输入的用户名是否为空,是的话就弹出只有确定的警告窗口。If Trim(UserName.Text) = "" Then MsgBox "请输入用户名称!", vbOKOnly + vbExc...
这段代码VB中系统老是自己擅自在print中给i的前面自动加空格,我删了...
这是VB系统输出数字时的格式。前面有一个符号位(正数就是空格),后面再自动加一个空格。 要想没有空格,可以采用字符串形式。下面已经改好了:Private Sub Form_Click()Dim i%, n&, e!i = 1 n = 1 e = 1 Print "e=1";Do While 1 \/ n >= 0.00001 'e=1+1\/1!+1\/2!+...i...
墨殃银翘: 根据提示,然后到网上去找答案.你把If (GetAsyncKeyState(vbKeyF1) And > 0 Then 改成If GetAsyncKeyState vbKeyF1 And > 0 Then 其它的也这样改,试试...
姚安县17084839118: VB程序改错题,求教 - ?
墨殃银翘: Private Sub Command1_Click() Const pi = 3.14 If Text1.Text <> "" Then r = Val(Text1.Text) If r = Val(Text1.Text) Then s = pi * r * r Label3.Caption = s Else MsgBox "输入的不是数据,请重新输入!" Text1.SetFocus End If End If End Sub Private Sub Command2_Click() End End Sub
姚安县17084839118: vb程序纠错 - ?
墨殃银翘: 1、你需要引用“Microsoft Scripting Runtime”2、“open soler for” 变量名错了3、solver使用前应该赋值
姚安县17084839118: 急!!求改一段VB代码...不知道哪里错了 - ?
墨殃银翘: 'Sheets(b).Range("A24:S24").Select'改成下面代码就可以 Sheets(b).Activate ActiveSheet.Range("A24:S24").Select
姚安县17084839118: VB 代码纠错 我的数据库 是以windows用户登录 uid 和 pwd 填什么 还有server 是填 local吗 - ?
墨殃银翘: 没有问题,填上你自己的信息就可以了,“你的数据库服务器名”填你电脑的ip或名称,如果数据库在本机,填“(local)”--引号内的内容,用户sa一般都有,密码一般是空的(如果你没改过) ConStr = "driver=sql server;server=你的数据库服务器名;uid=sa;pwd=你的密码;database=你的数据库名;" 写成: ConStr = "driver=sql server;server=(local);uid=sa;pwd=;database=你的数据库名;"
姚安县17084839118: 一段VB代码加入错误处理 - ?
墨殃银翘: Dim StoreString As String '用来储存字符串 Private Sub Command1_Click() If Command1.Caption = "清除" Then if text1.text <> "" then StoreString = Text1.Text Text1.Text = "" '清除 Command1.Caption = "复原" else Text1.Text = Inputbox("请输入文字") end if Else Text1.Text = StoreString Command1.Caption = "清除" End If End Sub
姚安县17084839118: vb编程,任意输入3个整数,按照由小到大排序输出.(代码纠错) - ?
墨殃银翘: 你原来的代码存在三个方面的错误:1、“当前范围内的声明重复”这实际上是由于“先使用变量后声明”造成的.先使用如: a = Text1.Text ,这时候VB自动认为你定义了a为字符串变量.所以,当你进行声明 Dim a, b, c As Integer 的时候,就...
姚安县17084839118: 一道简单的VB求解一元二次方程代码,求验证对误?
墨殃银翘: 似乎存在一些问题: 这道题中 t = sqr(b^2-4*a*c) 已经是>=0的数了,因为如果一个数是负数的话就会出错 还有将(-b+t)/2*a ,这里的2*a要加上括号才可以,同时要保证方程是一元二次方程,a要不等于0 vb精简版的功能没有完全版的多,但是大部分功能还是包含其中的,其功能还是很强大的 只要不涉及太复杂的部件以及类,不会有出现太大的缺陷
姚安县17084839118: VB溢出错误,求代码修改. - ?
墨殃银翘: TmpIndex是Integer型,范围是-32768到32767,如果出现“溢出”错误,那就表示TmpIndex的值超出这个范围了.如果是运行多次后才出错,那么最大的可能就是在每次运行时没有把TmpIndex清零,这样累积多次后就超出范围了.如果不是这个问题,那么可以把它改为Long型(最大值可以达21亿多)再试试.
姚安县17084839118: vb程序改错 求解一元二次方程(ax^2+bx+c=0)的程序 - ?
墨殃银翘: 两处错误,第一个,没有赋值过程 ,应该改为:a=InputBox ("a=") b=InputBox ("b=") c=InputBox ("c=") 第二个:x1 = (-b - d) / (2 * a)应该是 x2 = (-b - d) / (2 * a) 另外d有开方过程 ,最好设为 double而不是 integer 最好再加个判断判别式的过...