Imports System.Data.SqlClientPublic Class TDInsUserInfo Inherits BaseDAO Private Const SP_NAME As String = "spInsertUserInfo" Private ReadOnly _tCls As TUserInfo Sub New(ByVal tCls As TUserInfo) MyBase.New _tCls = tCls End Sub Protected Ov…

ALTER PROCEDURE [dbo].[spInsUserInfo] @UserId VARCHAR(10) ,@UserName NVARCHAR(255) ,@UserPassword VARCHAR(50) ,@UserGrant INT ,@UserStatus INT ,@CreateUserId VARCHAR(10) ,@CreateTimeStamp DATETIME ,@ErrorCode INT OUTPUT ,@ErrorText NVARCHA…

Null許容且つ値がNothingのオブジェクトに下記のような判定処理をした場合、 掲題のエラーとなる。 If Not String.IsNullOrEmpty(TestCreateTimeStamp) TestCreateTimeStamp.ToStringとすればOK。

■仮想メソッド ・実装を持つが、子クラスでOverride可能なメソッド。 Public Overridable Sub TestMethod() Console.WriteLine("仮想メソッド") End Sub Public Overridable Property TestProperty As String = "仮想property" ■抽象メソッド ・実装を持たな…