→→→Access4.0との接続(スペース詰めと連結)

Dim cCom As OleDb.OleDbCommandBuilder
Dim dSet As DataSet = New DataSet()
Dim dAdp As OleDb.OleDbDataAdapter
Dim ocn As OleDb.OleDbConnection  = New OleDb.OleDbConnection()


Dim i, j, jj, k, m, mm, n, nn, o As Integer
Dim work As String
Dim workJ As String
Dim han() As String
Dim jyu() As String
Dim x As String
Dim y As String
Dim answer As String
Dim answer1 As String


ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\***mdb;
                                  Persist Security Info = False"
dAdp = New OleDb.OleDbAdapter("SELECT 住所1,住所2,住所3,氏名,SS,SSS FROM D", ocn)
dAdp.Fill( dset, "t_D" )
Dim count As String = dSet.Tables("t_D").Rows.count
For i = 0 To count - 1
    work = dSet.Tables("t_D").Rows(i)("氏名")
    workJ = dSet.Tables("t_D").Rows(i)("住所1") &
                dSet.Tables("t_D").Rows(i)("住所2") &
                dSet.Tables("t_D").Rows(i)("住所3")
    j = Microsoft.VisualBasic.Len(work)
   jj = Microsoft.VisualBasic.Len(workJ)
   ReDim han( j - 1 )
   ReDim jyu( jj - 1 )
   For k = 0 To j  - 1
         han(k) = work.SubString(k , 1)
         x        = work.SubString(k , 1)
         m       = strcomp( x , " " )
         n        = strcomp( x , "　")
         If  m = 0  Or n = 0 Then
              han(k) = ""
         Else
              answer = String.Concat( ham )
         End If
    Next

    For o = 0 To jj  - 1

         jyu(o) = workJ.SubString(o , 1)

         y        = workJ.SubString(o , 1)

         mm       = strcomp( y , " " )

         nn        = strcomp( y , "　")

         If  mm = 0  Or nn = 0 Then

              jyu(o) = ""

         Else

              answer = String.Concat( jyu )

         End If

    Next

    dSet.Tables("t_D").Rows(i)("SS") = answer

    dSet.Tables("t_D").Rows(i)("SSS") = answer1

Next

cCom = New OleDb.OleDbCommandBuilder( dAdp )
dAdp.Update( dSet , "t_D" )
ocn.Close()