求教:哪位VB高手能告诉我下面的语句是什么意思
第一个条件10050>11000不满足,而且&是连接字符串用的,你的意思应该是If sr.Fields(1) > (srrr.Fields(1) + 1000) And ... 你把符号给用错了.
Private Sub Form_KeyPress(KeyAscii As Integer) '捕捉按键
If KeyAscii 13 Then '如果是回车键 13 是回车键的ASCII码
If CurrentX >= ScaleWidth Then '判断当前鼠标坐标是不是在窗体范围内(在=true)
Print '不在的话什么也不输出
End If
Print Chr(KeyAscii); '在的话输出当前按键码
Else
Me.Cls '清屏
End If
End Sub
Set cnn = New ADODB.Connection ' 创建ADODB CONNECTION对象
cnn.Open "provider=sqloledb;server=10.10.8.219;user id=sa;password=teda;Initial Catalog=teda2204" ' 根据连接字符串 ConnectionString 打开数据库连接
Dim rst As New ADODB.Recordset ‘ 定义记录集 RecordSet 变量 rst, 并创建对象
Dim sql As String '定义字符串变量 sql 用于存放 SQL语句
sql = "select * from zj1013036" ' 给 sql 变量 赋值,该值是SQL语句,意思是从数据表 zj1013036 中查询所有的数据
rst.CursorLocation = adUseClient ' 设置或返回游标引擎的位置,使用由本地游标库提供的客户端游标。本地游标引擎通常允许使用的许多功能可能是驱动程序提供的游标无法使用的,因此使用该设置对于那些将要启用的功能是有好处的。
rst.Open sql, cnn, adOpenStatic, adLockReadOnly ' 以 静态类型游标(adOpenStatic)、只读(adLockReadOnly ),通过数据库连接 Connection 执行SQL语句指定的操作
rst.MoveFirst ' 将记录集指针指向第一条记录
Text1.Text = Trim(rst.Fields("id"))
' rst.Fields("id") ----- 从数据集查询结果取值,取第一条记录中的 “id”字段的内容
' Trim("xxxx") ----- 取出括号中传入字符串左右两边的多余空格
' Text1.Text = XXXX ----- 给文本框赋值
以此类推,其他不再复述...
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
连接数据库
cnn.Open "provider=sqloledb;server=10.10.8.219;user id=sa;password=teda;Initial
Catalog=teda2204"
Dim rst As New ADODB.Recordset
查询数据表
Dim sql As String
sql = "select * from zj1013036"
rst.CursorLocation = adUseClient
rst.Open sql, cnn, adOpenStatic, adLockReadOnly
rst.MoveFirst
从查询中读取数据到文本框
Text1.Text = Trim(rst.Fields("id"))
Text2.Text = Trim(rst.Fields("name"))
Text3.Text = Trim(rst.Fields("major"))
Text4.Text = Trim(rst.Fields("address"))
Text5.Text = Trim(rst.Fields("memo"))
哪位高手能在vb.net中的picturebox透明时看到下面的picturebox中图片而...
在加载窗体时,把PictureBox1的背景指定为透明,再把PictureBox1指定为PictureBox2的父容器就可以实现PictureBox2透明于PictureBox1且都透明与窗体背景了。VB2010环境下的。代码如下:附截图左边是运行效果,右边是编程环境,希望这种效果你会满意 Private Sub Form1_Load(ByVal sender As System.Object, ...
希望各位VB编程高手帮帮忙
For counter = start To end [Step increment]statements Next [counter]参数 Counter、Start、end 和 increment 都是数值型的。注意 increment 参数可正可负。如果 increment 为正,则 Start 必须小于等于 end,否则不能执行循环内的语句。如果 increment 为负,则 Start 必须大于等于 end,这样才能...
VB高手进
如果VB提示:文件未找到:'c:\\windows\\sytem32ieframe.dll\\1'解决方法请看:http:\/\/hi.baidu.com\/hehaiwanghui\/blog\/item\/ef0db7730e28eb1b8601b081.html (4)在项目Project1的对象窗口中可以看到tbToolbar控件中已 经设置有Back(向后)、Forward(向前)、Stop(停止)、 Refresh(刷新)、Home(...
哪位高手帮忙教一下如何用VB制作一个媒体播放器啊
媒体播放器控件(MCI)可以播放音频和视频,也就是音乐和影碟。在 D:盘根目录下新建一个文件夹,名字改为music,里面拷入三个音乐文件,一个Wav文件重命名为one,另一个Mp3文件,重命名为two,再将第十课中的thr视频文件拷贝进去,这是一个Avi文件。启动VB,修改好窗体的各个属性,再添加一个标签,...
VB高手进,用VB实现bat文件的net use那样的功能
就是用VB实现连接网络硬盘的功能,类似于bat的netuse命令.netuse\\\\计算机名\\共享文件夹名password\/user:adminisrator不要用shell调用bat文件.哪位高手指点下?... 就是用VB实现连接网络硬盘的功能,类似于bat的net use命令.net use \\\\计算机名\\共享文件夹名 password \/user:adminisrator不要用shell调用bat文件.哪位...
VB编程高手进
WM_SETREDRAW = $000B; 设置窗口是否能重画 WM_SETTEXT = $000C; 应用程序发送此消息来设置一个窗口的文本 WM_GETTEXT = $000D; 应用程序发送此消息来复制对应窗口的文本到缓冲区 WM_GETTEXTLENGTH = $000E; 得到与一个窗口有关的文本的长度(不包含空字符) WM_PAINT = $000F; 要求一个窗口重画自己 WM...
VB 希望高手帮帮忙 谢谢
'以上代码可以直接缩写成mnueditcopy_Click:Screen.ActiveControl.SelText = ""End If End Sub Private Sub mnueditexit_Click()End '结束程序 End Sub Private Sub mnueditpaste_Click()'If Len(Clipboard.GetText) > 0 Then 'Text2.SelText = Clipboard.GetText 'End If If Len(Clipboard....
vb高手进,求教育
Private Sub form_load()Dim rq1 As Date, rq2 As Date Dim y As Integer, m As Integer, d As Integer, x As Integer rq1 = #1\/1\/2013 rq2 = Date y = Year(rq2)m = Month(rq2)d = Day(rq2)x = DateDiff("d", rq2, rq1)Label1.Caption = "今天是" & y & "年" ...
vb高手请进
Adodc1.Refresh中Refresh是控件Adodc的方法其含义是:更新 Data 控件的数据结构,可以在 Data 控件上使用 Refresh 方法来打开或重新打开数据库,并且能够重新创建控件的记录集。
哪位高手,怎么可以在vb 6的环境下编写出透明的窗体(背景是桌面)?_百度...
VB 6不支持窗体透明或部分透明,需要制作透明窗体需要调用API函数。方法如下:声明API:Public Declare Function SetLayeredWindowAttributes Lib _"user32" (ByVal hnd As Long, ByVal clval As Long, _ByVal alph As Byte, ByVal flago As Long) As Long Public Declare Function GetWindowLong ...
浦亨凯特: 前面2句是API函数的声明,不要问为什么,接口方法就是那样设置的,必须要那么多个参数. 第三第四句是常量声明,也不要问为什么,要配合API函数的. Form_Load方法就是用来获取窗体的句柄的,然后设置这个窗口的显示状态.2个API函数的具体功能你可以直接百度.
三亚市15720956370: 求VB高手帮我翻译下以下语句?
浦亨凯特: 看这几句代码的意思是,有一个用户名有一个密码框...然后去输到一个网站上去对吧? 定义变量a的类型为字符串 定义变量b的类型为字符串 令a的值为Text1框里的内容 令b的值为Text2框里的内容 这是用Shell函数调用IE打开exehttp://ABC.123.COM/test.asp?name=a的值+&pass=b的值,隐藏窗口 默认提交计时开始.
三亚市15720956370: 求助!谁能告诉我VB的一些语言??
浦亨凯特: 据说vb 比较简单点. 慢慢学吧, 先理解下数值类型之间的区别. 然后就是逻辑运算符.(不懂没关系,可以跳过,用到的时候就会明了了) 然后就是 一些条件语句,循环语句.(多实验一下,实验结果要输出来看到, 可以用 Print 变量/字符串 输出到窗体上) 如果你要学VB的话,他的一些函数库在学习中会有所涉猎的. 需要学的还很多,学习过程中就会知道学什么了.上面说的都是一些基本的 不要急于求成,仔细体会这句话"编程就是操作数据".多写一些代码.千万别眼高手低,停留于能看懂别人的代码,看是不能发现问题的,当你调试的时候才会发现其中的问题. 好运~!
三亚市15720956370: 请VB高手帮我解释下下面这段代码? - ?
浦亨凯特: 这段代码的功能是在文本框txtDate只允许输入数值和 - 号 还有可以退格删除字符, 这段代码的功能还不完善Private Sub txtDate_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Then '输入数值怎通过 ElseIf KeyAscii = 8 Then '退格键也通过 ElseIf KeyAscii = Asc("-") Then '可以输入- 号 Else KeyAscii = 0 '如果是别的键就取消 End If End Sub
三亚市15720956370: VB 哪位大侠告诉我下这条语句什么意思??
浦亨凯特: 第一个条件10050>11000不满足,而且&是连接字符串用的,你的意思应该是If sr.Fields(1) > (srrr.Fields(1) + 1000) And ... 你把符号给用错了.
三亚市15720956370: VB 哪位高手能用循环结构自动处理下面的语句??
浦亨凯特: For i = 29 To 32 If List1.Selected(i) Then Call DeleteLine(App.Path & "\data\userdefined.txt", (i - 28) * 2 - 1) Call DeleteLine(App.Path & "\data\userdefined.txt", (i - 28) * 2) End If Next
三亚市15720956370: 请VB高手帮我解决一下下面一个问题?
浦亨凯特: 你代码错了,adodc1.recordset.delete这句本来就删除指针所指的那列 你应该是自己用语句删除,然后再刷新当前记录
三亚市15720956370: 请问哪位vb编程师傅能够回答我的问题? - ?
浦亨凯特: Dim user As String, pass As StringDim n As BytePrivate Sub Command1_Click() If Text1 = user And Text2 = pass Then MsgBox "祝贺你,成功登录!" n...
三亚市15720956370: 那位高手帮我写几句VB的语句 - ?
浦亨凯特: 1 s = iif(mid(c,3,1)="C","yes","no") msgbox s2 select case x case is < 10 y = x ^ 2 -1 + Abs(x) case 10 to 20 y = Sqr(3 * x -2) case is > 20 y = x * 3 + 2 end select if x > 20 then y = x * 3 + 2 elseif x>=10 and x<= 20 then y = Sqr(3 * x -2) elseif x ...
三亚市15720956370: 有VB高手告诉我下面这一段程序大体是什么意思?
浦亨凯特: 向数据库定义了两个字段