15 Then
sql_command.CommandTimeout = intTimeout
Else
sql_command.CommandTimeout = 15
End If
conn.ConnectionString = connection_string
sql_command.Connection = conn
sql_command.CommandText = sql_text
conn.Open()
daDataAdapter = New SqlClient.SqlDataAdapter(sql_command)
daDataAdapter.Fill(ds, strTableName)
Catch ex As Exception
If caller_name <> "" Then
logg("Calling routine : [" & caller_name & "] *** error executing query in execSql_ds, SQL : " & sql_text & " error : " & ex.Message & vbCrLf & "CommandTimeout = " & intTimeout)
Else
logg("*** error executing query in Balthzar_ExecSql_ds, SQL : " & sql_text & " error : " & ex.Message & vbCrLf & "CommandTimeout = " & intTimeout)
End If
End Try
If conn.State = ConnectionState.Open Then conn.Close()
Return ds
End Function
2024-11-21" />