تقييم الموضوع :
  • 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 هو اسم قاعدة البيانات .....

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 46 منذ 9 ساعة مضت
آخر رد: أبو نوره
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 2 30 اليوم, 10:14 AM
آخر رد: ابو روضة
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 796 أمس, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 92 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 188 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء المساعدة cheurfa 1 76 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 49 11-09-17, 12:58 PM
آخر رد: 0theghost0
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 1 46 10-09-17, 12:29 PM
آخر رد: سعود الشامان
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 56 09-09-17, 10:44 PM
آخر رد: aliomar333
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 42 08-09-17, 04:02 PM
آخر رد: Amjad

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


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