程序如下
Private Sub comLED_OnComm()
Select Case Me.comLED.CommEvent
Case comEvReceive
Dim Buffer As Variant
comLED.InputLen = 0
'接收二进 ......
Private Sub Command2_Click()
Call Shell("F:\资料\qq\Bin\QQ.exe", vbNormalFocus)
For i = 1 To 10000
For j = 1 To 100
DoEvents
Next
Next
SendKeys "{Tab 8}"
SendKeys "QQ号码"
DoEvents
SendKeys "{Tab}"
DoEvents
SendKeys ......
Option Explicit
Private MaxIndex As Integer
Private Sub Form_Load()
MaxIndex = 0
Winsock(0).Listen
End Sub
Private Sub Winsock_Close(Index As Integer)
Winsock(Index).Close
Unload Winsock(Index)
End Sub
Private Sub Winsock_ConnectionRequest(Index As Integer, ......
请高手 说的详细点
我用vb 自带的打包工具 不能完成
谢谢各位大哥大姐了
只能帮顶,回复内容太短
用SetupFactory7制作安装包,比较方便
自带的打包工具有什么问题?
http://hi.baidu.com/lao_5/blog/item/ca2bcd1e2858d16bf624e4ad.html
如何用VB制作安装包
2009年05月16日 星期六 下午 08:31
打开需要打包 ......
我要统计access中某个表中的记录,其中sex为1的有多少条,为2的有多少条。并将数据显示在label的caption上,应该如何写呢。
用的adoquery
可以 使用两次sql语句来得到
引用
C/C++ code
AnsiString Str ;
Str="select count(*) as ct from tablename where sex=1"//or//Str ="select count(*) as ......
Java code:
import java.sql.*;
public class ConnectAccess {
/**
* 初学者请注意:
* 1:先建立一个access文件a1.mdb,并放在D:\下;
* 2:在数据库文件a1.mdb中建立一个表Table1;
* 3:为Table1添加一列,并插入至少一条记录;
* 4:本文是一个完整的类,直接拿去运行就可以。
*/
public static void main(Strin ......