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

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

于 2022-01-25 发布 文件大小:170.10 kB
0 113
下载积分: 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.NET实现附
    一款基于VB.NET和sqlserver数据库实现的考勤程序,实现公司员工的日常考勤功能,可实现指定日期的员工考勤,考勤时可选择考勤天数、考勤人,可查询本人的考勤记录,实现的是挺基本的考勤模块,还可显示当前用户的历史记录。   本实例的数据库文件在db文件夹下,请自行添加,并配置数据库信息。   源代码运行于VS2015环境下。
    2022-12-02 11:45:03下载
    积分:1
  • telnet VB
    一个不错的VB TELNET实现源码,虽然很简单,但是对于新手来说比较容易学习
    2023-02-26 22:25:03下载
    积分:1
  • vb.net 串口通讯测试项目
    vb.net 串口通讯测试项目源码,本源码用于练习SerialPort控件、DataReceived事件、16进制操作,同时用于工程需要。作者:李潇海。   运行后先检测测试需用的COM端口是否打开,弹出提示。   测试时请确保发送周期为正整数!串口测试窗口中,可配置参数:端口、波特率、检验位、数据位、停止位等,支持以十六进制发送和接收数据,还可以毫秒定时发送数据。操作方式上,可设置自动清空测试数据,发送文件或发送数据等。右侧为串口测试时的结果显示区。
    2023-02-14 09:00:03下载
    积分:1
  • vb 设置窗体透明度
    vb 拖动滑块设置窗体透明度,在如图所示的窗体中,有一个滑块可左右滑动,用户可改变滑块的值,来改变窗体的透明度,如图所示是在30%位置的透明度效果,滑块往右,则透明度减小,也就是窗体越清淅,往左则窗口越来越透明。源码运行于VB6.0,欢迎VB爱好者下载研究源码。
    2022-02-04 04:51:17下载
    积分:1
  • VB.NET 人事管理系统 SQLSERVER版
    VB.NET 人事管理系统 SQLSERVER版,这个系统主要是练习VB.NET与数据库方面的操作,功能不复杂,包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时,有一个启动窗口效果,带渐变的动画。
    2022-07-11 07:49:30下载
    积分: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
  • vb 通过程序设置系统日期和时间的格式
    vb 通过程序设置系统日期和时间的格式,设定时可以改变长日期格式,短日期格式,改变时间格式,看着很像是以前Windows XP时候的时间设置窗口的功能。请注意,日期格式设置成功,需要重新启动计算机或注销后可以看到新的短日期格式!以下是改变日期格式其中的一个例子代码,仅供参考:   Dim ret2 As Long   Dim sd As String   ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey)   If ret2 = 0 Then    sd = Combo1.Text    RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode))    MsgBox "日期格式已设置成功,重新启动计算机或注销后可以看到新的短日期格式!", , "提示窗口"   End If
    2023-06-21 17:25:03下载
    积分:1
  • VB6 FileExists判断文件是否存在
    VB6 判断文件是否存在,使用VB内置的函数FileExists来实现,可以说实现方法简单,直接调用函数(文件路径)即可,至于返回的结果,这里有两种形式,一种是以MsgBox的方式弹出窗口告之,另一种是返回布尔值,True或False,然后再进行相关处理。关于FileExists用法,有以下代码供参考:   Dim B As Boolean   B = FileExists(Me.Txt_Path.Text)   If B Then    MsgBox "文件存在"   Else    MsgBox "文件不存在"   End If   以上代码段封装在按钮事件中,用户单击按钮后,执行本段代码,判断指定的文件是否存在。
    2022-07-04 15:21:27下载
    积分:1
  • VB的保存文件对话框调用创建一例
    VB的保存文件对话框调用创建一例,弹出“打开”对话框,还有保存对话框,另存为对话框,通用对话框,cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。   cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
    2022-02-11 13:06:23下载
    积分:1
  • VB.NET邮件发送实例 可发附件
    VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
    2022-08-15 21:36:57下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载