我在 Project 文件夹中有 SQL SERVER 数据库文件。Debug 文件夹中的相同文件副本。我在 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