登录
首页 » VB源码 » VB 6.0 按字段显示数据库所有值

VB 6.0 按字段显示数据库所有值

于 2022-09-25 发布 文件大小:10.47 kB
0 90
下载积分: 2 下载次数: 1

代码说明:

VB 6.0 按字段显示Access数据库所有值,是一个按条件查询数据库的例子,这里的数据库为BOOK2.mdb,核心的代码如下:   Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)   End Sub   Private Sub Form_Load()   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "   Adodc1.RecordSource = "select * from 作者"   Set DataCombo1.DataSource = Adodc1   DataCombo1.DataField = "城市"   Set DataCombo1.RowSource = Adodc1   DataCombo1.ListField = "姓名"   End Sub

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB 6.0 利用文本框组输入数据
    VB 6.0 利用文本框组输入数据,你会发现这量个矩阵类型的输入框,输入完一组数据后,会提示输入第二组,当所有都输入完成后,以3行4列的矩阵方式输出数组元素,输入的过程中支持光标的自动定位功能,你可以了解一些提高输入效率的基本操作,有利于提高软件的使用体验。
    2022-08-17 01:05:20下载
    积分:1
  • VB.NET 人事管理系统 SQLSERVER版
    VB.NET 人事管理系统 SQLSERVER版,这个系统主要是练习VB.NET与数据库方面的操作,功能不复杂,包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时,有一个启动窗口效果,带渐变的动画。
    2022-07-11 07:49:30下载
    积分:1
  • VB6 制作简易谱曲键盘 键盘演奏音乐
    VB6 制作简易谱曲键盘,用键盘演奏音乐,可发出7个基本音符声音,生成 1 到 7 之间的随机数值,每个键值代表一个音符,如窗体所示,每个数字就代表一个声音,这期间要用到定时器。   在如图所示的运行效果中,单击数字后,单击演奏,可听到演奏效果。
    2022-08-04 05:21:26下载
    积分:1
  • vb6.0 字节数组和字符串的相互转换
    vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
    2023-03-14 07:50:04下载
    积分:1
  • VisualBasic 6.0 获取网页超链接
    VisualBasic 6.0 获取网页超链接,VB根据网址打开指定页面,预览网页并获取该页面中所有的超链接,最后会统计出该网页内有多少个链接。   同时本源码还可区分网页中的文本和图片,将剔除图片,在文本中查找超链接个数,主要是针对href进行精准匹配统计出出现的次数,运行效果如下图所示。   具体源代码请下载本源码查看。
    2022-10-27 08:40:03下载
    积分:1
  • VB 利用Tag属性存储用户名
    VB 利用Tag属性存储用户名   If Text1.Text = "" Or Text2.Text = "" Then    MsgBox "用户名或密码不能为空", vbCritical, "信息提示"    Exit Sub   Else    If Text1.Text = "TSoft" And Text2.Text = "111" Then    Me.Tag = Text1.Text    Frm_Main.Show 1    Unload Me    Else    MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"    End If   End If
    2022-02-04 07:45:58下载
    积分:1
  • vb 交换两个变量的值
    vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值,从运行效果截图你可看出这个功能:   If IsNumeric(Txt_a.Text) Then    a = Val(Txt_a.Text)   Else    MsgBox "请输入数字!"    Exit Sub   End If   If IsNumeric(Txt_b.Text) Then    b = Val(Txt_b.Text)   Else    MsgBox "请输入数字!"    Exit Sub   End If   a = a + b   b = a - b   a = a - b   Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
    2023-09-06 03:35:03下载
    积分:1
  • vb.NET模拟扑克牌出牌功能
    vb.NET模拟扑克牌出牌功能,其实可看作是一个界面较简单的扑克牌游戏,界面有些粗糙,没有过多美化,用文字描述了牌面,后续可以对界面进行升级。有点过于简单了,可当作一个初级的VB.NET编程例子吧。
    2022-03-22 04:23:34下载
    积分:1
  • VB 6.0 在字符串中用一子串替换另一子串
    VB 6.0 在字符串中用一子串替换另一子串,采用VB中内置的Replace函数来实现,类似这种的替换字符串方法,在平时使用十分广泛,在WEB编程的ASP/PHP/ASP.NET中,同样使用广泛。本示例中,主要是替换一个字符串中的指定位字符串,将其替换成其它字符。   关于Replace的用法,请看以下代码片段:   Text3.Text = Replace(Text1, Mid(Text1, 2, 2), Text2)
    2022-01-26 05:32:59下载
    积分:1
  • VB 类似超级兔子的程序界面
    VB 类似超级兔子的程序界面,这只是一个应用程序的界面效果,不包括界面菜单中的功能,因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现,整个窗口就是一张图片,但是经过了处理,添加了菜单,其实挺简单的,当时用在一个手机维修管理系统中了,现在发上来,不知道对大家是否有用?
    2022-02-07 20:21:01下载
    积分:1
  • 696518资源总数
  • 105901会员总数
  • 40今日下载