登录
首页 » VB源码 » VB 使用ODBC DSN连接SQL Server数据库

VB 使用ODBC DSN连接SQL Server数据库

于 2022-01-25 发布 文件大小:170.10 kB
0 35
下载积分: 2 下载次数: 1

代码说明:

VB 6 使用ODBC DSN连接SQL Server数据库,要想运行本实例,首先需要附加SQL数据库,然后配置ODBC,ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中,当用户单击按钮后,开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据,并绑定到MSHFlexGrid控件中显示,运行效果请见截图。主代码:   Dim cn As New ADODB.Connection   Dim rs As New ADODB.Recordset   cn.Open DSN=RSDAGLXT;Uid=sa;Pwd=   rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic   Set MSHFlexGrid1.DataSource = rs   MSHFlexGrid1.ColWidth(0) = 100

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

发表评论

0 个回复

  • VB 写的拼图 用数字代表图片
    VB 写的拼图 用数字代表图片,将数字的顺序排列好,就完成了拼图,比起图片版的拼图,要简单多了。   玩法:将数字1挪动到最开始的位置,如何移动?要把占位的数字一个一个挪开,依次为1、2、3等数字让位,把整体排序好,就拼好了。
    2022-07-23 16:53:18下载
    积分:1
  • VB.net 生成条形code128条
    VB.net绘制生成code128条形码的例子,另外还有EAN128、包括了Code128 A/B/C类型的条形码,程序非常好用,在文本框输入规定要求的数据,即时输入,即时生成。程序中为生成条形码,创建了一些函数,比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等,在VB.NET生成条形码的朋友,本范例源码是个很好的参考。
    2022-02-14 15:50:30下载
    积分:1
  • VB6.0 顺序文件写操作的操作演示
    VB6.0 顺序文件写操作的操作演示,三种方法写数据,包括了完整的源码项目下载,是学习VB文件读写操作的好范例。   这三种方法是:   把文件的内容一次性的写入   把字符一个一个写入   依次写入顺序文件
    2022-01-26 17:24:14下载
    积分:1
  • VB 实现FTP功能的小程序 包括FTP操作类
    VB 实现FTP功能的小程序 包括FTP操作类,将诸多功能收集到一块,实现了一个简单的FTP客户端程序,可用来下载和上传一些文件,该程序由busywxp改编,修复了源程序中的一些bug。现在可程序可完成文件编码类型的切换,比如ASCII、二进制的转换,还可选择传输的类型是主动类型或是被动类型,程序窗口基于分隔条进行分割,用于显示不同的功能,你可了解超多的VB网络编程知识和窗口可视化的相关操作。
    2022-06-30 23:29:33下载
    积分:1
  • VB NET sqlserver 销售管理系统
    VB NET sqlserver 销售管理系统,销售业务,销售发货,销售退货,回款管理,统计报表,基础信息管理、系统设置、备份和恢复数据、货品基本信息管理、业务员管理等。   版权所有(C) 作者个人自由创作室   VB.NET 销售管理系统 V1.0,SQLSERVER2000数据库。
    2022-03-16 19:52:06下载
    积分:1
  • VB.NET Try Catch Finally用法演示
    VB.NET 演示带Finally的Try Catch 异常处理用法演示,这个源码就是捕捉VB.NET运行错误的,结合了最常规的try catch组合,并且使用了Finally处理的情况,那么为什么要使用Finally呢?使用Finally的好处是,把资源释放或状态还原的代码放到finally块中,可以保证在try和catch语句执行完后,一定会执行finally语句块,而不用考虑各种复杂的跳转情况。
    2023-05-11 05:35:04下载
    积分:1
  • VB6.0 改变扩展名保护Access数据库
    VB6.0 改变扩展名保护Access数据库,也就是让用户修改Access数据库的扩展名,之前可能禁止改变,但本代码介绍的方法允许修改扩展名,以下是本例子核心功能部分的完整源码,仅供参考:   Private Sub Form_Load()    Dim cnnstr As String    cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"    cn.Open cnnstr    Adodc1.ConnectionString = cnnstr    Set Picture1.DataSource = Adodc1    Picture1.DataField = "文件"   End Sub   Private Sub Form_Unload(Cancel As Integer)    cn.Close   End Sub
    2022-05-16 07:33:58下载
    积分:1
  • VB利用地址偏移访问内存
    VB利用地址偏移访问内存,整个处理过程 封装在事件函数中,用户单击后,执行以下代码:   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)   Private Sub Form_Load()    Dim i As Long    Dim j As Long    i = 1234    j = 4321    Debug.Print VarPtr(i)    Debug.Print VarPtr(j)    CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4    Text1.Text = i   End Sub
    2022-08-20 12:19:05下载
    积分:1
  • VB OutLook折叠展开的主界面菜单
    VB OutLook式主界面菜单,可折叠和展开,类似WindowsXP的界面左侧菜单,如示例图所示,本示例菜单效果请看左侧的图文式菜单,鼠标单击后可向下滑开,显示出二级的图文菜单,再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用,本源码是仿写的这种菜单。
    2022-05-14 02:45:19下载
    积分:1
  • VB演示操作存储过程的方法
    VB演示操作带参数和不带参数的存储过程的方法,通过一个数据库查询来体现功能的差别。同时还包括了创建存储过程信息。   我们从打开数据链接开始,演示如何简单创建一个存储过程,下面是核心的几何代码:   con.Open   con.Execute ("Create Procedure book1 @price int As Select * From 书名 where 单价>=@price")   MsgBox "成功创建存储过程"   con.Close   SQL语句是一个查询书名对应价格的例子,仅供参考。
    2022-01-25 20:38:51下载
    积分:1
  • 696518资源总数
  • 104353会员总数
  • 66今日下载