行政区划数据数据库的设计(五)

最新推荐文章于 2023-08-25 10:36:04 发布

水如烟

最新推荐文章于 2023-08-25 10:36:04 发布

阅读量4.7k

点赞数

分类专栏： VB.NET应用点滴文章标签：数据库 string button database object class

本文链接：https://blog.csdn.net/lzmtw/article/details/1249913

版权

博客探讨了在城市化进程加快背景下，行政区划数据数据库设计中的问题，包括数据的误名现象。文章主要任务是导入数据，检验主体表设计的成效，并预告下篇将聚焦于附属表设计，以满足查询目标信息的需求。

摘要由CSDN通过智能技术生成

Author：水如烟

总目录：行政区划数据方案设计

上一篇，行政区划数据数据库的设计(四)

以上所为在数据库做好了主体表及增加数据的存储过程。这次重新回到程序，目的是将数据导进数据库里面，因为在后面的数据库附属表的设计要用到这些数据，要边调试边设计。

现在的方案组织如下：

效果图：

增加的代码：

Constant.vb

Namespace Database
     Friend Class Constant
         Private Sub New ()
         End Sub

         Public Const CONNECTIONSTRING As String = " Database=RegionalCodeWorks;Server=./SQLEXPRESS;Integrated Security=SSPI; "

         Public Const PROCEDURE_ADDRECORD As String = " Program.增添记录 "

     End Class
End Namespace

UpdateDatabase.vb

Namespace Database
     Public Class UpdateDatabase

         Public Event UpdateCompleted( ByVal sender As Object , ByVal msg As String )

         Private gCommand As SqlClient.SqlCommand

         Sub New ()
            gCommand = GetCommand()
         End Sub

         Public Sub OpenConnection()
             With gCommand.Connection
                 If .State <> ConnectionState.Open Then .Open()
             End With
         End Sub

         Public Sub CloseConnection()
             With gCommand.Connection
                 If .State = ConnectionState.Open Then .Close()
             End With
         End Sub

         Public Sub Import( ByVal table As DataTable, ByVal lastdate As String )
             Dim mCode As String
             Dim mName As String

             For Each row As DataRow In table.Rows
                mCode = row.Item( " Code " ).ToString
                mName = row.Item( " Name " ).ToString

                ImportRecord(mCode, mName, lastdate)