怪事，我的程序插入数据没问题，如果对插入的数据 进行修改的话 他就跳出来说类型错误

Question

RT  
插入到数据库没问题  怎么UPDATE就有问题了呢

Answer 1

Public EmpId As Long
Public EmpName As String
Public Sex As String
Public Nationality As String
'
Public Birth As String
Public Political_Party As String
Public Culture_Level As String
Public Marital_Condition As String
Public Family_Place As String
'
Public Id_Card As String
Public PcId As String
Public BadgeID As String
Public Office_phone As String
Public Mobile As String
Public Files_Keep_Org As String
Public Hukou As String
Public HireDate As String
Public DepId As Integer
Public Position1 As String
Public Title As String
Public State As Integer
Public UpperId As String
Public Contract_Duration As String
Public Memo1 As String
Public Fillin_Person As String
Public Fillin_Time As String
Public hiredate1 As String
Public hireyuanyin As String
这是插入语句
SqlStmt = "INSERT INTO Employees(EmpName, Sex, Nationality," _
     + " Birth, Political_Party, Culture_Level, Marital_Condition," _
     + " Family_Place, Id_Card, BadgeId, Office_Phone, Mobile," _
     + " Files_Keep_Org, Hukou, HireDate, DepId, Position1, Title," _
     + " State, UpperId, Contract_Duration, Memo1, Fillin_Person, Fillin_Time,hiredate1,hireyuanyin)" _
     + " Values('" + Trim(EmpName) + "','" + Trim(Sex) + "','" + Trim(Nationality) _
     + "','" + Trim(Birth) + "','" + Trim(Political_Party) + "','" _
     + Trim(Culture_Level) + "','" + Trim(Marital_Condition) + "','" _
     + Trim(Family_Place) + "','" + Trim(Id_Card) + "','" + Trim(BadgeID) _
     + "','" + Trim(Office_phone) + "','" + Trim(Mobile) _
     + "','" + Trim(Files_Keep_Org) + "','" + Trim(Hukou) + "','" + Trim(HireDate) _
     + "'," + Trim(DepId) + ",'" + Trim(Position1) + "','" _
     + Trim(Title) + "'," + Trim(State) + "," + Trim(UpperId) _
     + ",'" + Trim(Contract_Duration) + "','" + Trim(Memo1) + "','" _
     + Trim(CurUser.UserName) + "','" + Trim(Fillin_Time) + "','" + Trim(hiredate1) + "','" + Trim(hireyuanyin) + "')"
这是更新语句SqlStmt = "Update Employees Set EmpName='" + Trim(EmpName) _
          + "', Sex='" + Trim(Sex) + "', Nationality='" + Trim(Nationality) _
          + "', Birth='" + Trim(Birth) + "', Political_Party='" + Trim(Political_Party) _
          + "', Culture_Level='" + Trim(Culture_Level) + "',Marital_Condition='" _
          + Trim(Marital_Condition) + "', Family_Place='" + Trim(Family_Place) _
          + "', Id_Card='" + Trim(Id_Card) + "', BadgeID='" + Trim(BadgeID) _
          + "', Office_phone='" + Trim(Office_phone) + "',Mobile='" + Trim(Mobile) _
          + "',Files_Keep_Org='" + Trim(Files_Keep_Org) + "', Hukou='" _
          + Trim(Hukou) + "', HireDate='" + Trim(HireDate) + "', DepId=" + Trim(Str(DepId)) _
          + ", Position1='" + Trim(Position1) + "', Title='" + Trim(Title) + "',State=" _
          + Trim(Str(State)) + ", UpperId=" + Trim(Str(UpperId)) + ", Contract_Duration='" _
          + Trim(Contract_Duration) + "', Memo1='" + Trim(Memo1) + "',Fillin_Person='" _
          + Trim(CurUser.UserName) + "',Fillin_Time='" + Trim(Fillin_Time) + "', hiredate1=" + Trim(Str(hiredate1)) + "', hireyuanyin=" + Trim(Str(hireyuanyin)) _
          + "' WHERE EmpId=" + Trim(Str(OriEmpId))

Answer 2

出错原因 是 type  match

Answer 3

是什么数据库,如果是access就有可能是关系的问题...

Answer 4

是access的，  关系？我的数据库里面就是一个表啊，没有什么关系啊，    我新建一条数据可以插入到数据库这张表里面
然后，我对这条数据进行更新 ，其实没改动任何数据，   它也跳出出错   真郁闷

Answer 5

总共就两个 Integer  而且这两个是关键的字段 肯定不会为空的

Answer 6

hireyuanyin=" + Trim(Str(hireyuanyin)) _
          + "' WHERE EmpId=" + Trim(Str(OriEmpId))
            ~~~
最后一个只有一个引号，加成双就好了

Answer 7

你把SQL语句在vb的数据库软件中运行一下，看看有没有错！1