以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  字符串多行插入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124527)

--  作者:susu312
--  发布时间: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 &"\',")"
\'

 

老师,这个如何换行呀?


--  作者:有点蓝
--  发布时间: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 ......

--  作者:有点蓝
--  发布时间:2018/9/8 11:54:00
--  
建议使用这种方式:http://www.foxtable.com/webhelp/scr/3266.htm

代码清晰,效率比拼sql高

--  作者:susu312
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2018/9/8 14:12:00
--  
只要不是新增的行(保存过一次),就可以随时添加二进制列数据。

程序不能凭感觉,测试过看结果

--  作者:susu312
--  发布时间:2018/9/8 14:19:00
--  
以下是引用有点蓝在2018/9/8 14:12:00的发言:
只要不是新增的行(保存过一次),就可以随时添加二进制列数据。

程序不能凭感觉,测试过看结果

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


--  作者:有点蓝
--  发布时间:2018/9/8 14:30:00
--  
1、参考:http://www.foxtable.com/webhelp/scr/3274.htm

获取主键后,把这行加载进来即可


论坛里搜索“二进制”,可能还有其他用法,自己找找

--  作者:susu312
--  发布时间:2018/9/8 15:37:00
--  
以下是引用有点蓝在2018/9/8 14:30:00的发言:
1、参考:http://www.foxtable.com/webhelp/scr/3274.htm

获取主键后,把这行加载进来即可


论坛里搜索“二进制”,可能还有其他用法,自己找找


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 

\'

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt

 

代码,报图片上面的错误


--  作者:有点蓝
--  发布时间:2018/9/8 15:46:00
--  
最基本的表达式语法啊

cmd.CommandText = "select photo from person where _Identify = " & id

何况这段也没有必要
   If cmd.ExecuteNonQuery = 1 Then \'返回1表示增加成功
       e.Form.Controls("PictureBox1").ImageFile = dlg.FileName   \'显示图片
   End If

--  作者:susu312
--  发布时间:2018/9/8 15:57:00
--  
以下是引用有点蓝在2018/9/8 15:46:00的发言:
最基本的表达式语法啊

cmd.CommandText = "select photo from person where _Identify = " & id

何况这段也没有必要
   If cmd.ExecuteNonQuery = 1 Then \'返回1表示增加成功
       e.Form.Controls("PictureBox1").ImageFile = dlg.FileName   \'显示图片
   End If


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 

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

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

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