主题：字符串多行插入

汗！根据自己的业务功能需要呀，想怎么用都行。按钮里写什么代码，做什么功能你说了算

我会了

 

 

此主题相关图片如下：1.png

 

老师，这个是啥情况

 

cmd.CommandText = "Insert Into  person (cardID, age, birth,tel,jiguan,rational,edu,health,workdate,name,politicalStatus,hobbies,"& _
                                        "retiredPost,title,address,leaOrRetire,retireTime,proTecPost,proSpecialty,partyBranch,"& _
                                        "partyTime,presonalClass,organName,partyStanding,retiredDep,guanZhu,jianli,sex,fuZhu)"& _
                                        "Values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"

cmd.Parameters.Add("@fuZhu",“fuZhu”)

对于每一个参数都要有默认值么？不能为空么？

 

 

此主题相关图片如下：1.png

最后一列无效不知为啥

 

貌似是少了一个问号，问号的数量要和列数量，以及参数数量一致。我测试是可以插入空值的

此主题相关图片如下：1.png

 

老师，又有这么一个错误？

''获得各个控件的值
Dim name      As String = e.Form.Controls("name").Value
Dim cardID    As String = e.Form.Controls("cardID").Value
Dim age       As Integer = e.Form.Controls("age").Value
Dim birth     As Date = e.Form.Controls("birth").Value
Dim sex       As String = e.Form.Controls("sex").Value
Dim tel       As String = e.Form.Controls("tel").Value
Dim jiguan    As String = e.Form.Controls("jiguan").Value
Dim health    As String = e.Form.Controls("health").Value
Dim rational  As String = e.Form.Controls("rational").Value
Dim partyTime       As Date = e.Form.Controls("partyTime").Value
Dim partyStanding   As String = e.Form.Controls("partyStanding").Value
Dim politicalStatus As String = e.Form.Controls("politicalStatus").Value
Dim leaOrRetire     As String = e.Form.Controls("leaOrRetire").Value
Dim presonalClass   As String = e.Form.Controls("presonalClass").Value
Dim edu             As String = e.Form.Controls("edu").Value
Dim hobbies         As String = e.Form.Controls("hobbies").Value
Dim organName       As String = e.Form.Controls("organName").Value
Dim guanZhu         As String = e.Form.Controls("guanZhu").Value
Dim workdate        As Date   = e.Form.Controls("workdate").Value
Dim retiredPost     As String = e.Form.Controls("retiredPost").Value
Dim title           As String = e.Form.Controls("title").Value
Dim address         As String = e.Form.Controls("address").Value
Dim retireTime      As Date = e.Form.Controls("retireTime").Value
Dim proTecPost      As String = e.Form.Controls("proTecPost").Value
Dim proSpecialty    As String = e.Form.Controls("proSpecialty").Value
Dim partyBranch     As String = e.Form.Controls("partyBranch").Value
Dim retiredDep      As String = e.Form.Controls("retiredDep").Value
Dim jianli          As String = e.Form.Controls("jianli").Value

 
 
'
''插入数据库
cmd.CommandText = "Insert Into  person (cardID, age, birth,tel,jiguan,rational,edu,health,workdate,name,politicalStatus,hobbies,"& _
                                        "retiredPost,title,address,leaOrRetire,retireTime,proTecPost,proSpecialty,partyBranch,"& _
                                        "partyTime,presonalClass,organName,partyStanding,retiredDep,guanZhu,jianli,sex,fuZhu)"& _
                                        "Values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@cardID","cardID")
cmd.Parameters.Add("@age","age")
cmd.Parameters.Add("@birth","birth")
cmd.Parameters.Add("@tel","tel")
cmd.Parameters.Add("@jiguan","jiguan")
cmd.Parameters.Add("@rational","rational")
cmd.Parameters.Add("@edu","edu")
cmd.Parameters.Add("@health","health")
cmd.Parameters.Add("@workdate","workdate")
cmd.Parameters.Add("@name","name")

cmd.Parameters.Add("@politicalStatus","politicalStatus")
cmd.Parameters.Add("@hobbies","hobbies")
cmd.Parameters.Add("@retiredPost","retiredPost")
cmd.Parameters.Add("@title","title")
cmd.Parameters.Add("@address","address")
cmd.Parameters.Add("@leaOrRetire","leaOrRetire")
cmd.Parameters.Add("@retireTime","retireTime")
cmd.Parameters.Add("@proTecPost","proTecPost")
cmd.Parameters.Add("@proSpecialty","proSpecialty")
cmd.Parameters.Add("@partyBranch","partyBranch")

cmd.Parameters.Add("@partyTime","partyTime")
cmd.Parameters.Add("@presonalClass","presonalClass")
cmd.Parameters.Add("@organName","organName")
cmd.Parameters.Add("@partyStanding","partyStanding")
cmd.Parameters.Add("@retiredDep","retiredDep")
cmd.Parameters.Add("@guanZhu","guanZhu")
cmd.Parameters.Add("@jianli","jianli")
cmd.Parameters.Add("@sex","sex")
cmd.Parameters.Add("@fuZhu","fuZhu")

 

 

红色那个参数有问题吗？还是定义有问题

不需要双引号，回去重新看看Foxtable编程这章内容

 
此主题相关图片如下：1.png

''插入数据库
cmd.CommandText = "Insert Into  person (cardID, age, birth,tel,jiguan,rational,edu,health,workdate,name,politicalStatus,hobbies,"& _
                                        "retiredPost,title,address,leaOrRetire,retireTime,proTecPost,proSpecialty,partyBranch,"& _
                                        "partyTime,presonalClass,organName,partyStanding,retiredDep,guanZhu,jianli,sex,fuZhu)"& _
                                        "Values(?,?,?,?,?,  ?,?,?,?,?,  ?,?,?,?,?,  ?,?,?,?,?,  ?,?,?,?,? ,?,?,?,?)"
cmd.Parameters.Add("@cardID",cardID)
cmd.Parameters.Add("@age",age)
cmd.Parameters.Add("@birth",birth)
cmd.Parameters.Add("@tel",tel)
cmd.Parameters.Add("@jiguan",jiguan)
cmd.Parameters.Add("@rational",rational)
cmd.Parameters.Add("@edu",edu)
cmd.Parameters.Add("@health",health)
cmd.Parameters.Add("@workdate",workdate)
cmd.Parameters.Add("@name",name)

cmd.Parameters.Add("@politicalStatus",politicalStatus)
cmd.Parameters.Add("@hobbies",hobbies)
cmd.Parameters.Add("@retiredPost",retiredPost)
cmd.Parameters.Add("@title",title)
cmd.Parameters.Add("@address",address)
cmd.Parameters.Add("@leaOrRetire",leaOrRetire)
cmd.Parameters.Add("@retireTime",retireTime)
cmd.Parameters.Add("@proTecPost",proTecPost)
cmd.Parameters.Add("@proSpecialty",proSpecialty)
cmd.Parameters.Add("@partyBranch",partyBranch)

cmd.Parameters.Add("@partyTime",partyTime)
cmd.Parameters.Add("@presonalClass",presonalClass)
cmd.Parameters.Add("@organName",organName)
cmd.Parameters.Add("@partyStanding",partyStanding)
cmd.Parameters.Add("@retiredDep",retiredDep)
cmd.Parameters.Add("@guanZhu",guanZhu)
cmd.Parameters.Add("@jianli",jianli)
cmd.Parameters.Add("@sex",sex)
cmd.Parameters.Add("@fuZhu",fuZhu)
'cmd.Parameters.Add("@photot","0x" + ImageString + "")

 

这是为啥呀？

 

一加上这句就有问题，上图那个问题，cmd.ExecuteNonQuery、

 

 

在论坛里面找到答案了 ，是没有给日期列赋值