Dim sSQL As String = “SELECT DANCHI_CD,DANCHI_NM FROM T01_DNC WHERE KEIEI_KBN='” & TextBox1.Text & “' ORDER BY DANCHI_CD”
Dim dbcon As SqlClient.SqlConnection
Dim dAdp As SqlClient.SqlDataAdapter
Dim dbcmd As SqlClient.SqlCommand
Dim DataSet1 As DataSet = New DataSet(“t_BUSYO”)
dbcon = New SqlClient.SqlConnection(connectionString:=My.Settings.JTK_MConnectionString)
'DBオープン
dbcon.Open()
dbcmd = New SqlClient.SqlCommand(sSQL, dbcon)
dbcmd.CommandType = CommandType.Text
dAdp = New SqlClient.SqlDataAdapter(dbcmd)
dAdp.Fill(DataSet1, “t_BUSYO”)
DataGridView1.DataSource = DataSet1.Tables(“t_BUSYO”)
Me.ReportViewer1.LocalReport.DataSources.Clear()
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = “ReportsApplication1.Report2.rdlc”
Dim sReportDataSource As ReportDataSource
sReportDataSource = New ReportDataSource()
sReportDataSource.Name = “DataSet1”
sReportDataSource.Value = DataSet1.Tables(“t_BUSYO”)
ReportViewer1.LocalReport.DataSources.Add(sReportDataSource)
Me.ReportViewer1.RefreshReport()
dbcon.Close()

Dim sSQL As String = “SELECT * FROM RRR_顧客MST ORDER BY ID”
'sSQL = “SELECT * FROM RRR_顧客MST WHERE ID LIKE '” & TextBox1.Text & “*' ORDER BY ID”
Dim dbcon As OleDb.OleDbConnection
Dim dAdp As OleDb.OleDbDataAdapter
Dim dbcmd As OleDb.OleDbCommand
Dim DataSet1 As DataSet = New DataSet(“t_BUSYO”)
dbcon = New OleDb.OleDbConnection(connectionString:=My.Settings.KISO_DBConnectionString)
'DBオープン
dbcon.Open()
dbcmd = New OleDb.OleDbCommand(sSQL, dbcon)
dbcmd.CommandType = CommandType.Text
dAdp = New OleDb.OleDbDataAdapter(dbcmd)
dAdp.Fill(DataSet1, “t_BUSYO”)
'DataGridView1.DataSource = DataSet1.Tables(“t_BUSYO”)
Me.ReportViewer1.LocalReport.DataSources.Clear()
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = “ReportsApplication1.Report2.rdlc”
Dim sReportDataSource As ReportDataSource
sReportDataSource = New ReportDataSource()
sReportDataSource.Name = “DataSet1”
sReportDataSource.Value = DataSet1.Tables(“t_BUSYO”)
ReportViewer1.LocalReport.DataSources.Add(sReportDataSource)
Me.ReportViewer1.RefreshReport()
dbcon.Close()