mod_db_sql.bas

用VB写的学生成绩管理系统

Attribute VB_Name = "mod_DB_SQL"
Option Explicit
'cn表示数据库连接头，rs表示表连接头，后连数据库或表名
Public cn_sql As New ADODB.Connection
Public rs_RenZheng_LaoShi As New ADODB.Recordset
Public rs_RenZheng_XueSheng As New ADODB.Recordset
Public rs_KeChengBiao As New ADODB.Recordset
Public rs_ChengJiBiao As New ADODB.Recordset
Public rs_XueShengBiao As New ADODB.Recordset


'连接SQL数据库
Public Function lianjie() As Boolean
On Error GoTo line
    cn_sql.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123;Initial Catalog=student"
    cn_sql.CursorLocation = adUseClient
    cn_sql.ConnectionTimeout = 30
    cn_sql.Open
    lianjie = True
    Exit Function
line:
    MsgBox "连接数据库错误!!!"
    lianjie = False
End Function

'连接表：rs_RenZheng_LaoShi
Public Function lianjie_RenZheng_LaoShi() As Boolean
On Error GoTo line
    rs_RenZheng_LaoShi.Open "RenZheng_LaoShi", cn_sql, adOpenDynamic, adLockPessimistic
    lianjie_RenZheng_LaoShi = True
    Exit Function
line:
    MsgBox "连接老师登陆表错误!!!"
    lianjie_RenZheng_LaoShi = False
End Function

'连接表：rs_RenZheng_XueSheng
Public Function lianjie_RenZheng_XueSheng() As Boolean
On Error GoTo line
    rs_RenZheng_XueSheng.Open "RenZheng_XueSheng", cn_sql, adOpenDynamic, adLockPessimistic
    lianjie_RenZheng_XueSheng = True
    Exit Function
line:
    MsgBox "连接学生登陆表错误!!!"
    lianjie_RenZheng_XueSheng = False
End Function
'连接表：rs_KeChengBiao
Public Function lianjie_KeChengBiao() As Boolean
On Error GoTo line
    rs_KeChengBiao.Open "KeChengBiao", cn_sql, adOpenDynamic, adLockPessimistic
    lianjie_KeChengBiao = True
    Exit Function
line:
    MsgBox "连接课程表错误!!!"
    lianjie_KeChengBiao = False
End Function
'连接表：rs_ChengJiBiao
Public Function lianjie_ChengJiBiao() As Boolean
On Error GoTo line
    rs_ChengJiBiao.Open "ChengJiBiao", cn_sql, adOpenDynamic, adLockPessimistic
    lianjie_ChengJiBiao = True
    Exit Function
line:
    MsgBox "连接成绩表错误!!!"
    lianjie_ChengJiBiao = False
End Function
'连接表：rs_XueShengBiao
Public Function lianjie_XueShengBiao() As Boolean
On Error GoTo line
    rs_XueShengBiao.Open "XueShengBiao", cn_sql, adOpenDynamic, adLockPessimistic
    lianjie_XueShengBiao = True
    Exit Function
line:
    MsgBox "连接学生联系错误!!!"
    lianjie_XueShengBiao = False
End Function