تقييم الموضوع :
  • 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] يرجى التعديل على الكود dubai.eig 4 67 أمس, 05:25 PM
آخر رد: dubai.eig
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 7 138 أمس, 04:23 PM
آخر رد: مساعدة
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 104 15-01-17, 06:11 PM
آخر رد: khodor1985
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 158 15-01-17, 02:11 PM
آخر رد: abudawoodd
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 160 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 120 11-01-17, 11:08 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء المساعدة noway 2 87 10-01-17, 09:28 AM
آخر رد: thevirus
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 272 05-01-17, 05:15 PM
آخر رد: 0theghost0
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 409 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 216 01-01-17, 10:15 PM
آخر رد: مساعدة

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


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