[asemshahen5]

جرب هذا الفيو و رد لي خبر بالمناسبة جدول branch أخذت مسمياته من صورة الجدول في أول الصفحة

كود :

/****** Object:  View [dbo].[bank_branch_bank_user7]    Script Date: 11/7/2018 12:09:37 ص ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE VIEW [dbo].[bank_branch_bank_user71]
AS
SELECT        TOP (100) PERCENT dbo.bank.bank_id, dbo.bank.bank_name, dbo.bank.bank_address, dbo.bank.bank_account, dbo.bank.bank_swiftcode, dbo.bank.bank_phone, dbo.bank.bank_fax, dbo.bank.bank_email,
                        dbo.bank.bank_webpage, dbo.bank.bank_date, dbo.bank.bank_note, dbo.branch.branch_name, dbo.user7.user_name
FROM            dbo.user7 RIGHT OUTER JOIN
                        dbo.bank ON dbo.user7.user_id = dbo.bank.bank_user_id LEFT OUTER JOIN
                        dbo.branch ON dbo.bank.bank_branch_id = dbo.branch.branch_id
ORDER BY dbo.bank.bank_id

GO

هذا كود إضافة لجدول Bank يأخذ رقم المستخدم من استعلام و يأخذ رقم البرنش من استعلام اخر جربه هو ماتريده .

كود :

Public Sub INSERT_INTO_Bank()
      Dim UserIDStr As String = "Select user_id From user7 where user_name=N'" & Cmb_User_name.Text & "'"
      Dim branchIDStr As String = "Select branch_id From branch where branch_name=N'" & Cmb_branch_name.Text & "'"
      Dim StrSQL As String = "INSERT INTO bank (bank_id,bank_name,bank_address,bank_branch_id,bank_account,bank_swiftcode,bank_phone,bank_fax,bank_email,bank_webpage,bank_user_id,bank_date,bank_note,bank_color,bank_parent ) VALUES ('" &
      Txt_bank_id.Text & "','" & Txt_bank_name.Text & "','" & Txt_bank_address.Text & "',(" & branchIDStr & "),'" & Txt_bank_account.Text & "','" &
      Txt_bank_swiftcode.Text & "','" & Txt_bank_phone.Text & "','" & Txt_bank_fax.Text & "','" & Txt_bank_email.Text & "','" & Txt_bank_webpage.Text & "',(" &
      UserIDStr & "),'" & Dtp_bank_date.Value & "','" & Txt_bank_note.Text & "','" & Txt_bank_color.Text & "','" & Txt_bank_parent.Text & "')"
      Dim con As New SqlConnection("Server =(local);database=daccount;integrated security=True")
      If con.State = ConnectionState.Closed Then con.Open()
      Dim da As New SqlDataAdapter(StrSQL, con)
      Dim dt As New DataSet
      da.Fill(dt, "bank")
  End Sub