字符串多行插入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}

风格

恢复默认设置
展区
文件集浏览
 图片集浏览
 Flash浏览
 音乐集浏览
 电影集浏览

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串多行插入

共有2607人关注过本帖树形打印复制链接主题：字符串多行插入

susu312

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

字符串多行插入 发帖心情

Post By：2018/9/8 11:44:00 [只看该作者]

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 &"',")"
'

老师，这个如何换行呀？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/9/8 11:53:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/2489.htm

cmd.CommandText = "Insert Into {person} ([cardID],[age],[birth],[tel],[jiguan],[rational],[edu],[health],[workdate] ,[name]," & _

"[politicalStatus],[hobbies] ,[retiredPost],[title],[address],[leaOrRetire], " & _

……

cmd.CommandText = cmd.CommandText & cardID & "', '" & age & "','"& birth &"','"& tel &"','"& jiguan &"','"& rational & "','" & _

edu & "','" & health & "','"& workd ......

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/9/8 11:54:00 [只看该作者]

建议使用这种方式：http://www.foxtable.com/webhelp/scr/3266.htm

代码清晰，效率比拼sql高

susu312

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/9/8 13:57:00 [只看该作者]

以下是引用有点蓝在2018/9/8 11:54:00的发言：
建议使用这种方式：http://www.foxtable.com/webhelp/scr/3266.htm

代码清晰，效率比拼sql高

老师，我通过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

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

[此贴子已经被作者于2018/9/8 14:00:46编辑过]