اريد حل حفظ البيانات - نسخة قابلة للطباعة

اريد حل حفظ البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد حل حفظ البيانات (/showthread.php?tid=27240)

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

RE: اريد حل حفظ البيانات - vb2010 - 04-11-18

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

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

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

مامعنى subquery ؟

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

RE: اريد حل حفظ البيانات - asemshahen5 - 04-11-18

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

RE: اريد حل حفظ البيانات - vb2010 - 04-11-18

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

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

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

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

RE: اريد حل حفظ البيانات - vb2010 - 05-11-18

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

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

و لم ينفذ

RE: اريد حل حفظ البيانات - asemshahen5 - 05-11-18

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

كود :

dim StrSQL as string = "Select * From View1"

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

RE: اريد حل حفظ البيانات - vb2010 - 05-11-18

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

كود :

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

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

RE: اريد حل حفظ البيانات - asemshahen5 - 06-11-18

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

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

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

كود :

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

RE: اريد حل حفظ البيانات - vb2010 - 06-11-18

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

كود :

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 صفوف
------------------------------------------------------------------------------

لكن

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

RE: اريد حل حفظ البيانات - asemshahen5 - 07-11-18

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

RE: اريد حل حفظ البيانات - vb2010 - 07-11-18

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

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