VB程序员博客

例如我的vb代码:
set rs=cn.execute(Str1)
然后过了几行又用了一次
set rs=cn.execute(Str2)
感觉速度好像不大稳定,是不是因为多次对一个对象rs读取的原因?
应该如何处理能够快一些?如果是同一个结果集，为什么要多次读取？
如果不是同一个结果集，速度比较又会失去意义。
别在这儿下功夫，良好的SQL语句会提高一些速度。

是的,我的代码中需要多次set rs,因为是不同的结果集.查询起来确实有偏差.
先谢谢二位~还有人关注么?

Public conn As New ADODB.Connection Dim ip As String
ip = "192.168.1.56"
conn.Open "Provider=sqloledb;Data Source=" & ip & ";Initial Catalog=fdfd;User Id=sa;Password=106565;"

代码实现如可功能

如果检测到数据库已经打开，就不用打开了

回的真快

实现vb打开网页后，5秒种关闭自己的代码。高人指教！

我写的是

Private   Declare   Function   ShellExecute   Lib   "shell32.dll "   Alias   "ShellExecuteA "   (ByVal   hwnd   As   Long,   ByVal   lpOperation   As   String,   ByVal   lpFile   As   String,   ByVal   lpParameters   As   String,   ByVal   lpDirectory   As   String,   ByVal   nShowCmd   As   Long)   As   Long
Private   Const   SW_SHOWNORMAL   =   1
Private   Const   SW_SHOWMINIMIZED   =   2

Private   Sub   Form_Load()
WebBrowser1.Navigate   ( "http://www.sina.com ")
Me.Hide
If   Timer1.Interval   =   500   Then   unlod.me

End   Sub

关闭不了

请高人指教添上或修改如下内容
Option   Explicit
Dim   dtTemp   As   Date

Private   Sub   Form_Load()
      WebBrowser1.Navigate   ( "http://www.sina.com ")
      Me.Hide
      Timer1.Interval   =   100  
      dtTemp=now
End   Sub

Private   Sub   Timer1_Timer()
        If   DateDiff( "s ",   t,   Now)   =   4   Then   Unload   Me
End   Sub哦，是５秒钟．．．

Private   Sub   Timer1_Timer()
        If   DateDiff( "s ",   t,   Now)   =   ５   Then   Unload   Me
End   Sub
Private   Sub   Timer1_Timer()
        If   DateDiff( "s ",   dTemp,   Now)   =   5   Then   Unload   Me
End   Sub
'怎么总是写错,….Timer1_Timer()   设为5秒

Private   Sub   Timer1_Timer()
        Unload   Me
End   Sub你timer控件用错了吧..
Private   Sub   Timer1_Timer()
Unload   Me
End   Sub

form_load里面触发晕这是什么语句
If   Timer1.Interval   =   500   Then   unlod.mePrivate   Sub   Form_Load()
WebBrowser1.Navigate   ( "http://www.sina.com ")
t   =   Timer
here:   If   Timer   -   t   =   5   Then
Unload   Me
Else
GoTo   here
End   If
End   Sub
不用添加timer1控件了,直接调用timer过程谢谢1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!upTimer1.Interval   =   500   只是设置timer控件每500毫秒跳一次“做个窗口   5秒后   unloadme

Dim px(121, 2) As Single, py(121, 2) As Single
Dim col As Integer
Dim pl As Integer
Private Sub Form_Load()
    Picture1.Scale (900, 0)-(1200, 300)      '设置绘图区域坐标
End Sub
Private Sub Command1_Click()
If Timer1.Enabled = True Then
Command1.Caption = "开始"
Timer1.Enabled = False
Else
    Command1.Caption = "暂停"
    Timer1.Enabled = True
    End If
End Sub
Private Sub Timer1_Timer()
Picture1.Cls
If col < 31 Then
    For u = 0 To 2
    For i = col To col
        x = 900 + 10 * i
        y = 50 + 50 * u + Rnd * 20 '利用随机数模拟实际数据
        px(i, u) = x '给各数据点横坐标赋值
        py(i, u) = y '给各数据点纵坐标赋值
    Next i
    Next u
    col = col + 1
    pl = pl + 1
End If
If pl >= 2 Then
    For w = 0 To 2
    Picture1.PSet (px(0, w), py(0, w))
      For i = 1 To col
        Picture1.Line -(px(i - 1, w), py(i - 1, w)), QBColor(w * 2)
      Next i
    Next w
End If
End Sub刚来这里，不知如何给分呀！再说我也没有分，如何才能得到技术分呢？按了按钮,开始画画…画图我当然知道了，我是要解释代码fff 这一句 For i = col To col 是什么意思？
还没有人回答呀?

数据库名：cs
表名:csb
csb表中有五个字段，分别是a、b、c、d、e。
其中，a字段为主字段，有重复项。

VB的窗口上有五个控件，分别是combobox1,combobox2,textbox1,textbox2,textbox3.

我想要的功能是，在combobox1中显示a字段所有不重复的选项，然后，根据combobox1所选的内容，自动显示combobox2（对应字段b、不显示空字段）,textbox1（对应字段C）,textbox2（对应字段D）,textbox3（对应字段E）的内容

显示之后，可以根据实际情况对所显示的数据进行修改（字段A、B不允许修改），修改后保存到数据库里，下次打开软件时，显示的是修改后的内容即可。

如果有高手看到的话，请帮忙指点一下，如果能提供全部代码，或是把程序上传（我用的是VB2008、SQL SERVER 2005）直接让我下载学习的话，更是万分感谢。谢谢。
查询a字段不重复的内容：
select distinct a from csb<

combobox1.additem

也可以直接绑定rs。<
<
<
睡觉了
晚安
ALL

如题，已知用
Shell "C:windowssystem32control.exe desk.cpl", vbNormalFocus
或
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3"
可以打开“显示 属性”对话框，但我想跳过这一步直接用代码打开其中由“设置–>高级”弹出的“(xx监视器)和NVIDIA FeForce xxxx 属性”对话框，请问能否实现？最好别用sendkeys之类,api之类可以。资料没找到，反汇编无果(菜菜)。
不得已的方法：FindWindow + SendMessage支持<
我想反汇编跟踪一下那个按钮调用的api，结果连事件过程入口都没找到，地址直接为FFFFxxxx。先做个记号，关注一下。<

UP看来这个问题不好搞定呀。不会,帮顶不会,帮顶

正在学习vb但是有些例子他说将以下代码添加到事件处理器中，但是就没有以下代码。。。。
为啥啊发现了，我把vb代码的勾去掉了。。。。随便来个让我把帖子结了

你的MSDN可能是精简版的，从光盘安装全的，有两张。勾都去掉了，就是VS.NET的了。

codesmart codehelp 云月插件 vb源码之友 ？
codehelp和vb源码之友 都挺好的 但是都缺少 代码折叠功能
谁有这方面的代码折叠 插件 试试能不能加载到codehelp
codesmart 功能倒是多带是不习惯它的界面，中文汉化也不全

大家都用啥辅助插件？ 能推荐一下吗 
谢谢了版主贴主中午好！
版主贴主每天都有好心情！

DT9MYUb2NuEVr回帖是一种美德！ke1InTPvVAL1Q
==========================
介+绍:

http://spritebrowser.com

OKSInsOGyaPIq
１）可录制上网记录，截获Http信息。
２）利用截获的Http信息自动生成命令（Page,拖拽即可完成）
３）执行命令，模拟浏览器向Web服务器发生命令。

中文论坛：http://spritebrowser.com/LunTan
DT9MYUb2NuEVr

发现一群美女：
http://byhat.com

=======================
软件创业QQ qun群：103815692

soyLjlyQ25CsFmztools版主贴主中午好！
版主贴主每天都有好心情！

oB9hOacMalQ0sjrz回帖是一种美德！03nwuRkJTCi20mHb
==========================
介+绍:

http://spritebrowser.com

vVhaWdDzy6D8yP70
１）可录制上网记录，截获Http信息。
２）利用截获的Http信息自动生成命令（Page,拖拽即可完成）
３）执行命令，模拟浏览器向Web服务器发生命令。

中文论坛：http://spritebrowser.com/LunTan
oB9hOacMalQ0sjrz

发现一群美女：
http://byhat.com

=======================
软件创业QQ qun群：103815692

c5j3l9Wv1P8MFr94MZ-Tools for VB6.0免费版

要求在TEXT1里输入一些英文。统计出每个字母出现了几次
代码如下：
Private Sub Command1_Click()
Dim str1 As String, a() As Integer
str1 = Text1.Text
ReDim a(26)
LCase (str1)
n = Len(str1)
Call CharCount(str1, a())
Picture1.Print "字母a出现了" & a(0) & "次"
Picture1.Print "字母b出现了" & a(1) & "次"
Picture1.Print "字母c出现了" & a(2) & "次"
Picture1.Print "字母d出现了" & a(3) & "次"

End Sub
Sub CharCount(str1 As String, a() As Integer)
Dim s()
s = Array(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z)
ReDim Preserve s(26)
For i = 1 To n
 For k = 0 To 25
  If Mid(str1, n, 1) = s(k) Then a(k) = a(k) + 1
 Next k
Next i
End Sub
运行了一下
为什么每次都是 字母a出现了0才，字母b出现了0次 其余都是0次。。。For i = 1 To n
 For k = 0 To 25
  If Mid(str1, n, 1) = s(k) Then a(k) = a(k) + 1
 Next k
Next i
,———————–
n=?n = Len(str1)
Private Sub Command1_Click()
Dim str1 As String, a() As Integer
str1 = LCase (Text1.Text)
ReDim a(26)
Call CharCount(str1, a())
Picture1.Print "字母a出现了" & a(0) & "次"
Picture1.Print "字母b出现了" & a(1) & "次"
Picture1.Print "字母c出现了" & a(2) & "次"
Picture1.Print "字母d出现了" & a(3) & "次"

End Sub
Sub CharCount(str1 As String, a() As Integer)
Dim s(),n as long
n = Len(str1)
s = Array(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z)
ReDim Preserve s(26)
For i = 1 To n
 For k = 0 To 25
  If Mid(str1, n, 1) = s(k) Then a(k) = a(k) + 1
 Next k
Next i
End Sub
楼上的提示类型不匹配If Mid(str1, n, 1) = s(k) Then a(k) = a(k) + 1
怎么直接取n？也就是str1最后一个字符？应该是这样吧?：
If Mid(str1, i, 1) = s(k) Then a(k) = a(k) + 1
Private Sub Command1_Click()
Dim str1 As String, a() As Integer
str1 = LCase(Text1.Text)
ReDim a(26)
Call CharCount(str1, a())
Picture1.Print "字母a出现了" & a(0) & "次"
Picture1.Print "字母b出现了" & a(1) & "次"
Picture1.Print "字母c出现了" & a(2) & "次"
Picture1.Print "字母d出现了" & a(3) & "次"

End Sub
Sub CharCount(str1 As String, a() As Integer)
Dim s, n As Long
n = Len(str1)
s = Split("a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z", ",")
For i = 1 To n
 For k = 0 To 25
  If Mid(str1, i, 1) = Trim(s(k)) Then a(k) = a(k) + 1
 Next k
Next i
End Sub

Private Sub Command1_Click()
  Dim str1 As String, a() As Integer
  str1 = Text1.Text
  ReDim a(26)
  LCase (str1)
  n = Len(str1)
  Call CharCount(str1, a())
  Picture1.Print "字母a出现了" & a(0) & "次"
  Picture1.Print "字母b出现了" & a(1) & "次"
  Picture1.Print "字母c出现了" & a(2) & "次"
  Picture1.Print "字母d出现了" & a(3) & "次"
End Sub
Sub CharCount(str1 As String, a() As Integer)
  Dim s() As String
  Dim n As Integer
  n = Len(str1)
  s = Split("a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z", ",")
  For i = 1 To n
  For k = 0 To 25
  If Mid(str1, i, 1) = Trim(s(k)) Then
  a(k) = a(k) + 1
  End If
  Next k
  Next i
End Sub

应该符合要求了吧。累啊

本人 想做一个淘宝自动登录器 但是老是报错 各位大哥帮帮忙 项目就差这一点了
https://login.taobao.com/member/login.jhtml?f=top&redirectURL=http%3A%2F%2Fwww.taobao.com%2F
就是这个页面 请各位看看 谢谢啦
高人帮帮忙啊是在 VB 中用 WebBrowser控件 打开网页进行登录吗？