主题：字符串多行插入

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.CommandText = cmd.CommandText & 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 &"',")"
'

老师，这个如何换行呀？

老师，我通过insert语句来新增的话，照片是二进制列，看指南说对于新增行，要保存了才能插入图片，那么对于我没有新增的这个情况？也要保存后才能插入么？

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

If Tables("person").Current Is Nothing Then
    Return
 End  If
 Dim dr As DataRow =  Tables("person").Current.DataRow
 Dim dlg As New  OpenFileDialog
 dlg.Filter =  "图形文件|*.bmp;*.jpg;*.gif;*.png"
 If dlg.ShowDialog = DialogResult.OK Then
    dr.SQLInsertFile("photo",dlg.FileName) '插入文件
     Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
     pic.Image = GetImage(dlg.FileName)
 End  If

感觉这代码肯定不行了，因为当前行是上一行

老师，我现在的情况就是：新增窗口的控件不绑定表，直接通过sql语句向后台数据库写入，那么这个新增人的照片？我没点保存 ，insert成功后，才可以插入到我新增的人信息中，要不人它插到别的行了？

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

'

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档 (2).txt

代码，报图片上面的错误

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

老师，那个是插入后可以显示出来的代码。老师，

1、照片和那些字段可以都在确定按钮里面插入么，

2、如果可以，那么用户在点击照片下面的插入后，能否让照片先显示出来，临时显示，并没有存入库里？

用

我会了

以下是引用有点蓝在2018/9/8 16:12:00的发言：

e.Form.Controls("PictureBox1").ImageFile = dlg.FileName   '显示图片

此主题相关图片如下：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")

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

 
此主题相关图片如下：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、

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