منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3 4 5

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

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

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

مامعنى subquery ؟

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

[صورة مرفقة: p_10384ucqe1.png]

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

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

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

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

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

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

[صورة مرفقة: p_10394vyrf1.png]

و نسخت الجمله
و كتبت فى فورم جديد
[صورة مرفقة: p_1039zui6i1.png]

و لم ينفذ

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

كود :
dim StrSQL as string = "Select * From View1"

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

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

كود :
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

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

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

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

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

كود :
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

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

كود :
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 صفوف
------------------------------------------------------------------------------

لكن
[صورة مرفقة: p_1040zpt6p1.png]

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

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

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

[صورة مرفقة: p_1041ipobx1.png]

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

الصفحات : 1 2 3 4 5

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

vb2010

asemshahen5

vb2010

vb2010

asemshahen5

vb2010

asemshahen5

vb2010

asemshahen5

vb2010