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

RT      
  插入到数据库没问题     怎么UPDATE就有问题了呢 问题点数：50、回复次数：13Top

1 楼crycoming（瞎编）回复于 2005-08-02 10:02:29 得分 20

SQL语句贴出来Top

2 楼byeshuang（孤独一阵风）回复于 2005-08-02 10:14:04 得分 5

同上，什么都没有怎么知道哪错了？Top

3 楼yanchangshan（草上飞）回复于 2005-08-02 10:42:06 得分 0

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))  
  Top

4 楼yanchangshan（草上飞）回复于 2005-08-02 10:44:00 得分 0

出错原因   是   type     matchTop

5 楼TrueYi（）回复于 2005-08-02 10:47:48 得分 5

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

6 楼yanchangshan（草上飞）回复于 2005-08-02 10:52:08 得分 0

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

7 楼conrad_wan（pineapple）回复于 2005-08-02 11:05:42 得分 5

建议单步调试，是否有变量为空而数据库不允许该字段为空~~~Top

8 楼yanchangshan（草上飞）回复于 2005-08-02 11:09:55 得分 0

我插入的时候可以为空啊，难道更新的时候就不可以为空了吗？Top

9 楼simonlee2003（）回复于 2005-08-02 11:29:22 得分 5

可能有字段是数字类型，   插入空值到这个字段容易出错，你把插入空值变成插入0。Top

10 楼yanchangshan（草上飞）回复于 2005-08-02 12:11:08 得分 0

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

11 楼crycoming（瞎编）回复于 2005-08-02 12:26:59 得分 0

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

12 楼gaohenglove（jack wang）回复于 2005-08-02 17:13:03 得分 5

有可能是crycoming说的情况Top

13 楼tangchuan2005（生存之道）回复于 2005-08-02 19:21:35 得分 5

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

相关问题

• 数据
• 字段
• 数据库
• 插入
• hireyuanyin
• as stringpublic
• 问题
• 为空

• 帖主：yanchangshan
• crycoming
• byeshuang
• TrueYi
• conrad_wan
• simonlee2003
• gaohenglove
• tangchuan2005

• Visual Basic类图书
• Visual Basic类源码下载