VB6＋MSSQLでテーブルの共有

環境/言語:[VB6＋MSSQL WindowsXP]
分類:[VB6以前]

初めまして。お世話になります。VB初心者です。

早速ですが、VB6とMSSQLでMSSQL内のデータを閲覧するだけのソフトを作ろうと考えてます。
データベース内には、数十万件のデータが入っており、日々追加されていっています。
そのサーバーへアクセスしてテーブル内の一覧は表示させる事ができました。
しかし、そのテーブルには、以下のように氏名コードのように数字で入っているため、別のテーブルから漢字の氏名を読み込みたい。

[テーブルA]氏名コード、登録日
普通に閲覧すると、氏名コードと登録日が表示されてしまいますので、氏名コードと関連付いた氏名を表示させたいのです。
[テーブルB]氏名コード、氏名(漢字）

テーブルBに氏名コードと氏名が入っている。

テーブルAを表示させた時点で、氏名コードをテーブルBの氏名に変換して表示させる部分が分からずにとまどっています。

以下に、現在のソースを書いておきます。

Option Explicit

Private rst As ADODB.Recordset '親レコードセット
Private rstSub As ADODB.Recordset '子レコードセット
Private rstSagyou As ADODB.Recordset '作業実績テーブルの内容
Private strManCode As String '担当者番号を格納
Private cmd As ADODB.Command '親コマンドオブジェクト
Private cmds As ADODB.Command '子コマンドオブジェクト
Private Para1 As ADODB.Parameter 'パラメーターオブジェクト１

Private Sub From_Load()
Set rstSagyou = New ADODB.Recordset
rstSagyou.Open "SELECT * FROM TRN_SGJ001", cn

End Sub

Private Sub Command1_Click()
Dim strSQL As String
strSQL = "SELECT * FROM 作業実績データ WHERE 作業区分 = 3"
Set rstSub = New ADODB.Recordset
rstSub.Open strSQL, cn, adOpenStatic, adLockBatchOptimistic

Set DataGrid1.DataSource = rstSub
DataGrid1.Columns(2).Width = 0
DataGrid1.Columns(3).Width = 0
DataGrid1.Columns(4).Width = 0
DataGrid1.Columns(12).Width = 0
DataGrid1.Columns(13).Width = 0
DataGrid1.Columns(14).Width = 0
DataGrid1.Columns(15).Width = 0
DataGrid1.Columns(17).Width = 0
DataGrid1.Refresh
End Sub


データベースへのアクセスは、MDIの部分で書いております。
これは、クリックされたフォームの部分です。

どうかご教授お願い致します。

こんにちは中博俊です。

SELECT 作業実績データ.*, TRN_SGJ001.NAME
FROM 作業実績データ
INNER JOIN TRN_SGJ001 ON TRN_SGJ001.ID = 作業実績データ.ID
WHERE 作業実績データ.作業区分 = 3

こんなかんじ。
SQLをお勉強してください。

中さんも述べている通り、SQLを少し勉強した方が良いと思います。
と云う訳で、お勧め本は、「SQL ポケットリファレンス：技術評論社」辞書代わりにもなるので、重宝しますよ。

こんにちは。
ぺがらぼさんも書籍を紹介されていますが，

ソフトバンクパブリッシング
「SQL ハンドブック」
ISBN4-7973-1639-X

も，
初級者の方にはなかなかお勧めです。

SQL-92，Oracle，SQL Server に加えて Access
使いたい SQL 文がどのプラットフォームで使えるのか。
というのがアイコンで示されています。

JOIN の説明もそこそこわかりやすいかと。

http://freedom.mitene.or.jp/~sugisita/papa/cgi/korobbs.cgi