mdllib.bas

来自「关于图书馆管理的vfp程序」· BAS 代码 · 共 22 行

Attribute VB_Name = "MdlLib"
Public ColField As String
Public RowPosition As Integer
Public SQL As String
Public UserName As String
Public AdoGeneral As Adodc
Public j
Public UserCardNum As String

Public Sub SqlLoad(sqlstr As String)
Dim SQL As String, mpath As String
mpath = App.Path
If (Right(mpath, 1) <> " \") Then mpath = mpath + "\"
SQL = sqlstr
 
mlink = "provider=microsoft.jet.oledb.3.51;data source=" + mpath + "students.mdb"
AdoGeneral.ConnectionString = mlink
AdoGeneral.CommandType = adCmdUnknown
AdoGeneral.RecordSource = SQL
AdoGeneral.Refresh
End Sub