VB 代码

用代码创建控件：例创建文本框 打开网站代码
    Dim T As Object Shell "explorer http://www.baidu.com"
    Static Num As Long  
    Set T = Me.Controls.Add("VB.textbox", "Text" & Num, Me) ‘第一个参数是要添加的控件，第二个是控件名 打开记事本
    T.Left = 122                 ‘设置 左边距离 Shell "notepad.exe", vbNormalFocus
    T.Top = 122 + Num * 600      ‘设置顶部距离  
    Num = Num + 1                ‘防止控件名重复  
    T.Visible = True             ‘设置控件可见  
   
MSGBOX 判断是否  
    If MsgBox("你真的想退出吗？ ", vbYesNo, "退出提示 ") = vbYes Then  
        End  
    Else  
        Cancel = True  
    End If  
   
    A_Index.Adoo.CommandType = adCmdText  
    A_Index.Adoo.RecordSource = "Select * From Categories"  
    A_Index.Adoo.Refresh  
   
   
数据库连接代码  
    Dim RunSql, SqlStr As String  
    Dim Conn As New ADODB.Connection  
    Dim Rs As New ADODB.Recordset  
    Conn.OPEN "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ERP.mdb;"  
    Rs.CursorLocation = adUseClient  
    RunSql = RunSqlText.Text  
    Rs.OPEN RunSql, Conn, 1, 3  
      
    SqlStr = LCase(Left(Trim(RunSql), 6))  
    If SqlStr = "select" Then  
        Set ViewBox.DataSource = Rs  
    Else  
    Rs.OPEN "Select * From Sale", Conn, 1, 3  
    Set ViewBox.DataSource = Rs  
      
    End If  
   
    Adodc1.Recordset.Close  
    Adodc1.CommandType = adCmdText  
    Adodc1.Recordset.ActiveConnection.Execute SQL  
    Adodc1.Refresh  
      
    Adodc1.Recordset.ActiveConnection.Execute "UPDATE sale SET 商品单价 = ‘13002‘"  
    Adodc1.Refresh  
      
    INSERT INTO Categories (产品分类编号,产品分类名称) VALUES (‘g‘,‘g‘)  
时间： 2024-10-11 01:36:29

VB 代码的相关文章

Excel日历控件实现下拉选取日期含VB代码实现

以下是Excel2016通过安装控件,实现表格下拉选择日期的一些步骤: 知识准备工作:先了解下如何安装控件,这一部分很重要,excel选择可用宏https://jingyan.baidu.com/article/6181c3e0ad4144152ef1533f.html 如果没有日历控件:Microsoft Date and Time Picker Control(SP6) 先下载MSCOMCT2 链接:https://pan.baidu.com/s/1CGV1MBJyBjlqTd7_QFXHq

关于vb代码复制到其他地方出现乱码的问题

今天笔者在学习vb编程时,想将自己的一段测试代码记录到云笔记中,方便以后查阅,代码如下: 结果在复制到其他的地方的时候,均出现乱码的现象,主要是针对代码的中的中文,如下效果 Private Sub Command1_Click() MsgBox "ÕâÊÇÒ»¸ö¹ØÓÚmsgboxµÄÓ÷¨ÊµÀý", vbOKOnly, "×÷ÕßQQ:5201351" 'msgboxÓ÷¨ÊµÀý End Sub 经过上网查询,也未找到乱码的原因,及解决方法,于是笔者想到

vb代码之------FindWindow and FindWindowEx控制其他程序

应该有不少童鞋都喜欢用自己的程序来控制其他程序吧,但是又恨自己技术浅,那么今天给大家带来一个简单的vb控制器 在此之前,我想说一下句柄 对于Win32程序员来说,如果不知道句柄,那么也太逊了吧,那句柄是什么呢?百度百科是这样说的 "个句柄是指使用的一个唯一的整数值,即一个4字节(64位程序中为8字节)长的数值,来标识应用程序中的不同对象和同类中的不同的实例" 首先,你可以知道句柄是一个整数,这个不难理解吧,还有是用来标识应用程序的实例,也就是一个整数标识了一个应用程序.在操作系统中,每

分数序列【VB代码实现】

有一个分数序列 求出这个数列的前20项之和. 代码1 Private Sub Command1_Click() Dim sum As Double Dim a As Integer, b As Integer, t As Integer a = 1 b = 2 sum = 0 For i = 1 To 20 sum = sum + b / a t = a + b a = b b = t Next i Label2.Caption = Str(sum) End Sub 代码2 Private Su

vb代码之-------翻转标题栏

入吾QQ群183435019(学习 交流+唠嗑) 程序结构运行如下 代码 Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib &

vb代码之---打开文件或文件夹属性

打开一个文件夹或者一个文件该怎么写?当然是ShellExecute函数了,但是他不能完成文件属性窗口的调用. 要想调用一个文件的属性窗口,就要用到ShellExecute的扩展ShellExecuteEx了 先看怎么声明 Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long 参数很简单,只有一个SHELLEXECUTEINFOA,

整理BOM时写的关于拆分单元格的VB代码

Public Function AddRows(pos As Integer, amount As Integer) Dim rpos As Integer rpos = pos + 1 For i = 1 To amount ActiveSheet.Rows(rpos).Insert Next i End Function Public Function PasteRows(startPos As Integer, amount As Integer) Dim rStartPos As Int

求前n项的和【VB代码实现】

求的和. For语句实现 Private Sub Command1_Click() Dim s As Long n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i Next i Label4.Caption = Str(s) End Sub Do While语句实现 Private Sub Command1_Click() Dim s As Long, i As Integer, n As Integer n = Val(Text1.Text)

求n的阶乘【VB代码实现】

求 For语句实现 Private Sub Command1_Click() Dim s As Long, n As Integer, i As Integer n = Val(Text1.Text) s = 1 For i = 1 To n s = s * i Next i Label4.Caption = Str(s) End Sub Do While语句实现 Private Sub Command1_Click() Dim s As Long, n As Integer, i As Int