精华内容
下载资源
问答
  • VB 数据交换

    2010-06-07 13:59:37
    VB 数据交换 VB 数据交换 VB 数据交换
  • VB通过DBCOMMs控件和世纪星交换数据.rar 介绍了关于VB通过DBCOMMs控件和世纪星交换数据的详细说明,提供世纪星的技术资料的下载。
  • 介绍了关于VB通过DBCOMM控件和世纪星交换数据的详细说明,提供世纪星的技术资料的下载。
  • VB通过DBCOMM控件和世纪星交换数据rar,VB通过DBCOMM控件和世纪星交换数据
  • 结合实际输电线路模型,介绍了利用Matlab与VB数据交换技术进行继电保护仿真的方法。利用Matlab建立了220kV输电线路、零序电流保护及单相重合闸装置等仿真模型,利用VB建立了仿真命令按钮及显示界面。采用ActiveX技术...
  • InTouch和VB之间的动态数据交换rar,InTouch和VB之间的动态数据交换
  • VB同ASP交换数据

    2005-07-29 21:43:00
    然后VB中的代码如下: Private Sub Command1_Click()  WebBrowser1.Navigate " http://chen/chat/newuser.htm " End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)  Dim ...

    看看这个例子,使用WebBrowser1的Document对象就可以了

    怎么编程把用户名,密码提交到网页上的登录页?
    首先在程序中加入Webbrowser控件
    假设你的HTML页面表单代码如下:
    <form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
      <p>请填写下面表单注册(*项为必添项)</p>
      <p>*姓名<input type="text" name="Name" size="20"></p>
      <p>*昵称<input type="text" name="NickName" size="20"></p>
      <p>电子邮件<input type="text" name="EMail" size="20"></p>
      <p>*密码<input type="text" name="Password" size="20"></p>
      <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
    </form>
    注意其中元素的type、Name、value属性。然后VB中的代码如下:
    Private Sub Command1_Click()
        WebBrowser1.Navigate "http://chen/chat/newuser.htm"
    End Sub


    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        Dim vDoc, vTag
        Dim i As Integer
         
        Set vDoc = WebBrowser1.Document
        List1.Clear
        For i = 0 To vDoc.All.length - 1
            If UCase(vDoc.All(i).tagName) = "INPUT" Then
                Set vTag = vDoc.All(i)
                If vTag.Type = "text" Or vTag.Type = "password" Then
                    List1.AddItem vTag.Name
                    Select Case vTag.Name
                        Case "Name"
                            vTag.Value = "IMGod"
                        Case "NickName"
                            vTag.Value = "IMGod"
                        Case "Password"
                            vTag.Value = "IMGodpass"
                        Case "EMail"
                            vTag.Value = "IMGod@paradise.com"
                    End Select
                ElseIf vTag.Type = "submit" Then
                    vTag.Click
                End If
            End If
        Next i
    End Sub
    点击Command1就可以自动填表并提交了。

    展开全文
  • vb6和intouch的数据交换

    2011-08-16 22:30:35
    我们知道vb6 可以写上位机的软件,比如可以连数据库sql server ,oracle 等, intouch是作为工控...那么他们之间如何通讯,交换数据呢?基本原理是通过DDE方式来交换数据 步骤如下:  1. vb6 向intouch的标签量中
    展开全文
  • 两个VB程序之交换数据的DDE工程

    千次阅读 2009-08-04 11:30:00
    把Form1的 Caption设置为工程1 WindowState设置为Minimized LinkMode设为Source LinkTopic设为Form1 在Form1添加TextBox,text1 设置text1的text值为:这是EXE文件中TEXT1中的数据 编译生成 工程1.EXE 再建一个VB工程 ...

    新建一个VB工程
    把Form1的
    Caption设置为工程1
    WindowState设置为Minimized
    LinkMode设为Source
    LinkTopic设为Form1

    在Form1添加TextBox,text1
    设置text1的text值为:这是EXE文件中TEXT1中的数据

    编译生成 工程1.EXE

    再建一个VB工程
    把Form1的
    LinkMode设为Source
    LinkTopic设为Form1
    在Form1添加TextBox,text1
    把工程保存在一个文件夹内,把上面所做的工程1.EXE复制到这个文件夹内.
    不用编译,在VB环境中写以下程序调试就可以了.
    Private Sub Form_Click()
      If Text1.LinkMode = vbNone Then
          Z = Shell("C:/Documents and Settings/Administrator/桌面/dde/工程1.exe", 4)
          Text1.LinkTopic = "工程1|Form1"  ' 设置连接主题。
          Text1.LinkItem = "text1"          ' 设置连接项目。
          Text1.LinkMode = vbLinkManual    ' 设置连接模式。
      End If
     
          Text1.LinkItem = "text1"  ' 设置连接项目。
          Text1.LinkRequest            ' 获得数据
         

          'Text1.LinkItem = "text1"  ' 设置连接项目。
          'Text1.text="xxxxxx"           
          'text1.LinkPoke                  ' 发送数据"xxxxxx"
    End Sub

    按F5运行程序,单击form1,就可以看到从工程1.EXE的text1中读回来的数据了

    展开全文
  • VB.NET两个LISTBOX进行交换数据

    千次阅读 2011-10-10 21:29:36
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRightMove.Click, LstAll.DoubleClick '右移数据 If LstAll.SelectedItems.Count > 0 Then If LstPart....
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRightMove.Click, LstAll.DoubleClick      '右移数据
            If LstAll.SelectedItems.Count > 0 Then
                If LstPart.Items.Contains(LstAll.SelectedItem) Then Exit Sub
                LstPart.Items.Add(LstAll.SelectedItem)
                LstAll.Items.Remove(LstAll.SelectedItem)
            End If
        End Sub
    
        Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLeftMove.Click, LstPart.DoubleClick         '左移数据
            If LstPart.SelectedItems.Count > 0 Then
                If LstAll.Items.Contains(LstPart.SelectedItem) Then Exit Sub
                LstAll.Items.Add(LstPart.SelectedItem)
                LstPart.Items.Remove(LstPart.SelectedItem)
            End If
        End Sub
    
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRightAll.Click        '右移全部数据
            If LstAll.Items.Count < 1 Then Exit Sub
            ' Dim LstItem As Object
            'For Each LstItem In LstAll.Items
            '    If Not LstPart.Items.Contains(LstItem) Then
            '        LstPart.Items.Add(LstItem)
            '    End If
            'Next
            'Dim i As Integer, nCount As Integer
            'nCount = LstAll.Items.Count
            ''For i = 1 To nCount
            ''    LstAll.Items.AddRange(LstAll.Items)
            ''Next
            '  LstAll.Items.Remov
            LstPart.Items.AddRange(LstAll.Items)
            LstAll.Items.Clear()
        End Sub
    
        Private Sub BtnLeftAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLeftAll.Click       '左移全部数据
            If LstPart.Items.Count < 1 Then Exit Sub
            'Dim LstItem As Object
            'For Each LstItem In LstPart.SelectedItems
            '    If Not LstAll.Items.Contains(LstItem) Then
            '        LstAll.Items.Add(LstItem)
            '    End If
            '    'LstPart.Items.Remove(LstItem)
            '    'Me.ListBox2.Items.AddRange(Me.ListBox1.Items)
            '    'Me.ListBox1.Items.Clear()
            'Next
            'Dim i As Integer, nCount As Integer
            'nCount = LstPart.SelectedItems.Count
            'For i = 1 To nCount
            '    LstPart.Items.Remove(LstPart.SelectedItem)
            'Next
            LstAll.Items.AddRange(LstPart.Items)
            LstPart.Items.Clear()
        End Sub

     
    展开全文
  • 待续..
  • txt文件如下:、 015810110001 124 1 00149 4 0158 015810110002 124 1 00149 4 0158 015810110003 124 1 00149 4 0158 ...怎样把它导入数据库,再把其它数据导出到TXT文件
  • VB两个数组变量能不能直接进行数据交换交换数组变量会发生内存拷贝么?
  • 1.概述“组态王”支持动态数据交换(DDE:Dynamic Data Exchange),能够和其他支持动态数据交换的应用程序方便地交换数据。通过DDE,工程人员可以利用PC机丰富的软件资源来扩充“组态王”的功能,比如用电子表格程序...
  • 在form里面申明xx和yy,然后通过form里面的time进行累加,在模块里面用yy读xx的数值,然后在form里面将yy的值乘以2后送到text1里面。...提示的错误是:未找到方法或数据成员 请帮忙修改下,谢谢!
  • 最起码要包括以下函数调用过程: DDEinitialize DdeCreateDataHandle DdeClientTransaction DdeGetLastError DdeFreeDataHandle 多谢啦
  • 以上为我自定义的类型,上面config类型为我想要把这些数据和SQL进行数据交换的对象,要求是能够根据config下的Name进行保存数据(当点保存时判定Name名在SQL表中是否存在,如果存在则提示“名称已存在,请确认”,...
  • OMRON厂家提供的示例,亲测可用,如果需要详细的步骤请联系我的微信,微信和帐户同号,CSDN不常登陆使用,最重要的是免费的哦。不收钱!当初为了学这个还花了500块钱冤枉钱,结果还什么没学到,对方提供的DLL文件...
  • 以往,要实现计算机的串口通信需要做大量复杂的工作,如今,Visual Basic 6.0(VB 6.0)在开发可视化环境下的监控系统时有其独特的优势,VB 6.0提供了串行通信控件,可以轻松实现串口数据交换。本文介绍了基于VB 6.0...
  • [url=http://www.damipan.com/file/1ESjDD3.html]大米盘下载:如何生存普通Model和支持与C能交换数据的Model.7z(支持电驴、迅雷、旋风下载)[/url] -------------------------- 新闻: 微软免费杀毒软件6月23...
  • 有时候我们想对Listview的数据进行上移、下移,但是貌似VB没有一个内置的函数来支持此操作,每次写代码来实现又太麻烦。于是,我就写了本函数,希望能对大家有用,代码写的不太好,见笑了。 1.支持任意列数的...
  • VB6再回首:数据访问

    2010-11-29 23:44:00
    十几年前最开始用VB时,是从数据绑定开始的,后来,自己慢慢开始“不屑”这种简单的、傻瓜化的操作,逐步向sql语句过渡:几乎所有的数据库操作都用sql完成,还颇以此自得。再后来,转向asp.net,页面中大量的数据库...
  • 在易语言的dll函数中,返回的只能是整数型,所以需要用内存来进行数据交换,以上图中的函数为例,求RC4加密字符。 在vb.net中,首先引入函数引用: 其中addr、len传实参,然后再直接调用即可: 就图中的...
  • VB编程:编写求解一元二次方程 ax2+bx+c=0 的过程,要求a、b、c及解X1、X2都以参数传送的方式与主程序交换数据,输入a,b,c和输出X1,X2的操作入放在主程序中。解:一元二次方程 ax2+bx+c=0 的解通常有以下几种可能。...
  • 用户可以把数据适配器理解为数据源和数据集之间的桥梁,他用来在数据源和数据集之间交换数据。.NET框架为用户提供了两种数据适配器:OleDbDataAdapter(用于访问任何OLEDB数据源)和SqlDataAdapter(专门用于访问...
  • ORACLE ERP采用了接口表完成数据交换,各模块之间相互交换数据以及与外界交换数据都必须通过接口表来完成,具体的做法是数据要进入各模块时,都必须先到各模块自己的接口表中(每个模块都有自己的接口表),然后再...
  • RFID电子标签又称射频标签,通过电子标签与读写器之间的耦合元件实现射频信号的空间(无接触)耦合,并根据耦合通道中的时序关系实现能量传输和数据交换。那么RFID电子标签是如何输入数据的?RFID电子标签是如何输入...
  • 冒泡排序 VB

    2014-04-21 10:26:58
    利用VB编程,最简单的冒泡排序代码 ...然后对余下的n-1个元素重复上述处理过程,直至最后进行余下两个数据的比较和交换。由于每一遍加工都是将本遍最小的元素像气泡一样上浮至本遍的顶端位置,故称为冒泡排序。

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 218
精华内容 87
关键字:

vb交换数据