VB程序员博客

由上面的图可以看到有三个表格。

第一个表格是目前的产品分配，将某一产品分配给某一张定单及数量，

第二个表格是 临时要调动 的产品编号及数量

第三个表格是 通过第二个表格 向 第一个表格调出来的产品

调用的规则有：1、如果有“无”定单的，优先提取出来。
  2、定单从大到小提取。

如，现在要 编号1 的产品100只，假如，编号1的产品 “无”定单的有50只，1定单有60只，2定单有40只，那么，提取的结果为：

  编号：1，定单：无 ，数量：50
  编号：1，定单：2，数量：40
  编号：1，定单：1，数量：10

如果能看得懂我所说的内容又懂得怎么写的话，请告诉小的，俺在此谢过了。
谢谢。vb？
存储过程？循环 表2 编号
  循环 表1 
  表2 数量 减 直到 0 过程中生成 表3
  做一个视图不就可以了么。

表一右连接表二或表二左连接表一。

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                4      0        2    NO      48    ON    516
                                  3                        545
                                                            576
                                                            593
                                                            631
2                0      0        2    NO      47    OFF  550

XXXX
ABCDEF2

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0              14      0        2    NO      33    ON    519
                                  3                        543
                                                            562
                                                            566
                                                            573
                                                            576
                                                            611
                                                            615
                                                            623
2                2      0        2    NO      39    OFF  620
                                  3

XXXX
ABCDEF3

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                3      0        2    NO      24    ON    517
                                                            541
                                                            557
                                                            592
                                                            595
                                                            599
                                                            606
2                0      0        2    NO      13    OFF  545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592                                                         
谢谢大家                                                          我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                4      0        2    NO      48    ON    516
                                  3                        545
                                                            576
                                                            593
                                                            631
2                0      0        2    NO      47    OFF  550

XXXX
ABCDEF2

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0              14      0        2    NO      33    ON    519
                                  3                        543
                                                            562
                                                            566
                                                            573
                                                            576
                                                            611
                                                            615
                                                            623
2                2      0        2    NO      39    OFF  620
                                  3

XXXX
ABCDEF3

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                3      0        2    NO      24    ON    517
                                                            541
                                                            557
                                                            592
                                                            595
                                                            599
                                                            606
2                0      0        2    NO      13    OFF  545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592                                                         
谢谢大家                                                          我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                4      0        2    NO      48    ON    516
                                  3                        545
                                                            576
                                                            593
                                                            631
2                0      0        2    NO      47    OFF  550

XXXX
ABCDEF2

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0              14      0        2    NO      33    ON    519
                                  3                        543
                                                            562
                                                            566
                                                            573
                                                            576
                                                            611
                                                            615
                                                            623
2                2      0        2    NO      39    OFF  620
                                  3

XXXX
ABCDEF3

CHGR  SCTYPE    SDCCH  SDCCHAC  TN  CBCH    HSN  HOP  DCHNO
0                3      0        2    NO      24    ON    517
                                                            541
                                                            557
                                                            592
                                                            595
                                                            599
                                                            606
2                0      0        2    NO      13    OFF  545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592                                                         
谢谢大家                                                          我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

如何提取数据库表1的序号列的最大值并在TEXTBOX中显示？
有高人能写个代码吗
我是用的VB6.0编程软件 用ADODC连接数据库的
写Text1.Text="select max(序号) from 表1"为什么不行报错吗，这里是一个赋值的部分代码
——————————–
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table"
rs.open sql,conn,1,1
'显示数据
text1.text=rs("filed1")也不是报错  把Text1.Text="select max(序号) from 表1"写在一个按扭控件下 按这个控件是没反映有人知道么试试这样行不行：
sqltxt="select 序号 from 表1 order by 序号 DESC"        '降序排列
adodc1.recordset movefirst
text1.text=adodc1.recordset.fields("序号")

或者：
sqltxt="select max(序号) as xh from 表1 group by 序号"
text1.text=adodc1.recordset.fields("xh")谢谢楼上的 我去试下可以先参考一下ADO手册中的例子是如何访问数据库的。

楼主太牛 sql 语句这样直接用

如何提取数据库表1的序号列的最大值并在TEXTBOX中显示？
有高人能写个代码吗
我是用的VB6.0编程软件 用ADODC连接数据库的
写Text1.Text="select max(序号) from 表1"为什么不行报错吗，这里是一个赋值的部分代码
——————————–
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table"
rs.open sql,conn,1,1
'显示数据
text1.text=rs("filed1")也不是报错  把Text1.Text="select max(序号) from 表1"写在一个按扭控件下 按这个控件是没反映有人知道么试试这样行不行：
sqltxt="select 序号 from 表1 order by 序号 DESC"        '降序排列
adodc1.recordset movefirst
text1.text=adodc1.recordset.fields("序号")

或者：
sqltxt="select max(序号) as xh from 表1 group by 序号"
text1.text=adodc1.recordset.fields("xh")谢谢楼上的 我去试下可以先参考一下ADO手册中的例子是如何访问数据库的。

楼主太牛 sql 语句这样直接用

如何提取数据库表1的序号列的最大值并在TEXTBOX中显示？
有高人能写个代码吗
我是用的VB6.0编程软件 用ADODC连接数据库的
写Text1.Text="select max(序号) from 表1"为什么不行报错吗，这里是一个赋值的部分代码
——————————–
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM table"
rs.open sql,conn,1,1
'显示数据
text1.text=rs("filed1")也不是报错  把Text1.Text="select max(序号) from 表1"写在一个按扭控件下 按这个控件是没反映有人知道么试试这样行不行：
sqltxt="select 序号 from 表1 order by 序号 DESC"        '降序排列
adodc1.recordset movefirst
text1.text=adodc1.recordset.fields("序号")

或者：
sqltxt="select max(序号) as xh from 表1 group by 序号"
text1.text=adodc1.recordset.fields("xh")谢谢楼上的 我去试下可以先参考一下ADO手册中的例子是如何访问数据库的。

楼主太牛 sql 语句这样直接用

输入地址 http://www.0797123.com/index.asp
看到的是下图,未登陆的页面

使用用户名和密码登陆后看到下图

问题: 想用vb做程序，下载此网页,提取信息编号、信息内容和发布时间.
用普通的方法保存源代码(见下面的方法一、二)，得到的都不是图2表中的数据，还有别的方法吗？
方法一：WebBrowser1.Document.body.innerHTML
方法二：WebBrowser1.Document.All(0).outerHTML

目前用vb做程序,用WebBrowser控件已经实现自动登陆到图2的状态，因该网页有框架，如何保存该网页为源代码？
只要能保存网页源代码，那提取信息编号、信息内容等信息不成问题. 不一定非得用WebBrowser，用别的方法能解决也行。
平日都是替别人解决问题，今剑也有问题，
望大家都来帮忙，提供思路或代码，剑将感激之至……

我的邮箱：lpfdxx@qq.com
如有意，请和我联系，可以提供测试用户名和密码，如果谁能解决我的问题，我还可以付一定报酬（人民币，邮件中可商量）.
拒绝灌水！换个控件。How much money?

帮顶…..这个需要了解dthml，可以通过frames访问
http://blog.csdn.net/sysdzw/archive/2009/08/19/4463844.aspx哈哈，经过阿泰的指点已经顺利解决了，谢谢阿泰，
同时也谢谢sysdzw，下面这个帖子变成了散分帖，心里真是痛快…….

因是技术帖，请大家来接分时，顺便谈一下下载源代码的效率问题，用inet、webbrowser或是别的方式哈哈，经过阿泰的指点已经顺利解决了，谢谢阿泰，
同时也谢谢sysdzw，下面这个帖子变成了散分帖，心里真是痛快…….

因是技术帖，请大家来接分时，顺便谈一下下载源代码的效率问题，用inet、webbrowser或是别的方式用 XMLHTTP 下源码很快，代码也简单的多。
    Set X = CreateObject("Microsoft.XMLHTTP")
    URL = "http://xxx.xxx.xxx"
    X.Open "GET", URL, False
    X.send
    Dim b() As Byte
    b = X.responseBody

取到二进制数组，然后随便你蹂躏了 ，可以创建多个XMLHTTP 对象，分别对不同页面同时下载，
（居然是多线程，这么简单就实现了，但不是VB的，是XMLHTTP 的多线程，就像同时打开多个浏览器窗口一样）

附：
自编的网页分析小工具，简单实用
http://club.excelhome.net/viewthread.php?tid=377077&?fromuid=26992
自编的网页分析小工具，简单实用
http://club.excelhome.net/viewthread.php?tid=377077&?fromuid=26992 这么快就结贴了，还想要个测试帐号试试来。

一般要截取字串的我用inet，比如天气预报等。

其它的需要生成页面的用webbrowser，不过inet处理字串会有个编码造成乱码的问题。我是来接分的。<
只用过WebBrowser1和DOMDocument 的
试了下inet，貌似不怎么样

举例:
dim byteString() as Byte
'从sock中取得所有数据并存入字节类数组中
sockReponseClient(Index).GetData FileByte
'感觉不是很难,但就是取不出其中的中文字和其它类型的数据,只能取英文的 :(,

各位帮帮忙哈,xx

确实可能是变体,winsock.GetData data, [type,] [maxLen]

        Dim mByte() As Byte   
        Dim str As String     
        str = "中国CSDN"
       
        '字符串->字节数组
        mByte = str
       
        '字节数组->字符串
        str = mByte
       
        Debug.Print str
这样的方式,试试

我不懂窝,楼上的说清楚点

测下来还是字节数组呀

返回:Byte()

用StrConv 函数试试.
StrConv 函数
     

返回按指定类型转换的 Variant (String)。

语法

StrConv(string, conversion, LCID)

StrConv 函数的语法有下面的命名参数：

部分 说明
string 必要参数。要转换的字符串表达式。
conversion 必要参数。Integer。其值的和决定转换的类型。
LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。）

设置值

conversion 参数的设置值为：

常数 值 说明
vbUpperCase 1 将字符串文字转成大写。
vbLowerCase 2 将字符串文字转成小写。
vbProperCase 3 将字符串中每个字的开头字母转成大写。
vbWide* 4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 16** 将字符串中平假名字符转成片假名字符。

vbHiragana** 32** 将字符串中片假名字符转成平假名字符。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。
vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。

*应用到远东国别。

**仅应用到日本。

谢谢,,我试过了,,只要是中文字,取出来都是  空白 大概取出来是这个样子

空白空白空白空白空白TCP空白空白空白空白空白空白.rar

中文都变成了一片空白:(

来个人找找原因哈:)

问题自己解决,结贴! 

是你发送前转换丢失字节了?

大家都知道一个图标文件可包含很多个图标
只要图标文件中含有32以下的图标就能添加为窗体的图标(即加到窗体Icon属性里),虽然32位的图标不能显示为窗体图标,但窗体Icon属性里已包含了32位的图标,我是这样认为的,因为生成的EXE图标在XP下就是包含在Icon属性里32位的图标
其实在VB里的控件的Picture属性也是如此,只是没法显示出来,只有通过API才能显示32位的图标

请问各位有没办法把这些32位的图标提取出来,生成生的ICON,就可API函数显示出来
(说明一下,不要从图标原文件中提取)

帮忙顶起来

帮忙顶起来

简单地复制一下代码，就可以看到效果

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
              Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
              Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long

              Private Const DI_COMPAT = &H4 'Benutzt das Standard Benutzerdefiniertes Bild
              Private Const DI_DEFAULTSIZE = &H8 'Zeichnet das Icon/Cursor mit der Standard graae
              Private Const DI_IMAGE = &H2 'Zeichnet nur die Bilddaten des Icons/Cursors
              Private Const DI_MASK = &H1 'Zeichnet nur die Maske des Icons/Cursors
              Private Const DI_NORMAL = &H3 'Zeichnet Maske und Bilddaten

              Private hSmallIcons() As Long, hLargeIcons() As Long

              Private Sub Form_Load()
                  Dim RetVal As Long, IconNum As Long
              Form1.AutoRedraw = 1
                  IconNum = ExtractIconEx("c:windowssystem32pifmgr.dll", -1, 0&, 0&, 0&)  '本文件可抽取38个图标
                  If IconNum = 0 Then
                    MsgBox "Diese Datei hat keine Icons"
                    Exit Sub
                  End If
                  HScroll1.Max = IconNum - 1
                  ReDim hSmallIcons(IconNum - 1)
                  ReDim hLargeIcons(IconNum - 1)
                  RetVal = ExtractIconEx("c:windowssystem32pifmgr.dll", 0&, hLargeIcons(0), hSmallIcons(0), IconNum)  '抽取多少个图标随意
              End Sub

              Private Sub HScroll1_Change()
                  Me.Cls
                  RetVal = DrawIconEx(Me.hDC, 5, 5, hLargeIcons(HScroll1.Value), 0&, 0&, 0&, 0&, DI_IMAGE)  '有底色
                  DrawIconEx Me.hDC, 5, 40, hSmallIcons(HScroll1.Value), 0&, 0&, 0&, 0&, DI_NORMAL
                  Me.Refresh
              End Sub

              Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
                  On Error Resume Next
                  For i = 0 To UBound(hSmallIcons)
                      DestroyIcon hSmallIcons(i)
                      DestroyIcon hLargeIcons(i)
                  Next i
              End Sub

UP

UP

好的办法有,去我的博客看一下,保证让你满意,vb中加载多个32位图也没问题.
http://blog.myspace.cn/1307693632/EntryTitleList.aspx

32位图标确实很好。