Module MDLCOMMON PUBLIC TXTSQL AS STRING 'Store SQL Statement PUBLIC DBSET AS Dataset' Query Get Release Public ErrorMSG AS String 'Storage Error Message
Public Function ExecuteSQL (ByVal strSQL As String, ByRef errMsg As String) As DataSet Dim cnn As SqlClient.SqlConnection Dim cmd As New SqlClient.SqlCommand () Dim adpt As SqlClient.SqlDataAdapter Dim rst As New DataSet () Dim SplitSQL () As String errmsg = "" Try splitsql = split (strsql) cnn = new sqlclient.sqlConnection ("data source = (local); initial catalog = URP; user ID = sa; pwd = 1234")
If InStr ( "INSERT, DELETE, UPDATE", UCase $ (SplitSQL (0))) Then cmd.Connection = cnn cmd.Connection.Open () cmd.CommandText = strSQL cmd.ExecuteNonQuery () Else adpt = New SqlClient.SqlDataAdapter (strsql, cnn) Adpt.Fill (RST) ExecuteSQL = RST End End End EX as Exception Errmsg = ex.Message Finally Rst = Nothing CNN = Nothing End Try End Function End Module Write TXTSQL = " Select .... from ........ "; dbset = executesql (txtsql, errormsg)
