[vb2010]

هل معنى ذلك ان الاتصال المنفصل لا يصلح ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وجدت فى موقع  arabteam2000 هذه المعلومه

إقتباس :معلومة توصلتلها بشهادة مايكروسوفت نفسهم  إن الـ Update لا يدعم الـ Subquery  فى Vba Code
إنما Insert بيدعم الـ Subquery يعنى ممكن تعملو Select جواها عادى جدا  ودى عن تجربة
طب ليه Update موش بيدعم ?  دى تسألو فيها مايكروسوف

مامعنى subquery ؟

---

ما الحل اذا كيف احفظ فى جدول واحد bank و استعلم فى الداتاجريدفيو من 3 جداولbank وuser7 و  branch

[asemshahen5]

أعمل View في السكول ضع به الحقول التي تريدها

[vb2010]

شكرا لاهتمامك اخى العزيز عاصم 
قال الاخ الجوكر فى مشاركه رقم 20 

إقتباس :الخطاء هنا بسبب كونك تستخدم اكثر من جدول فى الاستعلام

حيث ان طريقة حفظ التعديل من خلال جملة Update تدعم جدول واحد فقط

اريد طريقه الحفظ غير update

[vb2010]

عملت view/فى السيكوال من 3 جداول 



و نسخت الجمله 
و كتبت فى فورم جديد 

و لم ينفذ

[asemshahen5]

جربت الفيو على برنامج السيكول .
احفظه باسم بالسكويل .
و عند استدعائه تستدعيه هاكذا بكل بساطة :

كود :

dim StrSQL as string = "Select * From View1"
dim StrSQL as string = "Select * From View1 where ColomnName='"& TxtFind.Text &"' "

[vb2010]

كتبت التالى و لم يظهر شى 

كود :

Imports System.Data.SqlClient

Public Class Form2

   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
       Dim StrSQL As String = "Select * From bank_branch_bank_user7"
       DataGridView1.DataSource = StrSQL

   End Sub
End Class

اكيد شيى ناقص فى الكود

[asemshahen5]

أقصد أن تضع هذا الاستعلام في لود فورم

أعرف أنك تمزح :

و لكن لتعم الفائدة :

كود :

Dim StrSQL As String = "Select * From bank_branch_bank_user7 "

       Dim cn As New SqlClient.SqlConnection("Server =(local);database=daccount;integrated security=True")
       Dim StrTableName As String = "bank_branch_bank_user7"
       If cn.State = ConnectionState.Closed Then cn.Open()
       Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataSet
       da.Fill(dt, StrTableName)
       Dgv_Table.DataSource = dt.Tables(StrTableName)

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

كود :

   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

[vb2010]

شكرا 
جربت الكود التالى 

كود :

Imports System.Data.SqlClient

Public Class Form2

   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
       Dim StrSQL As String = "Select * From bank_branch_bank_user7 "

       Dim cn As New SqlClient.SqlConnection("Server =T-PC\SQLEXPRESS;database=daccount;integrated security=True")
       Dim StrTableName As String = "bank_branch_bank_user7"
       If cn.State = ConnectionState.Closed Then cn.Open()
       Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataSet
       da.Fill(dt, StrTableName)
       DGView.DataSource = dt.Tables(StrTableName)
   End Sub
End Class

و الجداول 


و الناتج 

الناتج 8 صفوف 
------------------------------------------------------------------------------

لكن 


الناتج يجب ان يكون صفان اليس كذلك ؟

[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

[vb2010]

إقتباس :جرب هذا الفيو و رد لي خبر بالمناسبة جدول 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

جربت هذا الفيو و لم يفعل شىء 

شكرا 
الحمد لله ربنا هدانى للحل 
و عملت relationnship بين الجداول و نجحت 




هل يمكن اجراء البحث بالفيو اللى حافظه فى السيكوال