| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2677 人关注过本帖
标题:苦逼的命,VB6.0编写一个小程序,明天搞不定就被炒鱿鱼了~~~~~
只看楼主 加入收藏
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:0 
试一下

Dim Conn As New ADODB.Connection,RsMain As New ADODB.Recordset,MainSQL As String
1. 使用回车响应
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
    MainSQL = "Select * from [Sheet1$] in 'C:\SN.xls' 'Excel 8.0;' where [SN] = '" & Trim(Text1.text) & "'"      ----> 'C:\SN.xls' 为Excel路径,首行插入一行表头"SN"
    RsMain.open MainSQL ,Conn,1,1
    If Not RsMain.EOF then
        Label1.Caption = "合法条码"
    ELSE
        Label1.Caption = "非法条码"
    Endif
    RsMain.close
    Text1.Setfocus
EndIf

2. 数据输入后自动响应 (利用文本框数据变化时字长判断)
Private Sub Text1_Change()
If Len(Trim(Text1.Text)) = 18 Then
    MainSQL = "Select * from [Sheet1$] in 'C:\SN.xls' 'Excel 8.0;' where [SN] = '" & Trim(Text1.Text) & "'"
    RsMain.Open MainSQL, Conn, 1, 1
    If Not RsMain.EOF Then
        Label1.Caption = "合法条码"
    Else
        Label1.Caption = "非法条码"
    End If
    RsMain.Close
Else
    Label1.Caption = "非法条码"
End If
Text1.SetFocus

[ 本帖最后由 owenlu1981 于 2014-3-7 10:24 编辑 ]
2014-03-07 10:10
tonecan2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-3-6
收藏
得分:0 
回复 31楼 owenlu1981
可以将frm.vbp.数据库这些文件打包吗? 我才接触VB一两天,这些我肯定是不知道怎么弄,无从下手啊。
2014-03-07 10:29
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:0 
以下是引用tonecan2008在2014-3-7 10:29:07的发言:

可以将frm.vbp.数据库这些文件打包吗? 我才接触VB一两天,这些我肯定是不知道怎么弄,无从下手啊。


直接可以 EXE 文件?
2014-03-07 10:37
tonecan2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-3-6
收藏
得分:0 
回复 33楼 owenlu1981
源代码我也想了解啊
2014-03-07 11:06
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:0 
回复 34楼 tonecan2008
SN.zip (26.08 KB)
2014-03-07 11:12
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:0 
以下是引用tonecan2008在2014-3-7 11:06:06的发言:

源代码我也想了解啊


都在附件了,提供了两种方式的exe
2014-03-07 11:15
tonecan2008
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2014-3-6
收藏
得分:0 
回复 36楼 owenlu1981
谢谢你!已经搞定了~
2014-03-07 13:53
xiaoqing2014
Rank: 1
来 自:浙江杭州
等 级:新手上路
帖 子:17
专家分:0
注 册:2014-3-7
收藏
得分:0 
加油吧!给你精神上的支柱
2014-03-08 14:10
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
收藏
得分:0 
不会数据库,还去做数据库,而且是短时间内完成。这样的必须是苦命。软件讲的是逻辑。这个也是编程思维得出的结果。
2014-03-19 22:04
快速回复:苦逼的命,VB6.0编写一个小程序,明天搞不定就被炒鱿鱼了~~~~~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059842 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved