1

我试图插入来自TextBox一个STRING到具有MONEY DATA TYPE但错误提示COLUMN出现,并说:出错,不能添加耐心等待!不允许将数据类型nvarchar隐式转换为数据类型money,表'TblName',列'pTotalDue'。使用CONVERT功能运行此查询字符串到money数据类型的SQL SERVER

我该如何CONVERT它?有人能告诉我该怎么做吗?

这里是我的代码:

Private Function INSERT() As String 
     Dim SQLcon As New SqlConnection 
     Dim SQLdr As SqlDataReader 
     Try 
      SQLcon.ConnectionString = "Data Source=#####;Initial Catalog=#####;Persist Security Info=True;User ID=#####;Password=#####" 
      Dim SQLcmd As New SqlCommand("INSERT INTO dbo.Patients" & _ 
             "(pIDNo,pLName,pFName,pMI,pSex,pStatus,pTelNo,pDocID,pAddr,pStreet,pBarangay,pCity,pProvince,pLNameKIN,pFNameKIN,pMIKIN,pRelationKIN,pTotalDue)" & _ 
             "VALUES(@pIDNo,@pLName,@pFName,@pMI,@pSex,@pStatus,@pTelNo,@pDocID,@pAddr,@pStreet,@pBarangay,@pCity,@pProvince,@pLNameKIN,@pFNameKIN,@pMIKIN,@pRelationKIN,@totaldue)", SQLcon) 
      SQLcmd.Parameters.AddWithValue("@pIDNo", txtPNumber.Text) 
      SQLcmd.Parameters.AddWithValue("@pLName", txtLname.Text) 
      SQLcmd.Parameters.AddWithValue("@pFName", txtFname.Text) 
      SQLcmd.Parameters.AddWithValue("@pMI", txtMI.Text) 
      SQLcmd.Parameters.AddWithValue("@pSex", txtPatientSex.Text) 
      SQLcmd.Parameters.AddWithValue("@pStatus", txtStatus.Text) 
      SQLcmd.Parameters.AddWithValue("@pTelNo", txtPatientTelNo.Text) 
      SQLcmd.Parameters.AddWithValue("@pDocID", txtPatientDoctor.Text) 
      SQLcmd.Parameters.AddWithValue("@pAddr", txtStreetNumber.Text) 
      SQLcmd.Parameters.AddWithValue("@pStreet", txtStreetName.Text) 
      SQLcmd.Parameters.AddWithValue("@pBarangay", txtBarangay.Text) 
      SQLcmd.Parameters.AddWithValue("@pCity", txtCity.Text) 
      SQLcmd.Parameters.AddWithValue("@pProvince", txtProvince.Text) 
      SQLcmd.Parameters.AddWithValue("@pLnameKIN", txtKinLname.Text) 
      SQLcmd.Parameters.AddWithValue("@pFnameKIN", txtKinFname.Text) 
      SQLcmd.Parameters.AddWithValue("@pMIKIN", txtKinMI.Text) 
      SQLcmd.Parameters.AddWithValue("@pRelationKIN", txtRelationToPatient.Text) 
      SQLcmd.Parameters.AddWithValue("@totaldue", txtTotalDue.Text) 
      SQLcon.Open() 
      MsgBox("Patient Added!", MsgBoxStyle.Information) 
      SQLdr = SQLcmd.ExecuteReader() 
     Catch ex As Exception 
      MessageBox.Show("Error Occured, Can't Add Patient!" & ex.Message) 
     Finally 
      SQLcon.Close() 
     End Try 
     Return "" 
    End Function 

BTW我目前使用SQL Server的版本是2005年

回答

3

尝试改变这一行:

SQLcmd.Parameters.AddWithValue("@totaldue", txtTotalDue.Text) 

这样:

SQLcmd.Parameters.Add("@totaldue", SqlDbType.Money).Value = Decimal.Parse(txtTotalDue.Text) 
+0

ok sir Tahbaza I wi我会尝试一下并告诉你结果是什么。 – Danjor 2013-02-15 02:16:11

+0

谢谢!它的工作,但我有我的程序上的表我的另一个问题..., 我输入200,但结果是,SQL SERVER'200.00',但在我的表'200.0000',我可以操纵结果相同的结果在SQL SERVER上? – Danjor 2013-02-15 02:19:26

+0

200与200.0000相同。通过为数据库表中的列选择货币数据类型,您明确选择了字段的大小和精度。有关详细信息,请参阅http://msdn.microsoft.com/en-us/library/ms179882(v=sql.90).aspx。 – Tahbaza 2013-02-15 02:22:30

相关问题