chinaboyzyq的专栏

准备好ACCESS数据库，建一个Uesr_id表，表中建两个字段就可以了。在[工程]菜单下选择[部件]；在弹出的窗口内勾选[Microsoft ADO Data Control 6.0]然后确定。 在工具栏中双击Adodc控件，Adodc控件添加到form内，在form内右单击Adodc1选择属性ADODC属性， 在弹出的窗口中单击[生成]，在弹出的窗口中选择Microsoft Jet

16进制转换10进制（最大支持24F） Option ExplicitPrivate Sub Command1_Click()  Dim a  a = HEXtoDEC("82A1063F")  Debug.Print aEnd SubPrivate Function HEXtoDEC(ByVal HEXstr As String)VB6下的16进制转

datacombo与textbox联系的一种方法 DataCombo1.Style选择 dbcDropdownList    Private Sub Form_Load()    2010-05-08 by chinaboyzyq    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data So

数组控制me("crlName")的调用方法

运行程序时出现程序为：      ……      ……      ……      TcpSck(0).LocalPort = Txdk      TcpSck(0).Listen最后发现是winsock TcpSck(0)没有正常关闭造成的，然后改程序为：      ……      ……      ……     TcpSck(0).C

vb6中字符串转控件名的方法比如我想用"label1"来调用label1控件，我们可以用：me("label1")来调用label1的所有属性：me("label1").caption="xxx"me("label1").backcolor=vbred......所有属性都可用，可查看label1所且有的属性。对于控件数组的调用是这样的：me("

【原】二进制转八进制vb6程序Private Sub Command1_Click()  Dim strN As String, strOct As String, strBin(), iOct As String  Dim intXh As Integer, i As Integer, j As Integer, strTmp As String    strBin

Dim a() As ByteIf StrConv(a, vbUnicode) = "" Then  MsgBox "未初始化"Else  MsgBox "已经初始化"End If

【原】二进制转十六进制vb6程序Private Sub Command1_Click()  Dim strN As String, iHex As String, strBin(), strHex()  Dim intXh As Integer, i As Integer, j As Integer, strTmp As String    strBin = A

启动vb6显示找不到dao350.dll

多行文本框中选择文本行    Option Explicit     Private Const EM_LINELENGTH = &HC1   Private Const EM_LINEINDEX = &HBB   Private Const EM_SETSEL = &HB1      Private Declare Function SendMessage

ADODB建立无连接RecordSet的方法 Private Sub Command1_Click()    Dim cnn As New ADODB.Connection    Dim rst As New ADODB.Recordset    cnn.CursorLocation = adUseClient    cnn.Open "Provider=Microsoft.Jet.OLE

分组查找ACCESS数据库，每组随机取N条记录并按照id排序 ACCESS数据库结构为：表名ff。字段有：id(自动编号)，ff(文本),aa(文本),bb(文本),cc(文本)以下是ACCESS导出的文本文件：1,"aa","a1","a1","a1"2,"aa","a2","a2","a2"3,"aa","a3","a3","a3"4,"aa","a1","a1","a1"5,

Option ExplicitPrivate Sub Form_Load()  Dim i As Integer    For i = 1 To 20    Load Command1(i)  Next i      Unload Command1(2)  Unload Command1(4)  Unload Command1(20)End SubPrivate Sub Command1_

新建一个VB工程 把Form1的 Caption设置为工程1 WindowState设置为Minimized LinkMode设为Source LinkTopic设为Form1 在Form1添加TextBox,text1 设置text1的text值为:这是EXE文件中TEXT1中的数据 编译生成 工程1.EXE 再建一个VB工程 把Form1的 LinkMode设为Source LinkTopic

汉字与unicode码的互相转换 在vb为得到测试的Unicode码这样做: Dim ucode() As Byte ucode = "测试" 观察结果 Dim i As Integer For i = 0 To UBound(ucode)     Debug.Print ucode(i) Next i 75 即4B 109  6D 213  D5 139  8B 从

10进制转换16进制(转换结果最大支持24个F)Private Sub Form_Load()    Dim a As String, b As String        a = "79228162514264337593543950335" 这是VB能处理的最大整数Decimal类型24个F,                                              

    困惑了将近一天。win03下，卸载安装vb6五次。上网看了一下午，没找到解决办法。差一点重做了系统……    今天半夜醒了，就睡不着了，老子就不信这个邪了……嘿嘿……终于……胜利……了……      VB6升级为SP6后，data控件不能用了，提示:找不到Data Access库。不能创建引用。     原来开发的程序：    Set db = CreateDatabase

1、添加ADODC1到窗体2、准备好一个ACCESS新建的空数据库66.mdb  Private Sub Form_Load() With Adodc1 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "C:/Documen

1、添加ADODC到窗体2、ACESS数据库中至少有一张表存在。Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "C:/Documents and Settings/A

VB6支持96个1的二进制与十进制的互相转换程序 Public Function BIN_to_DEC(ByVal Bin As String) As Variant****************************************************************** 用途：将二进制转化为十进制 输入：Bin(二进制数) 输入数据类型：String

模块代码： Option ExplicitPrivate Const GW_HWNDNEXT = 2Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetWindow Lib "user32" (ByVal hwnd As L