constring.bas

来自「学生信息管理系统用vb做的 学生信息管理系统用vb做的」· BAS 代码 · 共 11 行

Attribute VB_Name = "ModConString"
'定义一个属性过程反映连接字符串
Public Property Get conString() As Variant
conString = "data source=.;initial catalog=Sims_four;user id=sa;password=;"
End Property
'定义一个提供者反映数据库类型
Public Property Get conProvide() As Variant
conProvide = "sqloledb"
End Property