H_Access/Inserter.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Text
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Public Class Inserter
    Private Sub New()
    End Sub
    ''' <summary>
    '''  Dim tran As SqlTransaction = DataBase.GetTransaction()
    '''  Dim ht As New Hashtable()
    '''  ht.Add("t_name", "张三")
    '''  ht.Add("t_tel", "021-88625587")
    '''  ht.Add("t_sort", 1)
    '''  Inserter.InsertRow("tb_test", ht)
    '''  tran.Commit()
    ''' </summary>
    ''' <param name="tran"></param>
    ''' <param name="tableName"></param>
    ''' <param name="ht"></param> 
    ''' <remarks></remarks>
    Public Shared Sub InsertRow(ByVal tran As OleDbTransaction, ByVal tableName As String, ByVal ht As Hashtable)
        Dim conn As OleDbConnection = tran.Connection
        Using cmd As OleDbCommand = conn.CreateCommand()
            Dim sql As String = String.Format("select top 1 * from {0} ", tableName)
            cmd.Transaction = tran
            cmd.CommandText = sql
            If conn.State <> ConnectionState.Open Then
                conn.Open()
            End If
            Dim ds As New DataSet
            Dim da As New OleDbDataAdapter(cmd)
            Dim myrow As DataRow
            da.Fill(ds, tableName)
            da.FillSchema(ds, SchemaType.Source, tableName)
            myrow = ds.Tables(tableName).NewRow
            Dim db As New OleDbCommandBuilder(da)
            db.QuotePrefix = "["
            db.QuoteSuffix = "]"
            For Each de As DictionaryEntry In ht
                myrow(de.Key) = de.Value
            Next
            ds.Tables(tableName).Rows.Add(myrow)
            da.Update(ds, tableName)
        End Using
    End Sub

    ''' <summary>
    '''  Dim ht As New Hashtable()
    '''  ht.Add("t_name", "张三")
    '''  ht.Add("t_tel", "021-88625587")
    '''  ht.Add("t_sort", 1)
    '''  Inserter.InsertRow("tb_test", ht)
    ''' </summary>
    ''' <param name="tableName"></param>
    ''' <param name="ht"></param>
    ''' <remarks></remarks>
   Public Shared Sub InsertRow(ByVal tableName As String, ByVal ht As Hashtable)
        Using conn As OleDbConnection = DataBase.GetConnection()
            Using cmd As OleDbCommand = conn.CreateCommand()
                Dim sql As String = String.Format("select top 1 * from {0} ", tableName)