文章内容
visual basic(vb.net)中运用两表之间的相同字段实现数据在表间流转的应用场景
我们在运用visual basic(vb.net)开发应用程序的过程中,
数据流转可谓是必然,
但是采用好的方法进行数据流转,
常常可以达到事半功倍的效果,
这次我就向大家介绍这一个方法。
visual basic(vb.net)中运用两表之间的相同字段实现数据在表间流转的解决方法
首先构建一个visual basic(vb.net)获取相同字段的公共过程,
sql语言可以参考我的另一篇文章《sql server中如何获取两个数据表中相同的字段》,
Private Function GetColName(ByVal sTableName As String, ByVal dTableName As String) As String Try Dim Sql As String Dim Dst As New DataSet Sql = "select a.name from ( " + vbCrLf + _ " select b.name from sysobjects a left join syscolumns b on a.id = b.id where a.name = '" + 表1名称 + "' " + vbCrLf + _ " ) a " + vbCrLf + _ " left join ( " + vbCrLf + _ " select b.name from sysobjects a left join syscolumns b on a.id = b.id where a.name = '" + 表2名称 + "' " + vbCrLf + _ " ) b on a.name = b.name " + vbCrLf + _ " where ISNULL(b.name,'') <> '' " Dst = Exec(Sql, ExecType.DataSet) rem 这里是构建字符串 Dim sstr As String = "" For Each row In Dst.Tables(0).Rows sstr += "[" + row(0) + "]," Next Return sstr.Trim(",") Catch ex As Exception Throw ex End Try End Function
然后,调用这个过程获得相同字段的字符串,
同时可以通过replace进行修改字符串对应内容,
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try rem 调用过程获取相同字段 Dim tblPipesStockColumn As String = GetColName("tblPipesStock", "tblDoOrderSplitWeight") rem 给字段添加别名 Dim tblProducts_all_OutStockDetail_AColumn As String = "a." + Replace(tblPipesStockColumn, ",", ",a.") rem 对部分字段做特殊处理 tblProducts_all_OutStockDetail_AColumn = Replace(tblProducts_all_OutStockDetail_AColumn, "a.[Pcs]", "0 Pcs") tblProducts_all_OutStockDetail_AColumn = Replace(tblProducts_all_OutStockDetail_AColumn, "a.[Weight]", "0 Weight") rem 使用插入语句 Sql = "Insert into tblPipesStock(" + tblPipesStockColumn + ")" Sql += " Select " + tblProducts_all_OutStockDetail_AColumn + " " + vbCrLf + _ " from tblDoOrderSplitWeight a " + vbCrLf + _ " left join tblPipesStock b on a.PcsNo = b.PcsNo" + vbCrLf + _ " where a.StripOrderNo = '123456' " Exec(Sql, ExecType.NonQuery) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub
visual basic(vb.net)中运用两表之间的相同字段实现数据在表间流转的结论
通过这样一个方法,极大的减少visual basic(vb.net)的代码量和出错率,
而且如果是直接用字段插入,一般非常长,容易看花眼!
您可能感兴趣的文章
- visualbasic(vb.net)中如何进行时分秒倒计时
- visualbasic(vb.net)中C1TrueDbGrid控件如何实现当前单元格整行背景色深色
- visual basic(vb.net)中颜色填充方法
- vb.net中如何将内容复制到剪贴板,用于黏贴
- visual basic(vb.net)中如何对字符串进行TripleDESCryptoServiceProvider加密,确保程序安全
- visualbasic(vb.net)开发接口必备,Json格式化工具——JSONedit
- 关于Visual Studio打开解决方案会版本不对应(总是以最新版的Visual Studio打开)的问题
- visualbasic(vb.net)中如何处理数据库中取出的Null值,将其转化为字符串而不导致报错
本文地址:https://www.huazai186.com/post/154.html
文章标签:
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!此外,本网站旨在向广大网友提供任何资源的开发、使用、安装教程,所提供的下载服务仅供学习交流探讨,请广大网友学习完成后,24小时内删除相关资源。如果涉及到侵犯版权事宜,请联系删除资源下载信息,谢谢各位的理解与支持!
文章标签:
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!此外,本网站旨在向广大网友提供任何资源的开发、使用、安装教程,所提供的下载服务仅供学习交流探讨,请广大网友学习完成后,24小时内删除相关资源。如果涉及到侵犯版权事宜,请联系删除资源下载信息,谢谢各位的理解与支持!