随笔分类 - VB 数据库开发
基于VB的数据库开发
摘要：现象如下图所示，提示信息为”0x0055a8ea”指令引用的”0x608af85c”内存。该内存不能为”read”。解决方案：VB6→外接程序→外接程序管理器→Source Code Control→"加载／卸载"和"在启动中加载"单选框的勾去掉。如下图所示
阅读全文
摘要：'**************************************************'函数说明:用于数据非科学记数法显示'制作者:Temptation'**************************************************PrivateSubWorksheet_Activate()DimiAsIntegeri=2'起始操作行数DoCells(i,1)...
阅读全文
摘要：A1 年月日A2 年月日A3=ABS(MONTH(A2)-MONTH(A1)+(YEAR(A2)-YEAR(A1))*12)A4=CONCATENATE(INT((ABS(MONTH(A2)-MONTH(A1)+(YEAR(A2)-YEAR(A1))*12))/12),"year",MOD((ABS(MONTH(A2)-MONTH(A1)+(YEAR(A2)-YEAR(A1))*12)),12),...
阅读全文
摘要：1.把以下代码做成一个bas文件 Option Explicit Public Const MAX_WSADescription = 256 Public Const MAX_WSASYSStatus = 128 Public Const ERROR_SUCCESS As Long = 0 Public Const WS_VERSION_REQD As Long = ...
阅读全文
摘要：北京计算机学院信息所(100044)余正 在Visual Basic中用OLE Automation方法访问Oracle数据库,其可行性可从两方面加以分析。 在Server端,Oracle提供了如Sql *Plus、Sql*Form、Sql*Report、Pro*C等应用程序开发界面。 但是,考虑到微软产品在当前市场上的地位,如能提供诸如Visual C++,Visual Basic程序对Ora...
阅读全文
摘要：问题 : 如何去掉ACCESS窗体左下方的记录栏 ? 答案 : 在中文ACCESS中,将窗体属性中的【浏览按钮】设定为"否" 在日文ACCESS中,将窗体属性中的【移動ボタン】设定为"いいえ"
阅读全文
摘要：Private Sub txt文字_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = 13) Or (KeyCode = 9) Then End If End Sub Private Sub txt文字_KeyPress(KeyAscii As Integer) If (Len(txt...
阅读全文
摘要：在VBA的开发中,有时需要浏览PDF文件,有2种方法可以使用 方法1. 使用SHELL Private Sub btnReadPDF_Click() Dim RetVal As String RetVal = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe D:\test.pdf", 1) End Su...
阅读全文
摘要：在VBA的开发中,遇见一个小问题,如何让access一运行就直接打开窗体? 答 : "菜单栏"的"工具"-->"启动"中设置.
阅读全文
摘要：format$(表达式,"0") Round Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。 Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。 晚上...
阅读全文
摘要：Dim fso As New FileSystemObject Dim fil As File Dim ts As TextStream Set fso = CreateObject("Scripting.filesystemobject") Dim yy, y1, y2, y3 y1 = f...
阅读全文
摘要：Function replace(ByVal sstr As String, ByVal stag As String, ByVal srep As String) As String Dim l1, l2, l3, x, i As Long Dim st As String x = InStr(sstr, stag) If x 0 Then Re...
阅读全文
摘要：编程要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，为什么要用更多的代码呢？现在介绍VB中一些可用一行代码完成的技巧。 1、下列代码，则是对逻辑运算不清楚造成 If A=true ThenC= Not BElseC= BEnd If 可以： ...
阅读全文
摘要：Option ExplicitPrivate Sub Form_Load() Dim i As Integer Dim itemx As ListItem ListView1.View = lvwReport With ListView1.ColumnHeaders .Add , , "编号", 600, lvwColumnLeft For i = ...
阅读全文
摘要：引子 大师为一帮初学者讲解VB之道。 初学者问道：“VB很容易学习吗？” 大师答道：“是的。” 初学者问道：“VB的结构很简单吗？” 大师答道：“是的。” 初学者又问道：“VB程序很慢吗？” 大师轻轻咳嗽了一下：“呃，今天就讲到这里吧。” 内篇 1、 大师如是说：“人如果明确自己的位置，就可以避免不必要的烦恼；变量如果明确自己的类型，就可以避免不必要的错误。” 2、 大师去参观另一个高手的程序，对...
阅读全文
摘要：图：Ping通的情况 图：Ping失败的情况 下面是源代码(VB6)：(完善的出错控制，所以是个好函数） Option Explicit Private Const IP_SUCCESS As Long = 0Private Const IP_STATUS_BASE As Long = 11000Private Const IP_BUF_TOO_SMALL As Long = (11000 +...
阅读全文
摘要：'————————（1）————————————'获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明'Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lp...
阅读全文
摘要：全面控制 Excel首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := \'应用程序调用 Microsoft Excel\';3) ...
阅读全文
浙公网安备 33010602011771号