hwmys-优快云博客

原创【源代码共享】VB+ADO导出EXCEL

把系统中常用的导出EXCEL的代码贴出来与大家共享Public Sub OutExcel(ByVal Myrestr As ADODB.Recordset, ByVal outFile As String, ByVal toTal1 As String, ByVal toTal2 As String)导出EXCEL文件说明：Myrestr为已生成需要导出的数据集

2009-12-12 16:45:00 3787 5

这样做的好处是LLM可以更好的概括论文中相关章节的内容，产生更全面的答案，帮助读者更好地理解论文。姓名/名字'TAB'电话/手机/微信'TAB'最高学历（高中，职高，硕士，本科，博士，初中，中技，中专，专科，专升本，MPA，MBA，EMBA）供应商/供货商'TAB'颜色（黄色、红色、棕色）'TAB'性别（男、女）'TAB'尺码（M、L、XL、XXL）支持的文件格式为DOCX、EXCEL、PPT、IMAGE、PDF、TXT、MD、JSON、EML、HTML。支持的文件格式为DOCX、PDF、TXT。

2025-02-17 09:54:52 4967 1

原创 Docker Desktop如何恢复出厂设置

在测试dify、ragfow等几个模型过程中，各种拉镜像建容器，导致错误提示“AssertionError(Can t access Redis. Please check the Redis status.)”，两个模型都无法使用，如何清空重建？

2025-02-14 10:11:29 558 1

转载多条件查询存储过程-SQL Server

多条件查询存储过程多条件查询存储过程例一create proc pr_select_Natural( @CDATE datetime, @FAC_NAME varchar(50), @BATTERY_TYPE varchar(20), @MAKE_MODE varchar(20), @PRODUCE_MODE varchar(20), @YEAR char(4), @MONT

2009-12-18 15:48:00 2672 2

原创 treeview控件之我用

这是我常用的treeview控件代码说明： 1、treeview控件名称：tvwDB_ALar 2、表BasicName存放“报警类别”，三级分类（如：户内－气表－泄漏） 3、BasicName.code6为第一类，BasicName.code4为第二类，code1,code2就是明细编号和名称。（若继续分类，在循环里再加） 4、build0、build1、build2为关联ImageList

2008-05-28 18:33:00 1284

原创捣蛋的紫光拼音V6

刚买了台DELL D520本本，自选的配置：酷睿2 T5500，1G内存，7200转80G硬盘，装了Windows XP系统，装了需要的一切，装了VB6，然后装了最新的紫光拼音版本V6，并设为默认输入法，捣蛋的日子来了....... 1、XP登陆经常会停在“正在加载个人设置...”，等了N久，只能关电源重启，有时要反复几次才能进入。 2、经常与VB6冲突，编译成EXE时报

2007-11-17 17:52:00 1659

原创调节分辨率的函数

在启动软件前调整为所需的分辨率并保存之前的分辨率，关闭软件后恢复原先的分辨率。函数用法：启动软件调整为我需要的分辨率及色板：Call ScreenBat(1024, 768, 16, "1024")关闭软件恢复原先分辨率：Call ScreenBat(1024, 768, 16, "old")Public Declare Function EnumDisplaySettings L

2007-11-17 17:19:00 1606 1

原创无法注册：DAO350.dll，THREED32.OCX的解决方案

原因：XP下打包的文件在98下安装后，出现很多控件无法注册，查找了资料后再进行测试，发现问题所在。从其它98机子上拷来Msvcrt40．dll（版本4.22.0000），成功！解决的问题1、无法注册的文件：DAO350．dll，THREED32.OCX2、VB无法安装

2007-04-17 16:31:00 10705 1

原创界面录入时，利用回车键、上下箭头移动光标！

前提：text1控件组的“TabIndex ”顺序需预先设置。Private Sub Text1_GotFocus(Index As Integer)SendKeys "{End}+{Home}"End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)If KeyCode

2007-04-15 21:43:00 2217 1

原创我常用的小模块-自动在数字、字符混合的编号后加1

Public Function NuNext(NuPriv) As StringDim Nuno%, NN%, Nutex1 As StringNuno% = Len(NuPriv)For NN% = Nuno% To 1 Step -1Nutex1 = Mid(NuPriv, NN%, 1)If Not (Asc(Nutex1) = 48) Then Exit ForNext NN%Nu

2006-08-26 10:01:00 1118

原创我常用的小模块-自动剔除单引号

Public Function ChekMYD(SMy) As StringDim smyd As Stringsmyd = ""pos = InStr(SMy, smyd)While pos > 0SMy = Mid(SMy, 1, pos - 1) & "ˊ" & Mid(SMy, pos + 1)pos = InStr(pos + 2, SMy, smyd)WendChekMYD = SM

2006-08-26 09:59:00 969

原创我常用的小模块-自动生成简体中文拼音码

*******************************************Public Function GetTextFirstLetter(strText As String) As String求出一字串的全部首字母Dim t As IntegerDim strTempLetters As StringFor t = 1 To Len(Trim(strText))

2006-08-26 09:47:00 1397

《ADO.net+VB.net数据库应用开发指南》范例及相关数据库

《ADO.net+VB.net数据库应用开发指南》作者: 章立民编著出版日期: 2004年09月第1版 ---------------------------- 本书使用130个以上短小而实用的例子，引领您攻占ADO.NET的核心领域。详细介绍ADO.NET的各个组件，为您奠下扎实根基。演示Windows Forms的数据架构与数据连接。演示新增、修改、删除与搜索的并行输出输入接口。演示BLOB值的读取、写入与显示。演示如何将数据集的更新写回数据源。 ---------------------------- 下载内容：范例源代码及北风贸易数据库注：第四节代码已转换为VB2005

2010-02-19

xinference启动后如何自动加载上次已运行模型？

2025-03-22

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

我用VB编程滴