关于VB的问题 [问题点数:20分]

Bbs1
本版专家分:0
结帖率 0%
Bbs5
本版专家分:4539
Blank
红花 2015年7月 Windows专区大版内专家分月排行榜第一
Bbs9
本版专家分:69536
版主
关于VB变量问题
小弟在使用VB6.0连接SQL数据库是出现以下<em>问题</em>,请各位大侠指教,先上代码rn1.启动窗体代码rnOption ExplicitrnPublic ddf As StringrnPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongrnrnPrivate Sub Form_Load()rnDim A As Longrn Dim Host_in As String * 20rn Dim Data_in As String * 10rn Dim User_in As String * 10rn Dim Pass_in As String * 10rn Dim ddf As String * 200rn ''读取信息rn Host_in = Space$(20) ''事先定义读取值的字串宽度rn Data_in = Space$(10)rn User_in = Space$(10)rn Pass_in = Space$(10)rn ''读取ABC.INI文件中TIP字段中START的值并打印出来rn ''当函数返回值为0时说明读取数据出错rn A = GetPrivateProfileString("DATASERVER", "HOST", "", Host_in, 20, App.Path & "\Server.ini")rn A = GetPrivateProfileString("DATASERVER", "DATA", "", Data_in, 10, App.Path & "\Server.ini")rn A = GetPrivateProfileString("DATASERVER", "USER", "", User_in, 10, App.Path & "\Server.ini")rn A = GetPrivateProfileString("DATASERVER", "PASS", "", Pass_in, 10, App.Path & "\Server.ini")rn If A = 0 Then MsgBox "找不到所需字段,请检查INI文件设置。"rnddf = "driver=sql server;server=" & Host_in & ";uid=" &User_in& ";pwd=" & Pass_in & ";Database=" & Data_in & ""rnend subrn rn2.标准模块代码rnrnPublic conn As ADODB.ConnectionrnPublic rs As ADODB.RecordsetrnFunction con()rnconn.Open ddfrnconn.ConnectionTimeout = 10rnrs.CursorLocation = adUseClientrnEnd Functionrnrn<em>问题</em>来了:rn1.全局变量ddf的计算结果driver=sql server;server=192.168.154.128 但是把变量赋值给文本框后代码换成ddf = "driver=sql server;server=" & textServer.Text & ";uid=" & textUID.Text & ";pwd=" & textPWD.Text & ";Database=" & textDatabase.Text & ""rn后结果正常,不明白是何原因?rn2.模块中conn.Open ddf变量DDF提示溢出上下文是为何?rnrnrnrnrnrn
关于VB的很简单的问题
想在工程中使用代码连接ODBC,应该怎么写?在工程中还要设置什么?rn注:windows 2000系统。
关于VB打包的问题
我在写一个程序时调用了access数据库,并且把这个应用程序放在了工程相对的路径下面,请问我在打包时应该如何创建一个文件夹来存放该数据库文件呢?
关于VB的两个问题
请问一下,rn rn有谁能用最短的代码来 修改 一个文件的属性?????rnrn要越短越好,或者有哪个函数可以用rnrnrn还有就是我想问下 ,我想用一个量来代替rnText1.Text&"\"&"xxsb.txt" ,Text1.Text是用户输入的盘符,rn那么 这个变量应该 设置成什么类型的 呢?????? string 吗???还是什么????rnrn谢谢
一个关于VB的问题
DateDiff("d", CDate(2008 - 9 - 22), CDate(1988 - 2 - 1)) rnrn那个"d"是什么意思? rn还有就是为什么这个的值是8啊?
关于VB自定义函数的问题
小的不才,刚学VB不久,现在想自定义一个函数,在调用这个函数时,弹出另一个窗口,请问这个函数应该如何编写,这个程序很简单的,请会的高手指点下,定重谢!rn
关于VB关键字的问题?????????????????????
引用 Microsoft DAO 3.6 Object LibraryrnDim rs As New Recordset '定义rsrn目的: 使用此关键字 比如 rs.open (open就有此关键字)rn比如想使用 .NoMatch 就无法使用,程序运行说 编译错误,未找到方法或编译成员, 但用 对象浏览器 搜索 在 Microsoft DAO 3.6 Object Libraryrn中就有此成员,为什么还不能用呢,请高手指教,语言可能不通,请大家见谅。rn
关于VB书籍的问题
本人初学VB,请高手推荐几本VB书,不深感激!!!
关于VB的打印问题
请问对于VB报表的打印有什么更好的方法么 当然是除了print方法和datareport方法了rn对于datareport有什么好的程序事例么 很需要的说呢 如何动态的选择要打印的字段呢?rn对于很多字段的打印如何处理呢对于过长字段的处理又是怎样的呢 很茫然的说!!
关于VB的小小问题
在文本框中按鼠标右键,会出现一个菜单,如何隐藏掉这个菜单呢?请指教!谢谢!
关于VB DataGrid 问题
在datagrid控件上直接录入数据时,我想按回车键,焦点自动到下一列,当超过datagrid的列时行自动加一行,焦点在第一列。我写了一段代码如下:rnrn If KeyAscii = 13 Then DataGrid1.Col = DataGrid1.Col + 1rn rn If DataGrid1.Col >= DataGrid1.Columns.Count - 1 And rn (KeyAscii = 13 Or KeyAscii = 9) Thenrn DataGrid1.Row = DataGrid1.Row + 1rn DataGrid1.Col = 0rn End Ifrn焦点自动能到下一列,但录入的数据也跟着到下一列,而且到下一行时焦点不在第一列。rn rnrn请问哪未高手能帮我?
VB关于网络编程的问题
现在有个<em>问题</em>是这样的,现在有个网页是一个表格填写的页面,点击确定后提交表格,现在我要完成的是,用VB做一个提交程序,也就是说表格填写是用VB程序做的,后台数据处理还是有PHP来完成,该如何下手,请大侠赐教。
关于VB的无脑问题
各位高手门,我辛辛苦苦地用VB做了几个可执行文件。却在重装系统之后全都不能用,听说是缺少了几个交换文件,可我不知道VB涉及到哪几个DLL,请各位高手指点迷津。顺便也告诉我VFP需要哪几个。
关于vb读文件的问题
--------------------------------------------rn | REC-NO | RMB | USD |rn |----------|---------------|---------------|rn | 101791 | 31,680,305,107| 3,831,006,749|rn --------------------------------------------rnrn这样一个文件怎样能比较方便的分别读出三个数值rn请诸位多帮忙呀rnrn
关于vb报表的问题
请问如何将图片放入报表中来打印?我不知道为什么无法把图片放入datareport的image控件中,望高手指教!
关于 vb 控件的问题。。。。....
请问,我怎样不要用控件数组,而用代码实现对我当前 form 内的所有 textbox 进行同时操作。 rn 好象是这样的,但还有些错误。 rnrn dim text_box as object rnrn for each text_box in form1.controls rn text_box.text="hello" rn next rnrn 这样,就可对当前 form1内的所有 textbox 进行付值。但上面的代码还有些<em>问题</em>!因为,form1.controls 它会将 form1 内的所有控件得到,如 checkbox,button 等。 rn所以,好象在上面定义中,应将 text_box 定义为 textbox 控件。 rn 不知怎样定义,望赐教
关于vb发布问题
1。请问<em>vb</em>得发布向导怎么用,用发布向导做好后的文件放在那个文件夹下呀?rnrn 2。 请问<em>vb</em>运行没有运行库可以吗? rnrn 3。 我做了一个程序,想在网上发布,不知道如何连运行库一起打包?
关于VB的计时器问题
我写了一个计时器,目的让他每隔一秒显示一次时间,一共显示3次rnrnPrivate Sub Form_Load()rnTimer1.Interval = 1000rnTimer1.Enabled = FalsernaaarnEnd SubrnrnrnPrivate Sub aaa()rnDim i As Integerrnrnrn rnFor i = 1 To 3rnrn If i = 1 Thenrn Form1.Timer1.Enabled = Truernrn End Ifrn If i = 2 Thenrn Form1.Timer1.Enabled = Truern End Ifrn If i = 3 Thenrn Form1.Timer1.Enabled = Truern End IfrnNext irn rnEnd SubrnrnrnPrivate Sub Timer1_Timer()rnrn Text1.Text = Time()rnrnTimer1.Enabled = FalsernEnd Subrnrn可是他只显示了最后一次的时间,而前两次并没有时间间隔,请高人指点rn
关于VB程序的问题.......
本人写了个简单的聊天工具,在win2000用<em>vb</em>6.0写的,到个别xp机器运行时候,出现:rnComponent 'MSWINSCK.OCK' or one of its dependencies not correctly registered:a files is missingrnrn错误~有的机器没有有的就发生,而且都是在XP机器上,请问这是为什么,怎么解决?rn
关于vb的怪问题
我电脑上的<em>vb</em>一直用着很正常,今天突然变样了,没有框架,后面的桌面可以透过来,窗体最大化以后占满整个屏幕,就好像不是MDI窗体而变成普通窗体一样,这是什么原因,看起来好难受。有没有办法变回去?
关于VB发布的问题
大家好。rn<em>关于</em>VB6程序发布,我有以下<em>问题</em>:rnrn第一、我用VB6在WIndows2000上编写一个程序,没有使用附带的OCX,而把EXE文件拷贝到WindowsXP上运行,结果出现数组越界的错误。rnrn第二、我在中文Windows2000上编译的VB6程序,拿到日文Windows2000上为什么出现数组越界的错误?中文Windows2000跟日文Windows20000都安装了VB6编程环境。rnrn第三、为什么VB安装版程序安装以后,把我机器上原来的VB运行库给覆盖了,能不能不覆盖呢?(别人的安装程序)rnrn第四、怎么做才能让VB程序安装到其他机器上能够正常运行,就象那些Delphi和C语言编译的程序一样?
关于vb数据库的问题
问1:在<em>vb</em>的数据库操作中,我的adodc控件的connectionstring属性使用了字符串rn连接:rnProvider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Desktop\系统\qiye.mdb;Persist Security Info=Falsern其中的数据库文件名为一绝对路径,当我把此程序拿到不同的路径时就得修改,rn我能不能在这里用相对路径?用app.path,我怎么加不上?rn问2:<em>vb</em>6中的listview控件可以显示数据库中的数据,能不能显示数据库中的图形字段?是不是还要借助于imagelist控件?还是不能显示。rn
关于VB的三个问题!!!
<em>问题</em>一、怎样在SQL语句中使用变量rn我用dataenvironment1作了一个command1其中SQL语句为:rnSELECT Counter.Code, SUM(CounterDayReport.Value18) AS 零售数, rn SUM(CounterDayReport.Value19) AS 零售额, SUM(CounterDayReport.Value22) rn AS 零售退货数, SUM(CounterDayReport.Value23) AS 零售退货额, rn SUM(CounterDayReport.Value26) AS 零售优惠金额, rn SUM(CounterDayReport.Value19 - CounterDayReport.Value23) AS 实际销售金额, rn Counter.NamernFROM Counter INNER JOINrn CounterDayReport ON Counter.Code = CounterDayReport.CounterCodernINTO 当前运行程序的目录\表名rnWHERE (CONVERT(char, CounterDayReport.Date, 102) = ?)rnGROUP BY Counter.Code, Counter.NamernORDER BY Counter.Codern*****************************rn我希望INTO新增的表,为“当前运行程序的目录\表名”rn我知道用APP.PATH但怎样在DATAENVIRONMENT中的SQL语句中用变量?请各位大虾指点。请举例!!!rnrn<em>问题</em>二、我怎样使用控件DATAGRID来显示表。rn我用程序命令连接数据库:rnDim conn As New ADODB.ConnectionrnDim rs As New ADODB.RecordsetrnDim cmd As New ADODB.CommandrnDim ConnStr As Stringrn ConnStr = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=KingTCS;Data Source=wingon"rn conn.Open ConnStrrn rn Rem rs.CursorLocation = adUseClientrn rs.CursorLocation = adUseServerrn rs.Open "Select * From Stock", conn, adOpenDynamic, adLockPessimisticrn************************************************************rn我怎样使用控件DATAGRID来显示表。rnDATAGRID1.DATASOURCE=填写ADODC1的什麽名?rnrnrn<em>问题</em>三、一些VFP命令语句相对VB命令语句?rn我原使用VFP编程 ,现对如下命令在VB用什麽名令不清楚,请告知?rn 用途 VFP命令语句 VB命令语句rn在当前记录插入一条空记录 INSERT BEFORE BLANK ?rn更改/添加/删除 字段/字段属性 ALTER TABLE ADD ?rnrn
关于VB的ToolTipText的问题?
如何让这个ToolTipText能够显示换行的文本????
关于vb定时的问题
请问各位大侠如何在<em>vb</em>中实现1ms精度的定时?
VB关于html问题
请问如何判断一封html各式的邮件里面使用html的比例?也就是说除了文字rn谢谢
关于VB入门的问题
大家好,我是VB的初学者,我想请问一下,如果实现大量数据的录入,就是象电子表格那种录入法。谢谢
关于VB的焦点问题!
当打开一个窗体时,怎么把一个textbox设置为焦点?谢谢!急
关于VB语言开发的问题
小弟我11年毕业,工作半年多,在血汗工厂从事自动化测试软件方面的编程,使用的工具是Visual Basic 6.0,最近小弟我偶遇困惑:放眼整个软件行业VB使用是越来越少了,到处讨论的焦点也是C, C#,ASP.Net,J2EE,C++......再看招聘网站上,貌似很难再在显眼的位置见到Visual Basic 的身影,那使用Visual Basic 还有前途吗?小弟还要不要坚持下去......望各位指点迷津!
关于VB数据库访问的问题
各位高手,我做的程序在我的电脑调试、编译连接数据库一切都正常,放到别人的电脑上再下面的OpenRecoset(rs, strSQL)时候会提示 "承建单位站前ID" 字段无效,我把sql语句改为"select * from AAA where BBB=CCC",那么就会提示 字段 BBB 无效 ,而这一切在我的电脑上都没有错误提示,编译成exe文件到别人的电脑上也会提示这样的错误,我和别人的VB是同一张盘上的,我的2000server系统里也没有装特殊的东西就是打全了所有的系统补丁,装了sql server个人版 office2003 ,,程序连接数据库是sql2000在另外一台电脑上,数据库结构和数据和程序里面的sql语句因该没有错误,因为在我自己电脑上一切操作都正常,谁能告诉我是那方面的原因呀rnrnrnPrivate Sub Form_Load()rn Dim i As Integerrn Dim strSQL As Stringrn Dim rs As New ADODB.Recordsetrn Dim lngRecoCounts As Longrn rn LblProject.Caption = frmProgressRailwayNamern Me.Caption = frmProgressCaptionrn rn 'rn strSQL = "Select * From 正线轨道,承建单位,监理单位 where 正线轨道.名称='" & frmProgressRailwayName & "'" _rn & " and 正线轨道.承建单位站前ID=承建单位.ID and 正线轨道.监理单位ID=监理单位.ID"rn rn If frmProgressofRailway = True Then strSQL = "select * from 正线轨道属性" '如果标记为真,统计正线轨道的进度信息rn rn rn Call OpenRecoset(rs, strSQL)rn rn If GetRecordCount(rs) < 1 Then rs.Close: Exit Subrn rn With rsrn RailwayBeginDate = !计划开工日期rn RailwayFinishdate = !计划竣工日期rn LenofRailway = !正线铺轨rn rn For i = 0 To .Fields.Count - 1rn If Right(.Fields(i).Name, 2) <> "ID" Thenrn txtInfo = txtInfo & .Fields(i).Name & ":" & .Fields(i).Value & <em>vb</em>CrLfrn End Ifrn Nextrn End Withrn rs.Closern ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''rnend subrn' 集中打开数据库的记录,以便集中处理连接断开错误rnPublic Function OpenRecoset(ByRef RecSet As ADODB.Recordset, ByVal strSQL As String, _rn Optional ByRef CursorType As ADODB.CursorTypeEnum = adOpenForwardOnly, _rn Optional ByRef LockType As ADODB.LockTypeEnum = adLockReadOnly, _rn Optional ByVal cmdType As Long = adCmdText) As Booleanrnrn On Error GoTo ErrHandlerrn Set RecSet.ActiveConnection = GetConnection()rn RecSet.CursorLocation = adUseClientrn RecSet.CursorType = CursorTypern RecSet.LockType = LockTypernrn RecSet.Open strSQL, , , , cmdTypern OpenRecoset = Truern Exit FunctionrnErrHandler:rn Call ReportErrorrn OpenRecoset = FalsernEnd Functionrn
关于VB编辑的问题
我做了一系统,约7M,编译成EXE时,速度很慢,然后出现虚拟内存不足的错误(机器内存128M)请高手指点一下.
关于VB连接数据库的问题
我正在做一本VB程序,有两个画面,用的是同一个Oracle9i 数据库,每个画面在Form_Load的时候各自连接数据库。我在第一本程序中打开事务,检索数据,采用了For Update NoWait 将数据锁定,在没有提交事件或回滚的情况下,第二本程序如果提交了事务,就将第一本程序锁定的数据给解锁了,这到底是怎么回事,有办法解决吗。两个连接用的都是相同的连接字符串
关于vb数据库的问题!!
如何使窗体内数据显示控件的大小随着窗体的大小的改变而改变(如:mshflexgrid控件)。rn
关于vb一个问题
请问一下怎么进行图片的灰度变换?rn用rgb()和qbcolor()都是彩色的呀
关于vb程序运行的问题
我用<em>vb</em>6.0写的程序在另一台机子(WIN98)的运行时,都提示“未预期错误",这所以什么原因啊?谢谢
关于VB系统的问题
1)我的VB系统在显示中文时经常出现乱码,听说有补丁,请问那里能找到?rn2)当VB系统新建保存或新打开一个程序时,回出现“source code control"窗口,显示”Add this project to sourcesafe?",请问这个窗口有什么用?
关于VB,控件的问题
打开.exe,先是 错误代码‘429’,ActiveX部件不能创建对象rn搞了半天rnrn运行.frm 又出现用户定义类型未定义; rnrn.log里都是 如 :rn 行 38: 控件 cToolbar1 的类 <em>vb</em>alTBar6.cToolbar 不是一个已加载的控件类rn的东西;不知如何丝毫,请高手 给予解答,先谢了
关于VB的打包问题!!!
VB的打包工具实在有点令人不敢恭唯,几百K的东西剧增至几M.请问各位大侠小虾们有什么好方法可以改变这一缺陷。
VB 关于SQL的问题
Private Sub Command1_Click()rn Dim con As New ADODB.Connectionrn Dim rs As New ADODB.Recordsetrn Dim sqlstr As Stringrn con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=理发店管理系统;Data Source=PC2010070211VBM"rn If con.State = 1 Thenrn MsgBox "数据库连接成功"rn Elsern MsgBox "数据库连接失败"rn Exit Subrn End Ifrn sqlstr = " select * from 用户信息表 where 用户名称 = ' " & Text1.Text & " ' "rn rs.CursorLocation = adUseClientrn rs.Open sqlstr, con, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集rn MsgBox rs.RecordCountrn If rs.BOF Thenrn MsgBox "登录失败"rn Text1.Text = ""rn Text2.Text = ""rn Text1.SetFocusrn Elsern MsgBox "登录成功", <em>vb</em>Information, "系统提示"rn form2.Hidern MDIForm1.Showrn End IfrnEnd Subrnrn程序如上,登录的时候也显示数据库连接成功,想对应的表中也有2组数据,但是用rs.recount 查询的时候却显示数据个数为0 这是为什么呢?rnrn连接数据库的那串代码是用 adodc属性页中的连接字符串做的。rnrn哪位大侠帮忙看下原因出在哪了,谢谢了。rn
关于VB的TEXT问题
我输入了rnrnrnrnrnrnrnPrivate Sub Command1_Click()rnDim a As IntegerrnIf Text2.Text > "1000" ThenrnText2.SetFocusrnText2.Text = ""rnRandomizernSelect Case 1rnCase 1rnLabel1.Caption = "简单难度"rnEnd SelectrnElsernIf Text2.Text > "300" ThenrnSelect Case 1rnCase 1rnLabel1.Caption = "普通难度"rnEnd SelectrnElsernLabel1.Caption = "困难难度"rnEnd IfrnEnd IfrnIf Len(Text2) > 4 ThenrnMsgBox "不必这么慢吧?"rnEnd IfrnIf Len(Text2) < 2 ThenrnMsgBox "太快了,把速度调慢点吧。"rnEnd IfrnEnd Subrnrnrnrnrnrnrnrnrnrnrn然后在TEXT2中输入 200却提示说简单难度rnrn再有就是输入10它不提示说"太快了" 请问高手如何解决?
关于vb的mdi问题
请教一个<em>问题</em>,如何在MDIform中使一个窗口在运行时位于屏幕的中央?(属性里无法改变其值)谢谢!
关于 vb 控件的问题。。。。
请问,我怎样不要用控件数组,而用代码实现对我当前 form 内的所有 textbox 进行同时操作。rn 好象是这样的,但还有些错误。rnrn dim text_box as objectrnrn for each text_box in form1.controlsrn text_box.text="hello"rn nextrnrn 这样,就可对当前 form1内的所有 textbox 进行付值。但上面的代码还有些<em>问题</em>!因为,form1.controls 它会将 form1 内的所有控件得到,如 checkbox,button 等。rn所以,好象在上面定义中,应将 text_box 定义为 textbox 控件。rn 不知怎样定义,望赐教rn
关于VB和DBF文件的问题
用VB实现将一个TXT文件转换成DBF文件。 rnTXT文件只带数据项,其中的数据用“,”分开。 rn在VF中要实现上面的方法很简单,但VB中呢,还要高ADO吗,这样子不是很麻烦呢,有更简单的方法吗?
关于VB画图的问题
我想请问一下,如何在Visual Basic中通过picture空间进行画图,我所要实现的效果是点击按钮弹出新窗口进行画图,当不点击时,新窗口是不显示出来的,希望有高手指点了!
关于VB网络编程的问题
请问各位高手:怎样用VB编写出网络映射的程序?我的意思是说能够把某FTP站点映射成本地机上的一个网络硬盘,并且在本地机上能够显示出网络硬盘的图标和盘符.映射成硬盘后,能够把FTP站点的所有或某文件夹里的内容显示出来.我说的意思是显示出来,不是下载下来.然后点击某文件后(比如图片或程序)能够显示图片或在本地机运行FTP服务器里的程序.请各位VB高手帮帮忙!请直接告诉我这个VB映射程序的源码,谢谢!我用的是VB6SP6.
关于vb问题 急需解决!!!!!!
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickrnrn If IsNumeric(TextBox2.Text) = False Thenrn MsgBox("请输入数字")rn ' TextBox2.Text = ""rn Me.TextBox2.Focus()rn##############################################################rn End Ifrn If 98 < TextBox2.Text And 100 > TextBox2.Text Thenrn TextBox1.Text = TextBox2.Textrn Else : TextBox1.Text = "不符合要求"rnrn End Ifrnrnrn End Subrn我写了一个简单的<em>vb</em>程序,点击button2判断textbox2上输入的东东,进行判断之后textbox1上显示结果的程序,我的<em>问题</em>是rn假如我在textbox2上输入的是英文字母 IsNumeric(###上面)进行判断之后 焦点返回textbox2并textbox2显示为空,等待重新输入,但是 发现程序到###下面的部分报错,,,我不知道怎么解决请高手指点。
关于VB打印的问题
我用DATA REPORT 打印一张表,老提示报表的宽度大于纸的宽度,我设置成A2横向都没用,怪也???是我设置出错,还是这个控件要设置属性???
关于VB菜单的问题
各位网友你们好,请问大家一个有关VB菜单的<em>问题</em>,我记得我在使用VC做菜单的时候,它是可以做分割线的,把不同组的菜单分割开,可是在VB中我却怎么也没有找到它,我曾经用过画横线来代替,但是那实在太难看了,所以希各位网友们能告诉我VB如何来做这个分割线,或者有什么其它的好的方法来实现它,如果哪位网友能帮我解决这个<em>问题</em>,我将万分的感谢他!!!
关于VB和SQL2000的问题
刚学VB与SQL,找了一个小程序,这样说:将后缀.sql的文件打开后,拷贝到SQL Server 2000的查询分析器里。然后执行将产生需要的数据库结构。rn我的服务器是SQL7,那么怎么样操作步骤才能正确的运行起来呢?请各位帮帮呀!
vb关于复制文件的问题
比如说,在D\Program Files\AlbumKingJR\database目录下rn有database.mdb文件,rn有PHP.xml文件,rn还有一个PIC文件夹,rnPIC文件夹里有F1.JPG文件.rn现在界面里有一个文本框和按钮rnrn文本框是接收要指定的地址,比如我指定到F:\data目录下rnrn怎样可以在按钮一点就可以根据指定好的(F:\data目录)把上面(D:\Work目录下)的所有内容按照原样拷贝到指定的新建目录下呢rnrnPrivate Sub cmdEndFunc_Click()rnOn Error GoTo ErrorTraprn Dim path As Stringrn path = "D\Program Files\AlbumKingJR\database\"rn DATAPATH=“F:\data”rn '下面拷贝不能靠也不抱错直接跳出到[color=#FF0000]ErrorTrap:[/color]rn FileCopy path & database.mdb, DATAPATH & database.mdbrn Exit Functionrn rn [color=#FF0000]ErrorTrap:[/color]rnrn '还有就是剩下的文件如何写还有文件夹下的文件等用代码如何去下呢rnEnd Subrn谢谢,主要效果就是在单击按钮后把目录下的内容都靠到另外的指定目录下就可以了
关于VB Menu的问题?
就是能单击按钮,将所有<em>vb</em> menu包括子菜单在内,一次性全部存入数据库,如何实现啊?
关于VB的基础问题
在VB中,没有指针的概念,那么在VB中怎么实现连表结构,和函数的多值返回那?
关于ACCESS2000和vb问题!!!
ACCESS2000总是提示用<em>vb</em>中的外接程序的可视化程序管理器建的mdb库版本太旧,rn但是转化为新版本后,在<em>vb</em>中又不认,这是怎么回事?rn
vb 关于字符串的问题
a="123456789" rn求f=? rn求字符串的最后一个字符,最后f=9 rn该如何写
关于VB控件的问题
用的是VB6.0,别人的程序,运行时老是提示“变量未定义”,是一个叫sprPlotr的变量,应该是一个控件对象,怎么样才能找到这个控件啊(窗口和控件都很多,找不到)
关于vb编程的问题
Option Base 1rnDim b(1000) As DoublernrnPrivate Sub Form_Click()rni = 1rns = 0rnrnOpen "da1.dat" For Input As #1rnrnDo While Not EOF(1)rn Input #1, a, b(i)rn s = s + b(i)rn i = i + 1rnLooprnClose #1rnrnk = i - 1 rnv = s / krnrnFor i = k To 2 Step -1 rn For j = 1 To i - 1rn If b(j) > b(j + 1) Thenrn t = b(j)rn b(j) = b(j + 1)rn b(j + 1) = trn End Ifrn Next jrnNext irnrns1 = 0rnFor i = 1 To 20rns1 = s1 + b(i)rnNext irnv1 = s1 / 20rnrnOpen "t2.txt" For Output As #2rnPrint #2, v, v1rnClose #2rnrnPrint "v="; v, "v1="; v1rnEnd Subrnrn请问哪个高手告诉我 这个程序里面的 step -1 是什么意思 谢谢!!!rn
关于VB颜色的问题
在VB中调整窗体颜色很难,只能在属性中调用出几个很少的颜色!请问有什么办法能让VB调用出很多色彩来吗?像WINDOWS内建色盒一样?
关于VB下载的问题
[code=VB]rnPrivate Sub Form_Load()rnsavefile.Text = "http://ip.xxx.com/xxxx/Server.zip" 'App.PathrnStartDownLoad savefilernEnd SubrnrnPrivate Sub StartDownLoad(ByVal Geturl As String)rnDim spo%, filename$rnDim fso, frnSet fso = CreateObject("Scripting.FileSystemObject")rnsavefile.Text = App.Path & "\Server.exe"rnInet1.Execute Geturl, "get" '开始下载rnEnd SubrnrnPrivate Sub Inet1_StateChanged(ByVal State As Integer)rn 'State = 12 时,用 GetChunk 方法检索服务器的响应。rn Dim vtData() As Bytern Select Case Statern '...没有列举其它情况。rn Case icError '11rn '出现错误时,返回 ResponseCode 和 ResponseInfo。rn vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInforn Case icResponseCompleted ' 12rn Dim bDone As Boolean: bDone = Falsern '取得第一个块。rn vtData() = Inet1.GetChunk(1024, 1)rn DoEventsrn Open savefile.Text For Binary Access Write As #1 '设置保存路径文件后开始保存rn '获取下载文件长度rn If Len(Inet1.GetHeader("Content-Length")) > 0 Then ProgressBar1.Max = CLng(Inet1.GetHeader("Content-Length"))rn rn '循环分块下载rn Do While Not bDonern Put #1, Loc(1) + 1, vtData()rn vtData() = Inet1.GetChunk(1024, 1)rn DoEventsrn ProgressBar1.Value = Loc(1) '设置进度条长度rn If Loc(1) >= ProgressBar1.Max Then bDone = Truern Looprn rn Close #1rn Form3.Hidern Me.Hidern Login.Showrn End Selectrn rnEnd Subrn'我从网上下载一个文件,同时显示进度条。rn'有个<em>问题</em>:有些人打开的时候,卡在进度条开始的地方。一点反应也没有。。rn'我的电脑也出现过,一直找不到什么原因,后来不知道怎么弄的又好了。。。rn[/code]
关于二进制的问题(VB)
把十进制的数字转化为二进制的形式写入文件---用UE查看时显示为01代码! 谢谢
关于VB数组的问题
Public Type TMaprn cnt(1 To 5) As DoublernEnd TypernrnPublic Declare Function GT_MapAxis Lib "gt400.dll" (ByVal axis As Integer, map As TMap) As rnrnIntegerrn~~~~~~~~模块中的大量声明~~~~rn~~~~~~~~~~rn~~~~~省略~~~rnrnrn——————————————————————————————————rnrnrn案例中使用 VC++6.0rnrnrnvoid main()rnrnshort rtn;rnGTInitial();rnInputCfg();rnAxisInitial();rndouble cnt1[5]=2000,0,0,0,0; /* 根据系统设置坐标映射数组 */rndouble cnt2[5]=0,2000,0,0,0; /*根据系统设置坐标映射数组 */rndouble cnt3[5]=0,0,2000,0,0; /* 根据系统设置坐标映射数组 */rndouble cnt4[5]=0,0,0,2000,0; /* 根据系统设置坐标映射数组 */rnrtn=GT_MapAxis(1,cnt1); error(rtn); /* 映射第1 轴到X 轴 */rnrtn=GT_MapAxis(2,cnt2); error(rtn); /* 映射第2 轴到Y 轴 */rnrtn=GT_MapAxis(3,cnt3); error(rtn); /* 映射第3 轴到Z 轴 */rnrtn=GT_MapAxis(4,cnt4); error(rtn); /* 映射第4 轴到A 轴 */ rnrnrn——————————————————————————————————————————rnrn我自己在VB 6.0中编译 (选1轴翻译先)rnPrivate Sub Command1_Click(Index As Integer)rnDim rtn As Integer rn Dim cnt1(5) As Double rn cnt1(0) = 2000 rn cnt1(1) = 0 rn cnt1(2) = 0 rn cnt1(3) = 0 rn cnt1(4) = 0 rn rtn = GT_MapAxis(1, cnt1) rnEnd Subrnrn然后保存为exe的时候,提示--编译错误:ByRef参数类型不符。光标指向rtn = GT_MapAxis(1, cnt1) 这rnrn句话的cnt1rnrnrn——————————————————————————————————————————rn所以,请教下老师,该怎么设定 数组 cnt1,cnt2,cnt3,cnt4 以及 cnt1(5),cnt2(5),cnt3rnrn(5),cnt4(5)的类型。rn也就是把上面的C++语言改成 VB语言 我整了一整晚了也没弄出来,要映射轴后画坐标系,是一个运动控制平台。
vb 关于统计问题
i = 0 rnFor it = 1 To MSFlexGrid1.Rows - 1 rnss = MSFlexGrid1.TextMatrix(it, 1) rni = i + UBound(Split(ss, "1")) rnMSFlexGrid1.TextMatrix(it, 3) = i rnNext rn现在单独统计单个数好使,但如果统计 rni= 0 rnFor it = 1 To MSFlexGrid1.Rows - 1 rnss = MSFlexGrid1.TextMatrix(it, 1) rni = i + UBound(Split(ss, "12")) rnMSFlexGrid1.TextMatrix(it, 3) = i rnNext rn如果像这样12的,它只能辨认像122,512,这样的,也就是1和2相连并且1在前面,但152,215,251这样的1和2不相连,有时顺序也不一样的却不能统计,我要的效果,也就是说只要ss当中的任何两个数和12相同就算一次,这样该如何改呢
关于vb的logo的问题
我现在已经生成了exe文件了,如何将让它显示我自己的logo呢rn?
关于webbrowser控件的问题(VB)
为什么我用webbrowser空间做浏览器核心的时候,浏览第一个网页还可以,但是只要点击的超链接是会弹出新页面的,就会以默认浏览器来打开那个链接。有没有解决方法?
关于VB运行库的问题
请问什么样的VB程序编译后需用运行库才能运行,什么样的可以不用?
vb基础问题 关于or
例如有个判断语句rnif a=0 or a=1 or a=2 …… or a=20 thenrn a=a+1rnenifrn上面那个条件 怎样简单写
关于vb的一个问题
使用Printer自动折行打印string,假设每行固定38个字,但实际上使用len()判断时rn程序将一个汉字和一个英文字母的长度都认为是1,这样一来,如果一句话中含有中文和英文字母的话,这一行每到最右它就换行了(38个字就换行),打印出来的文档rn很不美观,怎样解决这个<em>问题</em>呢?
关于VB外挂的问题
我的同学要我帮他做个游戏小工具,也陈不上外挂,就是在游戏有规律的模拟按下某个键,就是这样:按下THIFT键 4次后按下HOME键,再按下右方向键,这样循环下去》(那个游戏变态要重复操作所以....)我因为在他眼里是个程序爱好者,他就要求我,开始觉得听简单的,开始的时候我简单的实用SENDMESSAGE发现不行,后来看了那个一个钩子的简介教程,还是没看懂,以后我在努力看,但现在时间紧,各位认为我上面的那个功能实现的可能困难不?还有就是我要吧这个程序固定在一个进程上(就是吧程序切换出去后 工具任然起作用)这个功能是不是又加大难度了,不过我看到那个教程有个API可以实现这个的好像? 各位能帮我解解急吗?上面的功能 (不要那个固定进程也可以的.....)给分....
关于VB表格控件的问题
我现在想处理一个<em>问题</em>,就是在VB里面生成一个表格,有两列,第一列是序号1到100,第二列是00到99的随机排列数,有一个按钮,按一下就在一个表格里生成序号和随机排列数,请问各位大侠,用什么表格控件可以实现,最好能把操作步骤和代码写出来,万分感谢
关于vb打包的问题
我利用VB和SQL2000制作了一个软件。昨天采用打包和展开的向导顺利的把包成功了rn今天我把原先在SQL2000中的数据导入到了一个新建的数据库中,然后再进行打包就出现如下的错误提示:rn当生成压缩文件"人事管理系统.CAB"时发生错误,请检查您是否有何是的访问权限且目的地有足够的空间创建此文件rn我的硬盘有足够的空间,而且在不打包的情况下能顺利执行程序。我觉得可能是SQL中权限有<em>问题</em>,(我的ODBC也是从新配置的),请大家帮忙看看
关于VB安装向导的问题
我编的程序在用VB安装向导打包后,生成一个setup1.exe,一个cab文件,一个 lst文件,一个support文件夹,安装的时候到正要复制文件的时候弹出错误框,上面说“path or file not found"点确定后又说”找不到源文件……来安装“,有没有人碰到过这个<em>问题</em>啊???
关于Vb类型转换的问题
dim mydate as stringrnmydate=19830517 ‘19830517代表日期rnrndim mydatetime as stringrnmydatetime=198305170928 '日期+时间rnrnrn我想将mydate,mydatetime转换成日期时间类型.但是找不到相关函数。rn请求帮助。帮我这个菜鸟
关于VSS和vb问题
各位好:,我装了<em>vb</em>6和VSS,为什么在VB中没有vss的菜单呢,就是CHECKIN/OUT等rnrn在win2000上是正常的,,在98就会有这个<em>问题</em>
关于VB的控件问题
各位高手,我想问一下,rn装完VB6.0以后控件里没有adodc这个控件是怎么回事啊,我可以单独安装它吗,在哪里可以下载到。g还有我机子里装完VB以后,控件加上去都是白色的,不知道怎么了,而且点右键属性不好用
一个关于VB 的问题
有一篇文章(或TEXT类型的数据),需要分屏显示,如:放入一个文本框,如何分框显示,并且用上下按钮进行按页翻滚?谢谢!rn 回复:zyj_email@163.net
关于VB控件的问题??
谁有能够象设计报表一样能够分组在窗体上显示数据的控件??请告之,万分感谢。
关于vb月历问题
各位兄弟,我用WINDOWS自带的Calendar控件,编程环境是在简体的操作系统上,不知道怎么回事,当我生成安装程序后放在其它电脑上使用,有的繁体系统可以正常显示,但有的繁体系统不行,不知道是不是字体设置有<em>问题</em>还是什么,我设置的是英文。
关于VB打包的问题?
请问各位大侠:rn想尽可能减小安装程序的体积,想知道适用的打包工具.rn<em>关于</em>图片,声音文件,资源文件,DLL文件的处理方法,rn哪些是必须的.
关于vb打包的问题!!!!!
想问一下VB怎样做成SETUP!
关于VB 的treeview问题
请问一下大家,我这段程序为什么总报错?rnPrivate Sub Command1_Click()rn If Text0.Text <> "" And Text1.Text <> "" Then '不允许建立零字节的父节点和子节点rn CunZai = Falsern J = TreeView1.Nodes.Countrn For I = 1 To TreeView1.Nodes.Count '检查新输入的父节点名称是否存在rn If TreeView1.SelectedItem.Children > 0 Thenrn If Text0.Text = TreeView1.Nodes(I).Text Then CunZai = Truern End Ifrn Next Irn If CunZai = True Then '若存在, 则在父节点下建立子节点rn Set nodx = TreeView1.Nodes.Add(Text0.Text, tvwChild, "child" & J, Text1.Text, 3)rn Else '若不存在,则建立父节点和子节点rn Set nodx = TreeView1.Nodes.Add(, , Text0.Text, Text0.Text, 1)rn Set nodx = TreeView1.Nodes.Add(Text0.Text, tvwChild, "child" & J, Text1.Text, 3)rn End Ifrn TreeView1.Refreshrn ElseIf Text0.Text = "" Then MsgBox "请输入父节点名称!", <em>vb</em>Information, "警告!"rn '系统提示rn ElseIf Text1.Text = "" Then MsgBox "请输入子节点名称!", <em>vb</em>Information, "警告!"rn End IfrnEnd Subrnrnrn在这里“Set nodx = TreeView1.Nodes.Add(, , Text0.Text, Text0.Text, 1)”,程序总会报错:“无效关键字”rn为什么啊?
关于vb结构体的问题
大家好,请问一下<em>vb</em>中结构体使用with有什么影响~~特别是<em>关于</em>付值的,重新分配空间方面
一个关于vb问题
从键盘上输入10个数,求他们的最大值。最小值,并显示整个数组和结果
___________________________关于VB的DLL问题)_______________________________
本人用VB做了一个DLL..功能是使用API生成菜单,但使用API生成的菜单需要使用HOOK捉捕消息...就是使用setwindowlong和什么关键字accessof但用VB程序调用这个DLL菜单生成没<em>问题</em>,但捉捕消息时程序就非法操作了...其它程序调 用也同样错误,rnrn望高手帮帮解决一下,最好有实例...
关于vb打包的问题
<em>vb</em>程序的打包有点大,很小的程序要想在没有<em>vb</em>环境里运行就得打包,一打就3,4Mrn有谁能帮忙使之变小一点?
关于vb的多线程的问题!
请问高手们,你们在VB里用过多线程吗?用的话把代码贴出来研究研究,本人很需要这方面的知识!在这里先谢谢!(在线等待)
关于vb窗口的问题
我想点击窗体的最小化按钮,窗体的图标添加到托盘里,如何实现,点击最小化按钮,触发什么事件。
关于VB和flash的问题
我有一个flash(flash动画中有一个按钮,命名为play1,我把它放在VB中。我想实现的是,当点击VB上的command按钮时,执行flash中play1事件。
关于学习VB的问题
rn我是一个新手。 我请求大家给我一个建议。rn我现在想学VB可是我不知道应该怎样学。希望各位高手能帮我一下。rn希望有好心人能给我好的建议。谢谢!!!
关于VB与数据库接口的问题
我想在我的应用程序中设置两个接口,一个是“Access”,另一个是“SQL Sever2000”。而用户是在程序开始就选择要用哪一个数据库,请问这怎么实现?rn还有,我要实现数据的统计,比如一个人员查询系统,要实现各种数据的统计,而具体统计什么数据由用户自己决定,请问这怎么实现?有这样的控件吗?
Rockable.Press.Rockstar.WordPress.Designer.2009.rar下载
Rockable.Press.Rockstar.WordPress.Designer.2009.rar 相关下载链接:[url=//download.csdn.net/download/lleheaven/2346777?utm_source=bbsseo]//download.csdn.net/download/lleheaven/2346777?utm_source=bbsseo[/url]
linux扫盲学习下载
linux扫盲 基础学习 详细 简洁 易懂 linux学习中比较好的东西 相关下载链接:[url=//download.csdn.net/download/wxp16141769190/4284352?utm_source=bbsseo]//download.csdn.net/download/wxp16141769190/4284352?utm_source=bbsseo[/url]
visual studio 2010 C# serial port sample下载
visual studio 2010 C# serial port sample, welcome communication with me,C# & visual studio learning, this sample is change from echo ,ui is ok, just change little , you can use two comport communiction each other. 相关下载链接:[url=//download.csdn.net/download/advance258/9459855?utm_source=bbsseo]//download.csdn.net/download/advance258/9459855?utm_source=bbsseo[/url]
相关热词 c# 线程结束时执行 c# kb mb 图片 c# 替换第几位字符 c#项目决定成败 c# 与matlab c# xml缩进 c#传感器基础 c#操作wps c# md5使用方法 c# 引用父窗口的组件
我们是很有底线的