module1.bas

来自「一个vb的mis系统」· BAS 代码 · 共 12 行

Attribute VB_Name = "Module1"
'执行TSQL函数
Public Function runtsql(ByVal tsql As String) As Boolean
    Dim con As New ADODB.Connection
    con.ConnectionString = "driver={SQL Server};server=.;uid=sa;pwd=;database=master"
    con.ConnectionTimeout = 5
    con.Open
    con.Execute (tsql)
    con.Close
    runtsql = True
End Function