SqlConnection中，有关insert into 存在的问题？？？？

Private   Sub   BtAdd_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   BtAdd.Click  
                  Try  
                          If   Trim(TxtGoodsNumber.Text)   <>   Nothing   Then  
                                  If   TxtYear.TextLength   =   4   And   Val(TxtDay.Text)   <   32   And   Val(TxtDay.Text)   >   0   Then  
                                          Dim   comstr   As   String  
                                          Dim   datestr   As   String  
                                          datestr   =   TxtYear.Text   &   "-"   &   CmbMonth.Text   &   "-"   &   TxtDay.Text  
                                          comstr   =   "insert   into   进货表   (商品名,品名,规格,单位,产地,类型,级别,进价,批发价,零售价,进货日期,进货数量,供货商,供货商信息)     values("   &   Trim(TxtGoodsNumber.Text)   &   ",'"   &   TxtGoodsName.Text   &   "','"   &   Trim(TxtSpec.Text)   &   "','"   &   Trim(TxtUnit.Text)   &   "','"   &   Trim(TxtProducing.Text)   &   "','"   &   CmbType.Text   &   "','"   &   Trim(TxtDistinction.Text)   &   "','"   &   Trim(TxtPrice.Text)   &   "','"   &   Trim(TxtTradePrice.Text)   &   "','"   &   Trim(TxtRetailPrice.Text)   &   "','"   &   datestr   &   "','"   &   Trim(TxtAmount.Text)   &   "','"   &   Trim(TxtProvider.Text)   &   "','"   &   Trim(TxtProviderIfo.Text)   &   "')"///为什么程序运行到这时，就跳出？？？？  
                                          Dim   sqlcom   As   New   SqlCommand(comstr,   SqlConnection1)  
                                          SqlConnection1.Open()  
                                          sqlcom.ExecuteNonQuery()  
                                          MsgBox("添加成功")  
                                  Else  
                                          MsgBox("日期填写有误！")  
                                          Exit   Sub  
                                  End   If  
                          Else  
                                  MsgBox("商品号不能为空!")  
                                  TxtGoodsNumber.Focus()  
                                  Exit   Sub  
                          End   If  
                  Catch   ex   As   Exception  
                          MsgBox("已有同种货物存在!",   MsgBoxStyle.Information,   "提示")  
                  Finally  
                          SqlConnection1.Close()  
                  End   Try  
          End   Sub 问题点数：20、回复次数：7Top

1 楼youlongzaitian（游龙在天）回复于 2004-11-03 20:31:37 得分 0

没有任何错误信息吗？加个事务处理看看错误信息!Top

2 楼yelook（香槟酒）回复于 2004-11-03 20:46:04 得分 5

把sql语句打印出来放到查询分析器中调试一下Top

3 楼follyfour（傻四）回复于 2004-11-03 21:23:28 得分 0

这句真够乱的  
  messagebox.show(Trim(TxtGoodsNumber.Text))  
  。。。。  
  一个一个的通过断点或显示来检查你的字符串，里面有错误呗。  
   
  最大的可能性是里面有空值，或者是引号使用混乱，这么多不乱都难。Top

4 楼ianok（再菜我也要up出個星來）回复于 2004-11-03 21:25:46 得分 0

luan  
  Top

5 楼hj7396（豇豆）回复于 2004-11-03 21:32:24 得分 5

单步跟踪到comstr   =   "insert   into   这一行，执行，然后将comstr放入监视窗口中，copy出comstr的值，粘贴到sql   query中执行，很容易可以看到错误所在。Top

6 楼shengrong_cai（95至尊）回复于 2004-11-03 22:20:59 得分 10

大哥编程要规范！  
  请用存储过程！  
  传入参数极好又清楚！  
  你这种写法当心‘   号！你的程序就崩溃了！Top

7 楼zkoochineseoozk（我是中国人）回复于 2004-11-25 15:06:47 得分 0

我好像也遇到这个问题了，难道这么写不对吗？出错提示是－第   1   行:   ','   附近有语法错误。    
  到底哪里错了？是不是不能这么写的Top

相关问题

• 信息
• comstr
• txtgoodsnumber
• trim
• sqlconnection
• datestr
• msgbox
• 错误
• insert
• sub

• 帖主：yuanl
• yelook
• hj7396
• shengrong_cai

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载