Café.
Café.
Public Function GetDataSetProc(ByVal strSql As String) As DataSet Return GetDataSetProc(strSql, DirectCast(Nothing, OleDbParameter())) End Function Public Function GetDataSetProc(ByVal strSql As String, ByVal arProcParams As OleDbParameter()) As DataSet Dim dataSet As New DataSet() Try OpenDBConnection() dataCom.CommandText = strSql dataCom.CommandTimeout = 1000 dataCom.Parameters.Clear() dataAdp.SelectCommand = dataCom If arProcParams IsNot Nothing Then For Each param As OleDbParameter In arProcParams dataCom.Parameters.Add(param) Next End If dataAdp.Fill(DataSet) dataCon.Close() Catch ex As Exception WriteToLog(ex.Message.ToString()) End Try Return DataSet End Function
nchar
nvarchar
ntext
char
varchar
text
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)