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

مشكلة التعديل من قاعدة Sql – Server 2000 بالفيجوال بيسك

بدأه عبود طش أم طش في 5 مايو 2009 · 7 رد · 714 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف الحال

أنا عندي برنامج مصمم بفيجوال بيسك 6

ومرتبط بقاعدة SQL – SERVER 2000 -- أكسس

المهم

كله شغال زي الحلاوة

ولكن عند التعديل على بيانات شخص مخزن في قاعدة البيانات يحفظلي واحد جديد بالتعدي ولا يقوم بحذف الأول

مثال :

أنا عندي بيانات شخص أسمه محمد

ظغطت على زر تعديل وغيرت أسمه من محمد إلى خالد

لما أظغط على زر حفظ

يحفظلي واحد جديد أسمه خالد

فيكون عندي بيانات محمد , وبيانات خالد ....يضيفها جديدة ما يعدل على الأولى

وكود زر حفظ التعديل هو كالتالي :


prog.Visible = True
prog.Value = 0
On Error Resume Next
Dim Rs As New ADODB.Recordset
Dim SQL As String

SQL = "SELECT * FROM fard"""
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
prog.Value = 40

Rs.Update

Rs.Fields(1) = Text1.Text
Rs.Fields(2) = Text2.Text
Rs.Fields(3) = IIf(Text8.Text <> "", Text8.Text, "لا يوجد")
Rs.Fields(4) = Text9.Text
'
prog.Value = 0
prog.Value = 60
prog.Value = 100
prog.Visible = False

If Text1.Text = "" Then
MsgBox (" الرجاء أدخل الاسم"), vbCritical, ("خطأ")

'prog.Value = 0


Else
prog.Value = 100
Rs.Update

MsgBox ("تمت العملية بنجاح"), vbInformation, ("نجاح ")

prog.Visible = False


End If
Command1.Enabled = True
Command2.Enabled = False
Command7.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command6.Enabled = True

Rs.Close
Set Rs = Nothing
End Sub
Private Sub Command4_Click()

#2

المشكلة فى ال Where الخاصة بال Update Statement

قم بارفاق كود ال SQL ألمستخدم فى عملية ال Update و يا ريت لو تقم بتحويله ل Stored Procedure

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#3

أخوي ترى ما فهمت منك أي شي

على العموم

أنا أفقت المديول الخاص بفتح القاعدة

Public Type SHFILEOPSTRUCT
	 hwnd As Long
	 wFunc As Long
	 pFrom As String
	 pTo As String
	 fFlags As Integer
	 fAnyOperationsAborted As Boolean
	 hNameMappings As Long
	 lpszProgressTitle As String
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_COPY = &H2
Public Const FOF_ALLOWUNDO = &H40
Public Counts As Long


Public Function FileExists(ByVal sPathName As String) As Boolean
	On Error Resume Next
	FileExists = (GetAttr(sPathName) And vbNormal) = vbNormal
	On Error GoTo 0
End Function

Public Sub CopyFileWindowsWay(SourceFile As String, DestinationFile As String)

	 Dim lngReturn As Long
	 Dim typFileOperation As SHFILEOPSTRUCT

	 With typFileOperation
		.hwnd = 0
		.wFunc = FO_COPY
		.pFrom = SourceFile & vbNullChar & vbNullChar 'source file
		.pTo = DestinationFile & vbNullChar & vbNullChar 'destination file
		.fFlags = FOF_ALLOWUNDO
	 End With
	 lngReturn = SHFileOperation(typFileOperation)
End Sub
#4

:unsure: :unsure:

#6

كان لدى شك من وقتما رأيت كود فتح الملف

الكود الخاص بك يتعامل مع اكسس

و نحن هنا فى منتدى ال MS SQL Server نسخة خاصة بالسيرفرات

سيتم نقل الموضوع لمنتدى الاكسس

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#7

طيب أيش الحل

#8

الاخ العزيز............

السلام عليكم

ابدل الجملة

SQL = "SELECT * FROM fard"""

بهذة الجملة

SQL = "SELECT * FROM fard where name" & " like'%" & Text1 & "%'"

وان شاء الله تعمل

فى يوم من الأيام...............

فى ساعة من الساعات.......

فى ثانية من الثوانى..........

سيرجع المجد ثانياً للأمة الإسلامية فأرجوا من الله أن نكون أحياء فى هذا الوقت.

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