-
VB 使用ODBC DSN连接SQL Server数据库
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
- 2022-01-25 22:59:47下载
- 积分：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 Excel表格生成模块
分享一个VB Excel表格生成模块，借助了模块中的ChangeToExcel.ocx组件来生成，使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。
Excel表格生成模块为该组件的源代码文件，你还可以通过源码对组件功能进行调整。
Demo文件夹下是使用此组件导出Excel文件的例子，单击按钮即可生成Excel文件。
- 2022-11-26 13:10:03下载
- 积分：1
-
VB 6.0 打印与打印预览功能源码
VB 6.0 打印与打印预览功能源码，这个打印预览可以调节预览的放大倍率，在不同的放大状态下预览打印内容，支持打印文字内容和图片的内容，自动调用Windows默认的打印机进行打印，如测试截图所示的效果。
- 2023-05-22 11:35:03下载
- 积分：1
-
VB 6.0将时、分、秒转换为时间
VB 6.0将时、分、秒转换为时间，就是把输入文本框中的内容，重新组合，并添加连接符，形成人们视觉习惯上的时间格式。
其实实现这个功能，不两行代码就可实现了：
Private Sub Command2_Click()
t = TimeSerial(Text1, Text2, Text3)
Label4.Caption = "时间为：" & t
End Sub
- 2022-08-15 03:56:46下载
- 积分：1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版，这个可将窗口分为上下部分、左右部分，可分成二栏、三栏，通过程序左侧的参数设置面板，决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文，这里就不帖代码，你可以单击页面底部的“下载源码”按钮，下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分：1
-
vb RTrim()去除字符串行尾空格
vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定：
Private Sub Command1_Click()
Text2.Text = RTrim(Text1)
End Sub
主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。
- 2022-10-07 20:30:03下载
- 积分：1
-
VB 6 在DataGrid表格中实现下拉列表框
VB 6.0 在DataGrid表格中实现下拉列表框，大家可以看截图，在如演示效果所示的DataGrid表格中，单击“单位”一列任意行数据，会显示出一个下拉框，供输入者选择单位，扩展了DataGrid的功能，增加了易用性，提升了用户体验。添加这一功能的核心代码为：
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "tb_stock"
Set DataGrid1.DataSource = Adodc1
List1.AddItem ("支")
List1.AddItem ("瓶")
List1.AddItem ("盒")
List1.AddItem ("袋")
DataGrid1.Columns(6).Button = True
仅供参考，本示例是配合数据库实现的，请确保测试时数据库是连接的。
- 2022-07-26 04:39:52下载
- 积分：1
-
VB.NET 超市管理系统
VB.NET 超市管理系统，数据库基于SQLSERVER，使Label透明显示，进货管理、售货管理、价格管理、进货查询、售货查询、增加用户管理等。这个示范代码主要是演示VB与SQLSERVER数据库之间的各种操作，大部分是一些数据的基础应用。测试前请先附加好数据库，否则会弹出出错提示。
- 2022-01-26 05:34:54下载
- 积分：1
