ارجو المساااااااااااعده بــSQL and VISUAL BASIC.NET

[لم لم]

مطلوب مني اسلم مشروع صغنون يوم السبت وصراحه عجزت ولا عرفت

مطلوب مني اني اعمل
NEW form
واحط فيه
comboBox&ListBox
لما يتحمل الفورم(run the application)
يطلع اسامي الcategorie name في الـــcomboBox
ولما اضغط على واحد من الcategorie name يطلع لي ال products في الــListBox التابعه للــ categorie name

الطريقه عن طريق فتح اتصال
sqlconnection.open
sqlconnection.close

بلييييييييز اي حد يساعدني

[الأمير الصنعاني]

اختي
انا لا استطيع قراءة الرسائل الخاصة ربما رسالتك الخاصة لي نفس هذا الموضوع
ما فهمت ايش المطلوب بالضبط
ممكن تنقلي لنا نص السؤال كامل
تحياتي

[الأمير الصنعاني]

البرنامج باين عليه بسيط جدا جدا
وما له اي علاقة بالاس كيو ال

هذا اذا بدك
انه لما تضغط على شيء بالكومبو بكس تظهر اشياء باللست بوكس

الا اذا قصدك ان الاشياء اللي بتظهر نوصلها عن طريق الاس كيو ال
احتاج توضيح

[لم لم]

الارتباط لان جداول الcategories والproducts من جداول الــnorthwind الموجوده في الSQL
عملت الفورم وسويت stord procdure بالجمله التاليه
create proc catName
as
(
select categoryName
from categories
)

وربطه مع الفورم
يطلع لنا
SQLconnection
مع
SQLcommed
طيب الان كل شي تمام
اعمل دبل كليلك على الفورم لان من السؤال انه لما الفورم ينعمله (run) يطلع القائمه في الــcomboBox
الان داخل load form
لازم انفذ جمله يتصل فيها الاوامر(البروسيدر) وهي عباره عن DMLCommened
لكن ماعرفت اكتب الجمله بداخل الLoad form
لانها تتصل مع اوامر ترجع اكثر من قيمه

ولما ينفتح الفورم يطلع لي بلكمبو بوكس اسامي الـcategoryName
ولما اختار وحده منها يطلع لي الProducts التابعه لــCategoryName
ان شاء الله اكون بينت الصوره
سااااااعدوني بليييييييييييز

[لم لم]

اوكي خلاص عرفت اخيرا بعد شد الشعر وطلوع الروح
شكرا الامير على محاولتك للمساعده
وياريت لو المشرفين يحذفو الموضوع

[الأمير الصنعاني]

الحمد لله يا لم لم
انا ما قدرت اساعد
لاني
كان معي فيجوال ستديو 2005 وانتهى مدته ما رضي يشتغل
وما قدرت امل 2003

الحمد لله انك قدرتي

[suzy]

شوفوا الناس اللي جالسين يتكلموا لغات


عقبالنا ياااااااااااااااااارب

[وائل عبدالله]

و الله انا لما دخلت و شفت تواصل الاعضاء فرحت.......

و على العموم الاعضاء ما قصروا و انا مش محمل اي لغة برمجه في الجهاز......

[لم لم]

مشكورين كلكم على المحاوله
ماتقصرو

اش دخلك ياسوزي كلام كبار هاذا عيب تدخلي الموضوع

[suzy]

والله من جد كلام كبار

بس احنا خلاص راحت علينا

قد احنا عجايز يعني عدينا مرحلة الكباااااار

عموما انا دائما اسأل نفسي

هل اليوم اللي اصير في اتكلم بلغة السي ولا الجافا ولا غيرهم راح يجي

ولا اقولك احسن

كفايه عليا الانجليزي والفرنسي امشي حالي بهم

وانتو خليكم مع الخرابيط حقكم

اشتي اتمتع بحياتي

[وائل عبدالله]

و لا راحت و لا حاجة و اللي يريد يتعلم يقدر.....

[وحش جده]

السلام عليكم


This is the solution in VB.Ne

Imports System.Data.OleDb
Public Class FNorthwind
Inherits System.Windows.Forms.Form
Dim intAccion As Integer
#Region " Cَdigo generado por el Diseٌador de Windows Forms "

Public Sub New()
MyBase.New()

'El Diseٌador de Windows Forms requiere esta llamada.
InitializeComponent()

'Agregar cualquier inicializaciَn después de la llamada a InitializeComponent()

End Sub

'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Requerido por el Diseٌador de Windows Forms
Private components As System.ComponentModel.IContainer

'NOTA: el Diseٌador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseٌador de Windows Forms.
'No lo modifique con el editor de cَdigo.
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents cboCategory As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents cmdExit As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.cboCategory = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.cmdExit = New System.Windows.Forms.Button()
Me.GroupBox4.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox4
'
Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.cboCategory, Me.Label1})
Me.GroupBox4.Location = New System.Drawing.Point(24, 0)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(232, 40)
Me.GroupBox4.TabIndex = 19
Me.GroupBox4.TabStop = False
'
'cboCategory
'
Me.cboCategory.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboCategory.Location = New System.Drawing.Point(103, 13)
Me.cboCategory.Name = "cboCategory"
Me.cboCategory.Size = New System.Drawing.Size(112, 21)
Me.cboCategory.TabIndex = 19
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(23, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(49, 14)
Me.Label1.TabIndex = 18
Me.Label1.Text = "Category"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label2, Me.ListBox1})
Me.GroupBox1.Location = New System.Drawing.Point(24, 40)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(320, 168)
Me.GroupBox1.TabIndex = 22
Me.GroupBox1.TabStop = False
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 23
Me.Label2.Text = "Products"
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(64, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(232, 134)
Me.ListBox1.TabIndex = 22
'
'cmdExit
'
Me.cmdExit.Location = New System.Drawing.Point(272, 8)
Me.cmdExit.Name = "cmdExit"
Me.cmdExit.Size = New System.Drawing.Size(72, 24)
Me.cmdExit.TabIndex = 23
Me.cmdExit.Text = "Exit"
'
'FNorthwind
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me.ClientSize = New System.Drawing.Size(360, 222)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdExit, Me.GroupBox1, Me.GroupBox4})
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "FNorthwind"
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)

End Sub

#End Region


Public Function find() As String
'
Dim dbConn As OleDbConnection
Dim dbCommand As New OleDbCommand()
Dim strPath As String

strPath = "C:\ITEM\Northwind.MDB"
dbConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " _
& "DATA SOURCE=" _
& strPath)
dbCommand.CommandText = "SELECT Products.ProductName FROM Categories INNER JOIN Products ON Categories.CategoryID = Products.CategoryID WHERE Categories.CategoryName='" & _
cboCategory.Text & "';"
dbCommand.Connection = dbConn
dbConn.Open()
Dim dbDR As OleDb.OleDbDataReader = dbCommand.ExecuteReader
ListBox1.Items.Clear()
While dbDR.Read
ListBox1.Items.Add(dbDR("ProductName".ToString))

End While

dbConn.Close()

'
End Function

Public Function loadCBO() As String
'
Dim dbConn As OleDbConnection
Dim dbCommand As New OleDbCommand()
Dim strPath As String

strPath = "C:\ITEM\Northwind.MDB"

dbConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " _
& "DATA SOURCE=" _
& strPath)
dbCommand.CommandText = "SELECT Categories.CategoryName FROM Categories"
dbCommand.Connection = dbConn
dbConn.Open()
Dim dbDR As OleDb.OleDbDataReader = dbCommand.ExecuteReader
cboCategory.Items.Clear()
While dbDR.Read
cboCategory.Items.Add(dbDR("CategoryName"))
End While

dbConn.Close()
End Function



Private Sub FNorthwind_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Is necesary change the path of database
loadCBO()

End Sub

Private Sub cboCategory_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCategory.SelectedIndexChanged
find()
End Sub


End Class


للامانه

مو انا اللي كتبته

واحد من الاصدقاء كتبه لي

باذن الله انه مايفشلني ويطلع صح

باي