先日下記URLにて、質問をさせて頂きました。
http://social.msdn.microsoft.com/Forums/ja-JP/vbgeneralja/thread/7ffa57ed-9524-4aee-84ca-2d9bdb030ac6
Windowsフォーム５からWindowsフォーム２に値を渡す際に、得意先コードのみを渡し
それをキーにして、フォーム２のテキストボックスに得意先の情報を表示し、データテーブルを作りたく思います。
フォーム２のtextbox1.textは得意先コードが入ります。
下記コードで実施するとAdapter.Fill(dt)で止まってしまい、
connectionstringプロパティは初期化されていませんと表示されてしまいます。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Strict On
Imports System.Data.SqlClient
Imports System.Configuration
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextBox1.Text = Nothing Then
MessageBox.Show("コード確認")
End If
'プログラムコード
Dim Cn As New OleDbConnection
Dim Command As OleDbCommand = New OleDbCommand
Dim OLEDBCon As OleDb.OleDbConnection = _
New OleDb.OleDbConnection
OLEDBCon.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Form1.TextBox1.Text & ";" & _
"Persist Security Info=False"
Command.Connection = Cn
Command.CommandText = "select 得意先コード from 得意先T "
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Dim dt As New DataTable
Adapter.SelectCommand = Command
Adapter.Fill(dt)
'レコード取得
If dt.Rows.Count = 1 Then
TextBox3.Text = CStr(dt.Rows(0).Item(0)) ’郵便番号
TextBox4.Text = CStr(dt.Rows(0).Item(1)) '住所１
TextBox5.Text = CStr(dt.Rows(0).Item(2)) ’住所２
TextBox6.Text = CStr(dt.Rows(0).Item(3)) ’得意先名
Else
MessageBox.Show("エラー")
End If
End Sub
宜しくお願い申し上げます
