الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في SQL & STORED PROCEDURE

مغلق
بدأه VIPER_HEAD في 21 أغسطس 2005 · 5 رد · 1,040 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أخواني الأعزاء سلام الله عليكم ورحمته وبركاته

لدي سؤالين

السؤال الأول يخص ال SQL STATMENT داخل ال VB

الفكرة أنني أريد أن أضيف سجل جديد في جدول باستخدام INSERT INTO

ولكنني لم أعرف كيف أعطيه VALUES من داخل TEXT أي أجعل المستخدم يدخل القيم في TEXT ويتم أضافتها في الجدول

وهذا هو الكود الذي كتبته

DB.Execute "INSERT INTO CUSTOMER" & "(CODE,NAME,ADDRESS)VALUES" & "(TEXT1,TEXT2,TEXT3);"

ولكني لم أعرف الطريقة الصحيحة لتحديد ال VALUES من داخل TEXT

*********************************************************

السؤال الثاني ويخص ال STORED PROCEDURE

هل يملك أحد مثال أو شرح أو كتاب أو درس

عن طريقة ربط ال STORED PROCEDURE من VB باستخدام ACTIVE X DATA OBJECT

أرجو أن يشمل الشرح أو الكتاب

طريقة الربط وكيفية أرسال PARAMETARS إلي ال STORED PROCEDURE

#2

أخواني الأعزاء وفقني الله في الوصول إلي أحدي المشاركات التي تشرح حل السؤال الأول

وهو الخاص باستخدام SQL STATMENT داخل ال VB

وهذه هي الأكواد الخاصة بالعمليات الأساسية INSERT , UPDATE , DELETE , SEARCH

لمن تصادفه هذه المشكلة مرة أخري

1] كود أضافة سجل جديد

If Text1 = "" Or Text2 = "" Or Text3 = "" Then MsgBox "COMPLETE YOUR DATA": Exit Sub
Set RS = DB.Execute("SELECT * FROM CUSTOMER WHERE CODE=" & Trim(Text1.Text) & "")
If RS.EOF Then
DB.Execute "INSERT INTO CUSTOMER (CODE,NAME,ADDRESS)VALUES(" & Trim(Text1.Text) & ",'" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "')"
MsgBox "data saved"
Else
MsgBox "THIS RECORD WAS ADDED BEFORE"
End If

2] كود تعديل سجل

If Text1 = "" Or Text2 = "" Or Text3 = "" Then MsgBox "COMPLETE YOUR DATA": Exit Sub
Set RS = DB.Execute("SELECT * FROM CUSTOMER WHERE CODE=" & Trim(Text1.Text) & "")
If Not RS.EOF Then
DB.Execute "update CUSTOMER set CODE=" & Trim(Text1.Text) & ", NAME='" & Trim(Text2.Text) & "', ADDRESS='" & Trim(Text3.Text) & "' where CODE=" & Trim(Text1.Text) & ""
MsgBox "DATA UPDATED"
Else
MsgBox "RECORD NOT FOUND"
End If

3] كود حذف سجل

If Text1 = "" Then MsgBox "COMPLETE YOUR DATA": Exit Sub
Set RS = DB.Execute("SELECT * FROM CUSTOMER WHERE CODE=" & Trim(Text1.Text) & "")
If Not RS.EOF Then
DB.Execute "delete from CUSTOMER where CODE=" & Trim(Text1.Text) & ""
MsgBox "RECORD DELETED"
Else
MsgBox "RECORD NOT FOUND"
End If

4] كود البحث عن سجل

If Text1 <> "" Then
Set RS = DB.Execute("SELECT * FROM CUSTOMER WHERE CODE=" & Trim(Text1.Text) & "")
If Not RS.EOF Then
Set Text1.DataSource = RS
Text1.DataField = "CODE"
Set Text2.DataSource = RS
Text2.DataField = "Name"
Set Text3.DataSource = RS
Text3.DataField = "ADDRESS"
Else
MsgBox "THIS RECORD NOT FOUND"
End If
End If

ولكن أخواني المشكلة الخاصة ب STORED PROCEDURE الموجودة بالسؤال الثاني

مازالت قائمة أرجو المساعدة في هذا الموضوع

#3

أخواني الأعزاء

أرجوكم مازلت لم أجد شرح جيد لطريقة ربط STORED PROCEDURE مع VB

أرجو أن تمدوني بأي وسيلة شرح سواء كانت كتاب أو درس أو مثال أو أي شيء

فقط أرجو أن يشمل علي نقتطين أساسيتين

طريقة الربط وكيفية أرسال PARAMETARS إلي ال STORED PROCEDURE

وجزاكم الله خيرا

#4

أخواني الأعزاء

بالرغم عن تأخركم في الرد مازلت أنتظر ردودكم ولو بنصيحة تفيد في حل المشكلة

وعلي العموم من جانبي أحاول جاهدا في إيجاد شرح للموضوع وإن توصلت لشيء سأضعه علي المنتدي

#5

معليش وضعت حل بعدين اكتشفت انك تريد بلغة ال vb وانا بصراحه عملت على vb,net متاسفه على تطفلي

تم تعديل هذه المشاركة بواسطة roza_03 في 24 أغسطس 2005 في 04:07

#6

لا داعي للأسف أختي العزيزة وشكرا علي محاولة المساعدة

هذا الموضوع مغلق.

مواضيع مشابهة