Project フォルダーに SQL SERVER データベース ファイルがあります。Debug フォルダー内の同じファイルのコピー。これら 2 つのファイルを SQL Server に添付します。プロジェクト フォルダ テーブル内のファイルのすべてのフィールドに Null 値が含まれています。しかし、Debug フォルダから添付されたファイルにはデータがあります。Project フォルダー内のファイルを使用して接続文字列を作成しました。実際、どのデータベース ファイルが正しいファイルですか? この問題を解決してみてください。
接続文字列は
Public Conn As SqlConnection
Public Function getConnect() As SqlConnection
Conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\EMP_DB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Return Conn
End Function
そして、これは私のコードです..
Try
getConnect()
Dim query As SqlCommand
Dim strSQL As String
strSQL = "INSERT INTO EMPLOYEE (EMP_ID,EMP_NAME,EMP_FNAME,EMP_GENDER,EMP_DOB,EMP_CAST,EMP_DEPART,EMP_DESIG,EMP_DOJ,EMP_SALARY,EMP_PF_ESI,EMP_BRANCH,EMP_CONTACT,EMP_ADDRESS)VALUES(@EMP_ID,@EMP_NAME,@EMP_FNAME,@EMP_GENDER,@EMP_DOB,@EMP_CAST,@EMP_DEPART,@EMP_DESIG,@EMP_DOJ,@EMP_SALARY,@EMP_PF_ESI,@EMP_BRANCH,@EMP_CONTACT,@EMP_ADDRESS)"
query = New SqlCommand(strSQL, Conn)
query.Parameters.Add(New SqlParameter("@EMP_ID", TXTEMPID.Text))
query.Parameters.Add(New SqlParameter("@EMP_NAME", TXTNAME.Text))
query.Parameters.Add(New SqlParameter("@EMP_FNAME", TXTFNAME.Text))
query.Parameters.Add(New SqlParameter("@EMP_GENDER", gend))
query.Parameters.Add(New SqlParameter("@EMP_DOB", DTPEMPDOB.Value.Date))
query.Parameters.Add(New SqlParameter("@EMP_CAST", TXTCASTE.Text))
query.Parameters.Add(New SqlParameter("@EMP_DEPART", CMBDEPT.Text))
query.Parameters.Add(New SqlParameter("@EMP_DESIG", CMBDESIG.Text))
query.Parameters.Add(New SqlParameter("@EMP_DOJ", DTPEMPDOJ.Value.Date))
query.Parameters.Add(New SqlParameter("@EMP_SALARY", MTXTSAL.Text))
query.Parameters.Add(New SqlParameter("@EMP_PF_ESI", MTXTPFESI.Text))
query.Parameters.Add(New SqlParameter("@EMP_BRANCH", TXTBRANCH.Text))
query.Parameters.Add(New SqlParameter("@EMP_CONTACT", MTXTCONTACT.Text))
query.Parameters.Add(New SqlParameter("@EMP_ADDRESS", RTXTADDRESS.Text))
Conn.Open()
Dim numAffected = query.ExecuteNonQuery()
'MessageBox.Show(numAffected)
Conn.Close()
If numAffected > 0 Then
Call getConnect()
MessageBox.Show("Successfully Added", "Add", MessageBoxButtons.OK, MessageBoxIcon.Information)
BTNCLEAR.PerformClick()
Else
MsgBox("No record was inserted")
End If
Catch ex As Exception
MsgBox("ERROR: " + ex.Message, MsgBoxStyle.Information, "Add")
End Try
End If
このように接続文字列を変更します...
Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\EMP_DB.mdf;Initial Catalog=EMP_DB;Integrated Security=True;Connect Timeout=30;User Instance=False