「Visual Studio インストーラー」で個別コンポーネントをインストール

Try
Dim　db=New　DataClasses1DataContext
Dim　q=From　t　In　db.T01_DNC　Selectt.DANCHI_CD,t.CHIKU_CD,t.DANCHI_NM
　Order　By　DANCHI_CD　Descending
'DataGridView2.AutoSize=False
Catch　exAsSystem.Exception
　System.Windows.Forms.MessageBox.Show(ex.Message)
End　Try

Dim tT01_DNC = db.GetTable(Of T01_DNC)()
Dim qT29_KRK2 = From tb In tT29_KRK

Dim Q1 = (From p In tT07_JKT).Count
Label5.Text = “全件数：” & Q1.ToString(“#,##0”)
System.Windows.Forms.Application.DoEvents()
l固定資産評価額 = qM11.First().SISAN_GAK

tT26_YKK.InsertOnSubmit(Enti)
db.SubmitChanges()

Dim qT02_TMN = From TMN In tT02_TMN Where TMN.DANCHI_CD = sDANCHI_CD And TMN.TATEMONO_CD = sTATEMONO_CD
If qT02_TMN.Count > 0 Then
　sin容積率 = qT02_TMN.First().YOSEKI_PER
　d竣工年度 = qT02_TMN.First().SYUNKO_Y
　s構造区分 = qT02_TMN.First().KOZO_KBN
　int経過年数 = DateDiff(DateInterval.Year, d竣工年度, d調定年度)
　int経過年数B = int経過年数
End If

Dim db As New DataClasses1DataContext(My.Settings.DB01ConnectionString)
Dim tT07_JKT = db.GetTable(Of T07_JKT)()

Dim Q1 = (From p In tT07_JKT).Count
Label5.Text = “全件数：” & Q1.ToString(“#,##0”)
System.Windows.Forms.Application.DoEvents()

Dim qT07_JKT = From tb In tT07_JKT Order By tb.DANCHI_CD, tb.TATEMONO_CD, tb.JUKO_TYP_CD
With C1FlexGrid1
.DataSource = qT07_JKT
.Cols(“KO_KENSETSU_GAK”).Format = “N0”
.Cols(“MENSEKI”).Format = “0.00”
End With

Dim cmd As SqlClient.SqlCommand
Dim sCD As String = “”
Dim sNM As String = “”
Dim sSQL As String = “”

Using con As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectionString:=My.Settings.DB0102ConnectionString)
Dim dataRead As SqlClient.SqlDataReader

con.Open()
'—————————–
'団地名読み込み
sSQL = “SELECT DANCHI_CD AS CD,DANCHI_NM AS CD_NM FROM T01_DNC ORDER BY DANCHI_CD”
cmd = New SqlClient.SqlCommand(sSQL, con)
cmd.CommandType = CommandType.Text

dataRead = cmd.ExecuteReader()
While (dataRead.Read())
dtMap団地名.Add(dataRead(“CD”), dataRead(“CD_NM”))
End While

dataRead.Close()

End Using

''応益係数計算
com = New SqlClient.SqlCommand(“UPDATE T08_YKJ SET OUEKI_KEISU= ROUND(KIBO_KEISU * KEINEN_KEISU * RICCHI_KEISU * SETSUBI_KEISU ,4,1) Where CHOTEI_Y = '” & d調定年度B & “' ”, cn)

com.ExecuteNon
cn.Close()

lng基準家賃(8) = qM05.First().FTAN_GAK_8
int分子(1) = IIf(Len(qM05.First().OVR_SI_1) < 1, 0, qM05.First().OVR_SI_1)

Accessレポート印刷
Private Sub 印刷Button_Click(sender As System.Object, e As System.EventArgs) Handles 印刷Button.Click
　Dim MjobjAcce As Microsoft.Office.Interop.Access.Application
Try
　Me.Cursor = Cursors.WaitCursor
　'オブジェクトのインスタンス作成
　MjobjAcce = CType(CreateObject(“Access.Application”), Microsoft.Office.Interop.Access.Application)
　MjobjAcce.OpenCurrentDatabase(“C:\JTK2\マスター登録チェック.mdb”, False)
　'Me.Cursor = Cursors.Default
　MjobjAcce.Application.Visible = True
Catch ex As Exception
　MessageBox.Show(“ファイルが見つかりません　「マスターチェック.mdb」”)
End Try
End Sub