求助VB编程的问题 - 编程论坛

#2

yjm12392007-11-12 13:36

不会，新手来学习下！

#3

nlmzh2007-11-12 13:50

我们公司也在招聘类似的VB兼职程序人员，用VB控制另外一个WINDOWS XP程序，能解决上面问题的VB高手，有空余时间，愿意应聘的，可以发邮件给我

#4

wanghuamei2007-11-12 13:54

大家好，我在做一个通讯录管理系统的过程中，有一个模块是有关表中为数的统计的，但我在编代码时出现函数（selectsql）未定义，不知道怎么调试。代码如下：
Option Explicit
Dim rs As ADODB.Recordset
Dim msg As String
Dim sql As String

Private Sub form_load()
'按不同的群组id统计
'构造sql语句
sql = "select a.群组ID,b.群组名称,b.建立日期,count(a.联系人ID)AS "
sql = sql & "联系人数from 联系人信息表 a insert join"
sql = sql & "联系人信息表 b on a.群组ID_GROUP BY.a.群组ID,b.群组名称,b.建立日期"
Set rs = selectsql(sql, msg)
If rs.selectsql <> 0 Then
Set Me.DataGrid1.DataSource = rs
Else
Set Me.DataGrid.DataSource = Nothing
End If

End Sub

请教怎么定selectsql！望高手给予指点！这是我在一本书上看的例子，不太懂，帮忙调试一下哦！

#5

duxue2007-11-12 16:07

回复：（wanghuamei）大家好，我在做一个通讯录管理系...

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1" ' 设置波特率和发送字符格式
MSComm1.CommPort = 1 ' 设置通讯串口
MSComm1.InputLen = 0 ' 设置或返回一次从接收缓冲区中读取字节数，0表示一次读取所有数据
MSComm1.InBufferSize = 512 ' 设置接收缓冲区512Byte
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512 ' 设置发送缓冲区512Byte
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 ' 每个字符到接收缓冲区都触发接收事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True ' 打开串口
End Sub
'发送数据
'PC机向单片机发送一个"S"，表示通信开始，然后紧接着又发送9个字符，
'其中最后一个字符是前面9个字符（包括"S"）的校验和。
'单片机正确接收到10个字符后，把10个字符重新又送回来。
Private Sub Cmdsend_C1ick()
Varbuffer = "S"
MSComm1.Output = Varbuffer
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Outputsignal = Str(Textsend.Text) '向单片机发送其它数据
temp(1) = CByte(Outputsignal)
Varbuffer = temp
MSComm1.Output = Varbuffer
Timer1.Enabled = False
End Sub
' 接收单片机发送的数据，并显示
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent ' 设置oncomm事件，读取片机内存的值
Case comEvReceive
Inputsignal = MSComm1.Input
TextReceive.Text = Asc(Inputsignal) ' 单片机内存的值用TextReceive显示出
Case Else
End Select
End Sub
'关闭串口，关闭程序
Private Sub Cmdquit_Click()
MSComm1.PortOpen = False
Unload Me
End Sub

你参考一下

#6

wanghuamei2007-11-14 22:04

回复：（duxue）回复：（wanghuamei）大家好，我在做一...

回贴的同志你好：
我做的是通讯录系统，我想你是看错了吧！呵呵...
希望高手指点！谢谢！

#7

ljyxxzj2007-11-14 22:34

四楼的应该是
set rs=new ADODB.Recordset