1.数据库读取

【工程】菜单的【引用】菜单项,打开引用对话框,选中【Microsoft ActiveX Data Objects 6.1 Library】

【工程】菜单的【引用】菜单项,打开引用对话框,选中【Microsoft ActiveX Data Object Recordset 6.0 Library】

'定义连接对象和记录集
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Public pid As Integer '把a定义在通用区 Private Sub btn_Add_Click(Index As Integer)
Form2.Show vbModal
End Sub Private Sub DataGrid1_Click()
pid = DataGrid1.Columns().Value
Form2.Show vbModal
End Sub Private Sub Form_Load()
pid =
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立无源数据库连接
conn.ConnectionString = "driver={sql server};server=.;UID=sa;pwd=123;Database=testvb"
conn.ConnectionTimeout =
conn.Open
Dim str As String
'连接连接对象
Set rs.ActiveConnection = conn
'设置游标类型
rs.CursorType = adOpenDynamic
'设置查询字符串
str = "select * from T_Product "
rs.Open str, conn, adOpenStatic, adLockOptimistic If rs.EOF = True Then
MsgBox "没有任何数据", vbOKOnly + vbExclamation, "警告"
Else Set DataGrid1.DataSource = rs
MsgBox rs.RecordCount, vbOKOnly + vbExclamation, "提示" End If End Sub

2.提交

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "driver={sql server};server=.;UID=sa;pwd=123;Database=testvb"
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
'conn.Execute "insert,delete,update的语句"
conn.Execute "insert into T_Product values(" + Me.Text1.Text + ", " + Me.Text2.Text + ")" '关闭连接 释放内存
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "插入成功"
Unload Me
End Sub Private Sub Form_Load()
If Form1.pid <> Then '判断修改还是删除
MsgBox "修改"
Else
MsgBox "添加"
End If
End Sub

3.访问网络

Dim postData As String
Dim url As String Private Sub Command1_Click()
postFun
End Sub
Private Function postFun() url = "http://127.0.0.1/api/car/***.ashx"
postData = "" Dim HttpClient As Object Set HttpClient = CreateObject("Microsoft.XMLHTTP")
HttpClient.Open "POST", url, False
HttpClient.setRequestHeader "Content-Type", "text/xml; charset=UTF-8"
HttpClient.Send pvToByteArray(postData) Do While HttpClient.readyState <>
DoEvents
Loop MsgBox HttpClient.responseText
End Function Private Function pvToByteArray(sText As String) As Byte()
pvToByteArray = GB2312ToUTF8(sText) End Function Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
Dim adoStream As Object Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 'adTypeText
adoStream.Open
adoStream.WriteText strIn
adoStream.Position =
adoStream.Type = 'adTypeBinary
GB2312ToUTF8 = adoStream.Read()
adoStream.Close If ReturnValueType = vbString Then GB2312ToUTF8 = Mid(GB2312ToUTF8, ) End Function Private Sub Form_Load()
Me.Timer1.Interval = End Sub Private Sub Timer1_Timer()
postFun
End Sub

4.条形码

http://blog.csdn.net/easyboot/article/details/50808498

VB6学习笔记的更多相关文章

  1. tornado 学习笔记1 引言

    从事软件开发这行业也快5年啦,其实从事的工作也不完全是软件开发,软件开发只是我工作中的一部分.其中包括课题研究.信息化方案设计.软件开发.信息系统监理.项目管理等工作,比较杂乱.开发的软件比较多,但是 ...

  2. 【VB6 学习文档管理系统源码】

    VB6写的一款笔记软件的源码,里面包含有很多窗体控件的使用技巧,比如MSHFlexgrid表格.TreeView的动态加载.Ado的增删改查等. 本软件提供对日常生活.工作中的学习笔记.图文并茂存储以 ...

  3. js学习笔记:webpack基础入门(一)

    之前听说过webpack,今天想正式的接触一下,先跟着webpack的官方用户指南走: 在这里有: 如何安装webpack 如何使用webpack 如何使用loader 如何使用webpack的开发者 ...

  4. PHP-自定义模板-学习笔记

    1.  开始 这几天,看了李炎恢老师的<PHP第二季度视频>中的“章节7:创建TPL自定义模板”,做一个学习笔记,通过绘制架构图.UML类图和思维导图,来对加深理解. 2.  整体架构图 ...

  5. PHP-会员登录与注册例子解析-学习笔记

    1.开始 最近开始学习李炎恢老师的<PHP第二季度视频>中的“章节5:使用OOP注册会员”,做一个学习笔记,通过绘制基本页面流程和UML类图,来对加深理解. 2.基本页面流程 3.通过UM ...

  6. 2014年暑假c#学习笔记目录

    2014年暑假c#学习笔记 一.C#编程基础 1. c#编程基础之枚举 2. c#编程基础之函数可变参数 3. c#编程基础之字符串基础 4. c#编程基础之字符串函数 5.c#编程基础之ref.ou ...

  7. JAVA GUI编程学习笔记目录

    2014年暑假JAVA GUI编程学习笔记目录 1.JAVA之GUI编程概述 2.JAVA之GUI编程布局 3.JAVA之GUI编程Frame窗口 4.JAVA之GUI编程事件监听机制 5.JAVA之 ...

  8. seaJs学习笔记2 – seaJs组建库的使用

    原文地址:seaJs学习笔记2 – seaJs组建库的使用 我觉得学习新东西并不是会使用它就够了的,会使用仅仅代表你看懂了,理解了,二不代表你深入了,彻悟了它的精髓. 所以不断的学习将是源源不断. 最 ...

  9. CSS学习笔记

    CSS学习笔记 2016年12月15日整理 CSS基础 Chapter1 在console输入escape("宋体") ENTER 就会出现unicode编码 显示"%u ...

随机推荐

  1. jenkins 批量修改 去掉勾选Build whenever a SNAPSHOT dependency is built

    进入jenkins 的jobs的上一层目录 执行 sed -i 's/<ignoreUpstremChanges>false<\/ignoreUpstremChanges>/& ...

  2. mysql中查询一个字段属于哪一个数据库中的哪一个表的方式

    mysql中查询一个字段具体是属于哪一个数据库的那一张表:用这条语句就能查询出来,其中 table_schema 是所在库, table_name 是所在表 --mysql中查询某一个字段名属于哪一个 ...

  3. JS charCodeAt在PHP中的等价物(完整的unicode和表情符号兼容性)

    我在JS中有一个简单的代码,如果涉及特殊字符,我无法在PHP中复制. 这是JS代码(请参阅JSFiddle输出): var str = "t

  4. 全栈开发——动手打造属于自己的直播间(Vue+SpringBoot+Nginx)

    前言 大学的学习时光临近尾声,感叹时光匆匆,三年一晃而过.同学们都忙着找工作,我也在这里抛一份简历吧,欢迎各位老板和猎手诚邀.我们进入正题.直播行业是当前火热的行业,谁都想从中分得一杯羹,直播养活了一 ...

  5. Android调试桥-Android Debug Birdge详解

    原文:http://android.eoe.cn/topic/summary Android调试桥-Android Debug Birdge Android调试桥(adb)是一个多功能的命令行功具,它 ...

  6. oracle11g exp导出问题:部分表导不出来

    在oracle导出表的命令exp时候发现一个问题,就是部分表全然的导不出来,经检查发现仅仅要是表为空的都会导不出来. 在例如以下表中发现segment_created都为NO的是导不出来的,经查询后, ...

  7. Android Studio 1.1.0 “关联源码” 或者“导入源码” ,又或者插件包

    其实这博文是废话!为什么呢? 1.如果自己的SDK没有更新相应当前操作版本的source的话,相应的v4,v7等等的源码都不会自动导入的. 其实Android Studio自身就已经会去检测你当前SD ...

  8. IOC的实现原理—反射与工厂模式的结合

    反射机制概念   我们考虑一个场景,如果我们在程序运行时,一个对象想要检视自己所拥有的成员属性,该如何操作?再考虑另一个场景,如果我们想要在运行期获得某个类的Class信息如它的属性.构造方法.一般方 ...

  9. [Windows Azure] Data Management and Business Analytics

    http://www.windowsazure.com/en-us/develop/net/fundamentals/cloud-storage/ Managing and analyzing dat ...

  10. slack机器人运维

    这里有一篇文章,够详细了:http://colobu.com/2015/11/04/create-a-slack-bot-with-golang/ 另外:这个py的库,test了一下,挺好使:http ...