VB2010で出勤簿を作っています。
社員名簿と出勤簿がDataGridviewで作成され、社員名簿のDataは出勤簿に連動しています。
このDataGirdViewのDataを別のＰＣにある出勤簿でも使えるようにしたいので、素人考えでＣＳＶ形式で保存して、ＦＤに移して別のＰＣに入れて使ことにしました。（ＣＳＶ形式でなくても、移動できるのでしたら、そうしたいのですが、方法が分からないので、仕方なくＣＳＶ形式を選びました）
いろいろ勉強しまして、保存方法は習得しましたが、ＣＳＶを読み込む際に、
[コントロールがデータバインドされているとき、DataGridView の行コレクションにプログラムで行を追加することはできません。]
というエラーが出ました。
対処方法をご存知の方が居られましたら、ご教授ください。
コードを記載します。
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim parser As TextFieldParser = New TextFieldParser("savekyoto.csv", Encoding.GetEncoding("Shift_JIS"))
parser.TextFieldType = FieldType.Delimited
parser.SetDelimiters(",") ' 区切り文字はコンマ
'出勤簿のDATAを初期化する
Dim j As Integer
For j = 0 To Me.DataGridView1.Rows.Count - 2
Me.DataSet11.出勤簿.Rows(j).Delete()
Next
While (Not parser.EndOfData)
Dim row As String() = parser.ReadFields() ' 1行読み込み
' 読み込んだデータ(1行をDataGridViewに表示する)
DataGridView1.Rows.Add(row)
End While
End Sub
asp.netでmssql server を利用してログイン機能を実装しました。
以下のようなコードでmssqlに保存してあるIDとパスが一致すれば
以降の画面ではセッションにID、パスが保存され
page loadでセッションにID、パスがなかればページがすすんでいけないような設定にしています。
機能は問題なく動作しているのですがこのような仕様はセキュリティ上問題はないのでしょうか。
商用サイトではないのですが、ある程度広域に向けたサイトを構築しようと考えておりまして、セキュリティ向上のため、工夫できるようなことがあればご意見いただきたいです。
よろしくお願いいたします。
**************************************************************
ログインページ
**************************************************************
Dim staffid As Integer
Dim staffname As String
Dim adminflag As Boolean
Protected Sub btnLogon_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'ユーザーIDの入力チェック
If txtUserID.Text = "" Then
lblErr.Text = "ユーザーIDを入力してください。"
Return
End If
'パスワードの入力チェック
If txtpassword.Text = "" Then
lblErr.Text = "パスワードを入力してください。"
Return
End If
'ユーザーとパスワードの検証
If Not CheckUserPassword(txtUserID.Text, txtpassword.Text) Then
lblErr.Text = "ユーザーIDまたはパスワードが違います。"
Return
End If
'セッション変数へ値をセットする
Session("StaffID") = staffid
Session("StaffName") = staffname
Session("AdminFlag") = adminflag
End Sub
Private Function CheckUserPassword(ByVal userid As String, ByVal password As String) As Boolean
Dim ret As Boolean
Dim strSQL As String
strSQL = "SELECT staffID, staff_name, admin_flag , permission FROM tbl_staff " & _
"WHERE userID = '" & userid.Replace("'", "''") & _
"' AND password = '" & password.Replace("'", "''") & "'"
'接続文字列を取得する
Dim cnStr As String = System.Configuration.ConfigurationManager.ConnectionStrings("hogehogeConnectionString").ConnectionString()
'コネクションを定義する
Using connection As New SqlConnection(cnStr)
'コマンドを定義する
Dim command As New SqlCommand(strSQL, connection)
'コネクションを開く
connection.Open()
Try
'コマンドからデータリーダーを定義する
Dim dr As SqlDataReader = command.ExecuteReader
'データリーダーから結果を読み込む
If dr.Read Then
'対象データが存在する場合
'正しいユーザーIDとパスワードが指定されたので、
'データリーダーから読み出したデータをメンバ変数にセットする
staffid = dr("staffID")
staffname = dr("staff_name")
adminflag = dr("admin_flag")
permission = dr("permission")
ret = True
Else
'対象データが存在しない場合
'不正なユーザーIDまたはパスワードが指定された
ret = False
End If
Catch ex As Exception
'例外処理（SQLエラーなど）
ret = False
End Try
'コネクションを閉じる
connection.Close()
End Using
'結果を返して終了する
Return ret
End Function
**************************************************************
ログイン後に行くページでの設定
**************************************************************
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
'［ユーザーID］ボックスにフォーカスをセットする
If Session("StaffID") Is Nothing Then
Response.Redirect("~/top.aspx")
ElseIf Not Session("AdminFlag") = True Then
Response.Redirect("~/top_normal.aspx")
End If
End Sub
@jouken int
@sql varchar(MAX)
@select varchar(MAX)
@where varchar(MAX)
set @select = 'select * from table1'
set @where = '
where
case
when @jouken = 0 then 'field1 = 1'
when @jouken = 1 then 'field1 = 1 or field2 = 1'
when @jouken = 2 then 'field1 = 1 or field2 = 1 or field3 = 1'
end
'
set @sql=@select+@where
exec(@sql)
上記のような文字列の組み合わせでの作成でやりたいことはできたのですが、
こちらを直接SQLの中でやりたいのです。
以下の文は機能しません。
select * from table1
where
case
when @jouken = 0 then field1 = 1
when @jouken = 1 then field1 = 1 or field2 = 1
when @jouken = 2 then field1 = 1 or field2 = 1 or field3 = 1
end
ご教授の程、よろしくお願い致します
