Search - vb conn

Search - vb conn - List

[SQL Server] ConnDB DL : 0: 自己写的一个数据库连接组件,很好用.节省开发时间.-To write a database connection components, very good use. To save development time.
Date : 2025-07-15 Size : 24kb User : 顾思奇
[Books] vb-mysql-conn DL : 0: vb 连接mysql,适合初学者,mysql 采用odbc方式连接-vb connect mysql
Date : 2025-07-15 Size : 21kb User : workman
[SQL Server] VB 图书馆信息管理系统(SQL) DL : 0: 图书Public Sys_LoginSucceeded As Boolean '用户登录标志 Public Sys_UserID As String '用户ID Public Sys_BorrowTLimited As Integer '借书时限 Public Sys_Borrow2TLimited As Integer '续借时限 Public Sys_MaxBorrow As Integer '最大借书量 Public Sys_MaxFine As Double '最高罚款额 Public Sys_DailyFine As Double '每日罚款 Public ConnectionString As String '数据库连接字符串 Public Sub SetSystemPar() '得到参数值 Dim rst As ADODB.Recordset Dim SQL As String Dim msg As String SQL = "select * from 参数配置表 " Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then '如果存在记录 Sys_BorrowTLimited = rst.Fields("borrowTL") Sys_Borrow2TLimited = rst.Fields("borrow2TL") Sys_MaxBorrow = rst.Fields("maxBooks") Sys_MaxFine = rst.Fields("maxFines") Sys_DailyFine = rst.Fields("finedaily") End If End Sub 'Download by http://www.NewXing.com Public Function GetConnStr() As String '得到数据库连接字符串，用户可以在此处设置连接字符串 GetConnStr = ConnectionString End Function Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean '打开数据库连接，连接成功返回true，出错时返回false Set Conn = New ADODB.Connection '出错处理 On Error GoTo ErrorHandle Conn.Open GetConnStr OpenConn = True Exit Function ErrorHandle:
Date : 2019-03-13 Size : 419.65kb User : cxp9395