Location:
Search - vb conn
Search list
Description: 自己写的一个数据库连接组件,很好用.节省开发时间.-To write a database connection components, very good use. To save development time.
Platform: |
Size: 24576 |
Author: 顾思奇 |
Hits:
Description: vb 连接mysql,适合初学者,mysql 采用odbc方式连接-vb connect mysql
Platform: |
Size: 21504 |
Author: workman |
Hits:
Description: 图书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:
Platform: |
Size: 429722 |
Author: cxp9395 |
Hits: