تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في هذا الكود ضروري
#1
PHP كود :
[align=left][align=left]
Option Explicit
Dim AConnection 
As New ADODB.Connection
Dim ARecordset 
As New ADODB.Recordset
Private Sub cmdAdd_Click()
On Error Resume Next
If txtTitle1.Text "" Then
MsgBox 
" ب7 ا @; ا Z. أد <¤M"vbOKOnly" ت77A ل ا 7. إد M dF. "
Exit Sub
Else:
If 
txtFirstName1.Text "" Then
MsgBox 
" ب7 ع ا  Z. أد <¤M"vbOKOnly" ت77A ل ا 7. إد M dF. "
Exit Sub
Else:
If 
txtSurname1.Text "" Then
MsgBox 
" ب7 ا w.I @; ا Z. أد <¤M"vbOKOnly" ت77A ل ا 7. إد M dF. "
Exit Sub
Else:
If 
txtPhone1.Text "" Then
MsgBox 
" ب7 ا w« و Z. أد <¤M"vbOKOnly" ت77A ل ا 7. إد M dF. "
Exit Sub
End 
If
End If
End If
End If
ARecordset.AddNew
ARecordset
.Fields("Title") = txtTitle1.Text " "
ARecordset.Fields("First Name") = txtFirstName1.Text " "
ARecordset.Fields("Surname") = txtSurname1.Text " "
ARecordset.Fields("Phone Number") = txtPhone1.Text " "
txtTitle1.Text ""
txtFirstName1.Text ""
txtSurname1.Text ""
txtPhone1.Text ""
ARecordset.MoveLast
GetFields
End Sub
Private Sub cmdDelete_Click()
On Error Resume Next
ARecordset
.Delete adAffectCurrent
ARecordset
.MoveFirst
GetFields
End Sub
Private Sub cmdFirst_Click()
On Error Resume Next
ARecordset
.MoveFirst
GetFields
End Sub
Private Sub cmdLast_Click()
On Error Resume Next
ARecordset
.MoveLast
GetFields
End Sub
Private Sub cmdNext_Click()
On Error Resume Next
ARecordset
.MoveNext
GetFields
End Sub
Private Sub cmdPrevious_Click()
On Error Resume Next
ARecordset
.MovePrevious
GetFields
End Sub
Private Sub Form_Load()
On Error GoTo ErrorHandler
AConnection
.ConnectionString "provider=Microsoft.Jet.OLEDB.4.0;data"
source=Database.mdb;"
AConnection.CursorLocation = adUseClient
AConnection.Open
ARecordset.Open "
Select from Customers", AConnection, adOpenDynamic, adLockOptimistic
If AConnection.State = 1 Then
GetFields
End If
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description & vbCrLf & vbCrLf & " 
نا s*D+z i ا", vbOKOnly, "Error!"
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
AConnection.Close
Set AConnection = Nothing
End Sub
Private Sub GetFields()
txtID.Text = ARecordset(0)
txtTitle.Text = ARecordset(1)
txtFirstName.Text = ARecordset(2)
txtSurname.Text = ARecordset(3)
txtPhone.Text = ARecordset(4)
End Sub[/align][/align]

الخطا في هذا السطر 
[align=left]
AConnection.ConnectionString = "
provider=Microsoft.Jet.OLEDB.4.0;data"
source=Database.mdb;"
[/align
[/quote]
الرد }}}}
تم الشكر بواسطة:
#2
تاكد من الاتصال بالقاعده
الرد }}}}
تم الشكر بواسطة:
#3
هذا السطر هو نص الاتصال بقاعدة البيانات

كود :
AConnection.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;datٍaSource=Database.mdb;"

حيث Database هو اسم قاعدة البيانات .....

تأكد من هذه الاشياء ... وتأكد من الفواصل وحالة الأحرف ......
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 39 1,205 أمس, 11:55 AM
آخر رد: amgad525
  حل مشكلة الكود الاتي - سهل- CLARO 3 75 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 93 22-11-16, 02:38 PM
آخر رد: thevirus
  ارجو المساعدة في كود VB.NET 7 107 16-11-16, 03:20 AM
آخر رد: أبو عمر
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 190 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 96 10-11-16, 06:25 PM
آخر رد: أبو عمر
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 58 02-11-16, 11:47 PM
آخر رد: Mohamed20
  كيف اضيف هذا الكود في module nabil.1710 6 122 01-11-16, 03:23 PM
آخر رد: silverlight
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 73 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم