在ListView中,对打勾记录的check项,通过遍历修改数据库相应字段的记录,(同步修改记录内容更好). 目的:是用Select语句,选择相应的记录内容。 select * from table where Check_Select = -1 dim nodx as node for each nodx in tredir.nodex if tvwDb.check.value = True '更改数据库Check_Select Check_Select = -1 End If next 目标: select * from table where Check_...

用VB怎样把程序做成三栏式或左右两栏式的界面?就象HTML的框架那样?

xb1 = (xoo + rd + h1 - h3)中： rd = Text6.Text xoo = Text14.Text h3 = Text26.Text h1 = Text24.Text 中rd = Text6.Text怎么都赋值不了啊？？？郁闷ING

我的程序在一些2000操作系统上机器上安装后正常使用，在一些2000机器上却出现有某一个按钮不能用，提示: 先报一个run-time error "0"． 再报一个run-time error "440";Automation error 请问是什么地方出问题了啊？ 我感觉应该是少了一个系统的dll 不知道是哪个dll出问题了 谢谢啊

各位大哥帮帮忙,这个问题怎么解决啊,如果不可以的话有什么变通的方法没有,先谢了!

程序有一个窗体a，用ActiveBar2这个控件（网上下载来的）把窗体a作为一个竖着的工具条，但是，当把分辨率改低后，这个窗体的内容就不见了，急求

我现在现在用的是数据报表设计器。但代码不会写啊，怎么做好一个报表呢，用EXECL输出打印也可以。谢谢各位大虾了

偶想在vb里连接一个url，基本上只要知道能不能连上就行了 谁能告诉我如何写代码？

1、MSFlexGrid1控件的某列能不能设置打勾选中的功能?也就是像把一个复选框放到MSFlexGrid1控件的某列中的显示效果,打上勾时则选中这一行,不打勾则不选中这行,MSFlexGrid1控件能不能实现?要能实现怎么实现？ 2、要在MSFlexGrid1控件中显示多行被选中怎么用代码实现？ 谢谢大家了。

这是看的不知哪位大哥的代码 Function IsOpen(sFile As String) As Boolean Dim fFile As Integer IsOpen = False fFile = FreeFile() ‘打开方式 On Error GoTo ErrOpen Open sFile For Binary Lock Read Write As fFile ’？？？？ Close fFile Exit Function ？？？？这为什么退出了呢 ErrOpen: If Err.Number <> 70 Then ？？这个错误号代表？？ Msg...

1、怎样获取SQL SERVER上的注册服务列表 2、怎样创建SQL SERVER用户以及设置用户权限 3、怎样创建数据库和数据表 4、SQL服务器要怎样设置，才能使客户机访问到数据库 谢谢各位高手先!

我在VB中用下面的语句引用WORD通用模板中的ConvertWord，此宏程序是专业软件公司开发的,在运行时会弹出一些菜单供用户选择,但我在原WORD中设好后运行时一路执行缺省的"OK"就行了。 Application.Run "ConvertWord" 那么,能否在VB中设法让这些弹出菜单就按缺省的“OK”执行(即相当于按Enter键即可）,最好让这些菜单也不弹出来,然后继续执行其下的命令行。

如何判定一个文件当前是否被系统占用是否可以写入! 就我要往一个文件写入文本标记! 有时内存被占满后，就会发生禁止写入的提示框! 所以我想能够在我的程序写入数据前检测该文件是否可以写入! 是否被系统占用!

用VC或VB怎么写？

请高人指点

Open App.Path & "\out5.txt" For Output As #1 print #1, text1.text Close #1 用上面的方法只能在第一行输入 如何在第二行输入呢，如果方便的话也请告诉我如何调用第二行的值？

我已经将dll文件拷贝到应用程序目录下，为什么在调试时有时还会出现无法找到dll文件错误呢？将VB退出再进入就好了。

如题

我用ado连接access数据库 连接如下： adoCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False" 再用recordset打开一个表如下: rsQTinfo.Open "select * from tbcline", adoCn, adOpenDynamic, adLockBatchOptimistic, adCmdText...

msgbox显示的字可以分行吗

VB6.0 dim a as string a="Form" 怎样引用变量a代替字符串Form,实现如下功能 Form.height=640

请教高手： VB在连接数据库的时候，如果数据库服务器IP地址等错误，VB将等候很长的时间才提示数据库连接失败。 如何让无法连接的时间短一些？

怎么编辑可供VB用的帮助文件? 小弟在此先谢过啦

Dim str(0 To 1) As Byte str(0) = 66 str(1) = 66 现在想把这两个内容 转化为 BB 该如何做？

请问如何实现VB的MDI窗口的菜单在左边出现抽屉式菜单.请问谁有没有实例.谢谢.

command1 点击后 随机 使 text1.text="111" 或text2.text="222" 如何实现这个功能？

我一直没找到备份和还原組策略的方法!不知道用VB可不可以实现操作組策略？ 请高人指点

怎么分配heap区?

取文本框1(multiline=true)内容如下: aa, 56bc, 120qdf, 取而非, foee., tom, best, 7900, 5#额, 36hgfh, ewfw, bbbb, 38fe, fwef45666, rfgerg, 随机取8个排列组合10组.输出到文本框2 如图: http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/f52eb91817e5880635fa41be.jpg 谢谢....

我使用vb连接sqlserver，连接函数如下： Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset Dim mycon As New ADODB.Connection Dim rst As New ADODB.Recordset Set mycon = New ADODB.Connection 'On Error GoTo err mycon.ConnectionString = connstring mycon.CursorLocation = adUseClient mycon.C...

如何让自定义控件有快捷键的功能?如Alt + C

这二句SQL有什么区别？ 在下面的二句SQL不知道有什么区别，一句是通过的，一句是没有通过的!不知道什么原因哈!大家能不能帮我看看是那个地方出了问题，可不可以改一下! 没通过的， 如下： SQL = "SELECT K.bh,k.bm,k.ywymc,S.yhsum,S.sysum,S.yhsum+S.sysum as 合计" & _ " from ywy as K,(select 业务员,sum(数量) as sysum,sum(金额) as yhsum from sale)S" & _ " where S.业务员 = K.ywymc and (((CDate([月] & �...

StrSQL = "select nz(ID,'') as temp from fu" rst.Open StrSQL, cnn, adOpenStatic, adLockBatchOptimistic 为什么总是提示“表达式中‘NZ’函数未定义 ACCESS里面运行是正确的 在线等

点击按钮发送邮件，里面带有附件，可是每次发送都发不出去，也不知道问题出在什么地方，请各位高人给看看! Private Sub email_Click() MAPISession1.SignOn With MAPIMessages1 .MsgIndex = -1 .RecipDisplayName = email_address.Text .MsgSubject = txtSubject.Text .SessionID = MAPISession1.SessionID .AttachmentPathName = 路径名 .Send End With MAPISession1...

我想把按钮变成Flat的然后加图片，可是和3D时一个样，请问怎么办。

情况一： 如果Text1里面有1234567890 情况二： 里面有:很高兴认识大家呵呵呵 结果：Len（Text1.text）的大小相同，但是很明显信息的长度不一样，10个中文比10个数字要长，但是这要怎么去比较这个长度？谢谢啦!

如何在窗口最大化时移动窗口? 请注意,是在 WindowState = 2 时.移动窗口，使用哪个API该如何实现，非常急`` 在线等候答案`

我想做这样一道数学题一个三位数乘一个两位数,结果是一个四位数，上面用到的9个数字是各不相同的，但必须是1~9这9个数，请问这个三位数是几？两位数是几，我想用编的方法来解答这个题. 本人是一名小学教师,水平有限,还望高手写出源代码.

有文本文件1.txt 格式如下: ser=a99 disp=xxxxxxxxx type=AT Bak=xxxxxxx ser=c87 xxxxxxx type=AS xxxxx 请教如何操作 1.txt.查找到指定的Ser号后替换对应的Type内容? 因有的type无数据.还需判断type=后面就是换行了...

窗体Load事件中代码过多,主要是从数据库中提取数据的代码,造成窗体打开过慢,怎么解决?能不能把这些代码写在其它事件中,并且跟在LOAD事件中写这些代码的效果相同.谢谢了

如題，請各位朋友多多指點。 謝謝!

我现在有两个表，不能用sql进行处理． 表1 NO PipeLineNO PointX0PointY0PointZ0 1 150Oil-028-100H 200030002500 2 150Oil-028-100H 800030002500 3 150Oil-028-100H 800030005000 表2 No PipeLineNOPointX0PointY0PointZ0PointXPointYPointZ 1 150Oil-028-100H200030002500800030002500 2 150Oil-028-100H800030002500800030005000...

Private Sub clientsck_DataArrival(ByVal bytesTotal As Long) Dim strData As String clientsck.GetData strData, vbString txtOutput.Text = strData End Sub Private Sub Command1_Click() Dim cmd(0 To 3) As Byte cmd(0) = &H40 cmd(1) = &H2 cmd(2) = &H2 cmd(3) = &HBC clientsck.SendData cmd(0) '...

例如一个考试系统,在主界面(控制台)可以判卷,成绩管理,以及选择不同的考题进行考试,考题还可以在不段的开发中增加,所有考题想用统一的界面模版,以便可以更换,初期先用单机实现,不知道需要VB那些方面资料,望牛人推荐下,给高分

比如我做了1个程序，里面有个label1，他的caption="Codefund" 我又做了个程序，当我按下command后想读取 第1个程序中label1的caption 请问怎么实现

漂亮的vb界面是怎么做出来的?是否需要第三方软件啊,看到那些界面真羡慕

如题。在程序中要运行程序外的 某个*.msi文件。不知道如何调用。通过shell方式出错。各位兄弟姐妹帮个忙，看看 解决，谢谢

用哪个软件可以更好地让C/S软件，在web窗口中运行

我是这样子想的 不知道有没有什么问题 数据库连接 Private Sub Form_Load() 关闭数据库连接 Private Sub Form_Unload 那么记录采（RS）的呢``本想是在使用后就RS.CLOSE,可是用了Unload Me就有问题了 If Not rs.EOF Then If rs("Password") = Password.Text Then sys.Show Unload Me'这样最后的RS就出错了,在这里怎么不会停止的 Else MyExit = MsgBox("用户/密码错误", vbOKOnly, "错误提示:")...

Dim NewAce As New AccessControlEntry Dim sdUtil As New ADsSecurityUtility Dim sd As IADsSecurityDescriptor Dim acl As IADsAccessControlList Private Sub Command1_Click() Set sd = sdUtil.GetSecurityDescriptor("e:\test", ADS_PATH_FILE, ADS_SD_FORMAT_IID) Set acl = sd.DiscretionaryAcl NewAce.Acce...