以文本方式查看主题

-  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=55202)

--  作者:riyuan
--  发布时间:2014/8/12 16:40:00
--  [求助]
通过sql的插入窗口中的insert into 命令插入数据到数据库,怎样在主窗口的表中及时更新显示
--  作者:Bin
--  发布时间:2014/8/12 16:43:00
--  
重新Load一次这个表
--  作者:riyuan
--  发布时间:2014/8/12 16:55:00
--  
是sql语句插入的,请问怎么load。表是在另外一个窗口


--  作者:Bin
--  发布时间:2014/8/12 16:57:00
--  
你那个表要显示,就Load那个表啊
--  作者:lihe60
--  发布时间:2014/8/12 16:57:00
--  
命令写入afterload事件或者在一个按钮中加载。
[此贴子已经被作者于2014-8-12 16:57:54编辑过]

--  作者:riyuan
--  发布时间:2014/8/12 17:03:00
--  
我已经 加载了呀
Dim nm As String  = sfh

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="Select * From {hkxx} Where 身份证号 = \'" & nm & "\'"
If sfh="" Then
 Messagebox.Show("身份证不能为空","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel=True
Else
If cmd.ExecuteScalar > 0 Then
    Messagebox.Show("已经存在该公民信息","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else




cmd.CommandText = "Insert Into hkxx (户号,姓名,户主与户主关系,曾用名,性别,出生地,民族,籍贯,出生日期,本市其他地址,宗教信仰,身份证号,身高,血型,文化程度,婚姻状况,兵役状况,服务处所,职业,何时由何地迁来本市县,何时由何地迁来本址,承办人签章,登记日期,家庭类型,简码) values (\'" & hh & "\',\'" & xm & "\',\'" & gx & "\',\'" & cym & "\',\'" & xb & "\',\'" & csd & "\',\'" & mz & "\',\'" & jg & "\',\'" & cdate(csrq) & "\',\'" & dz & "\',\'" & xy & "\',\'" & sfh & "\',\'" & sg & "\',\'" & xx & "\',\'" & wh & "\',\'" & hk & "\',\'" & by & "\',\'" & fw & "\',\'" & zy & "\',\'" & hd & "\',\'" & hs & "\',\'" & qz & "\',\'" & djrq & "\',\'" & jtlx & "\',\'" & jm & "\')"


cmd.ExecuteNonQuery()
 Messagebox.Show("保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
DataTables("mm_Table1").load
End If
End If

--  作者:Bin
--  发布时间:2014/8/12 17:09:00
--  
重新加载一次即可看到更新的数据
--  作者:riyuan
--  发布时间:2014/8/12 17:13:00
--  
在哪里加载,用什么语句可以达到效果


--  作者:Bin
--  发布时间:2014/8/12 17:14:00
--  
DataTables("mm_Table1").load

放到一个按钮里 点击重新加载

--  作者:riyuan
--  发布时间:2014/8/12 17:18:00
--  
我在上面的代码中已经加载 ,为什么没有反应呢 
cmd.CommandText = "Insert Into hkxx (户号,姓名,户主与户主关系,曾用名,性别,出生地,民族,籍贯,出生日期,本市其他地址,宗教信仰,身份证号,身高,血型,文化程度,婚姻状况,兵役状况,服务处所,职业,何时由何地迁来本市县,何时由何地迁来本址,承办人签章,登记日期,家庭类型,简码) values (\'" & hh & "\',\'" & xm & "\',\'" & gx & "\',\'" & cym & "\',\'" & xb & "\',\'" & csd & "\',\'" & mz & "\',\'" & jg & "\',\'" & cdate(csrq) & "\',\'" & dz & "\',\'" & xy & "\',\'" & sfh & "\',\'" & sg & "\',\'" & xx & "\',\'" & wh & "\',\'" & hk & "\',\'" & by & "\',\'" & fw & "\',\'" & zy & "\',\'" & hd & "\',\'" & hs & "\',\'" & qz & "\',\'" & djrq & "\',\'" & jtlx & "\',\'" & jm & "\')"


cmd.ExecuteNonQuery()
 Messagebox.Show("保存成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
DataTables("mm_Table1").load
End If
End If