在Visual Basic 2010中将字符串信息保存到SQL Server CE数据库

我的代码有问题。。。但只有当我输入随机字母和数字时，它才起作用。它不会保存诸如姓名和地址之类的实际信息

这是它的代码。SQL代码有点长，因为输入了大量数据

cmd = New SqlCeCommand("INSERT INTO Studentsnew(lname,fname,mname,sex,citizenship,religion,dbirth,pbirth,Address,cityaddress,provaddress,zipcode,telnum,cellnum,Nameoffather,FatherStatus,FatherNationality,FatherAddress,FatherReligion,NameofMother,MotherStatus,MotherNationality,MotherReligion,MotherAddress,MaritalStatus) VALUES (@lname,@fname,@mname,@sex,@citizenship,@relgion,@dbirth,@pbirth,@Address,@cityaddress,@provaddress,@zipcode,@telnum,@cellnum,@Nameoffather,@FatherStatus,@FatherNationality,@FatherAddress,@FatherReligion,@NameofMother,@MotherStatus,@MotherNationality,@MotherReligion,@MotherAddress,@MaritalStatus);", con)

    cmd.Parameters.AddWithValue("@lname", txtLname.Text)
    cmd.Parameters.AddWithValue("@fname", txtFname.Text)
    cmd.Parameters.AddWithValue("@mname", txtMname.Text)
    cmd.Parameters.AddWithValue("@sex", gender)
    cmd.Parameters.AddWithValue("@citizenship", txtNat.Text)
    cmd.Parameters.AddWithValue("@relgion", txtRel.Text)
    cmd.Parameters.AddWithValue("@dbirth", txtBday.Text)
    cmd.Parameters.AddWithValue("@pbirth", txtPoB.Text)
    cmd.Parameters.AddWithValue("@Address", txtAd1.Text)
    cmd.Parameters.AddWithValue("@cityaddress", txtAd2.Text)
    cmd.Parameters.AddWithValue("@provaddress", txtAd3.Text)
    cmd.Parameters.AddWithValue("@zipcode", txtZipCode.Text)
    cmd.Parameters.AddWithValue("@telnum", txtTelephone.Text)
    cmd.Parameters.AddWithValue("@cellnum", txtCellphone.Text)
    cmd.Parameters.AddWithValue("@Nameoffather", txtFatname.Text)
    cmd.Parameters.AddWithValue("@FatherStatus", fstatus)
    cmd.Parameters.AddWithValue("@FatherNationality", txtFatnat.Text)
    cmd.Parameters.AddWithValue("@FatherAddress", txtFatad.Text)
    cmd.Parameters.AddWithValue("@FatherReligion", txtFatrel.Text)
    cmd.Parameters.AddWithValue("@NameofMother", txtMotname.Text)
    cmd.Parameters.AddWithValue("@MotherStatus", mstatus)
    cmd.Parameters.AddWithValue("@MotherNationality", txtMotnat.Text)
    cmd.Parameters.AddWithValue("@MotherReligion", txtmotrel.Text)
    cmd.Parameters.AddWithValue("@MotherAddress", txtMotad.Text)
    cmd.Parameters.AddWithValue("@MaritalStatus", marital)

    If con.State = ConnectionState.Closed Then con.Open()

    cmd.ExecuteNonQuery()

---

已经修复了。。。将

cmd.Parameters

代码更改为如下所示

cmd.Parameters.Add("@lname", SqlDbType.NChar).Value = txtLname.Text

---

已经修复了。。。将

cmd.Parameters

代码更改为如下所示

cmd.Parameters.Add("@lname", SqlDbType.NChar).Value = txtLname.Text