تقييم الموضوع :
  • 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] كيف اوضع ProgressBar في هذا الكود e-coder 0 28 منذ 5 ساعة مضت
آخر رد: e-coder
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 144 أمس, 04:58 AM
آخر رد: a.baomar
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 104 22-05-17, 09:25 AM
آخر رد: hglogtd
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 69 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 84 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 46 19-05-17, 04:09 PM
آخر رد: e-coder
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 85 19-05-17, 03:50 PM
آخر رد: khaled12345
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 128 18-05-17, 08:07 AM
آخر رد: e-coder
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 55 17-05-17, 05:14 PM
آخر رد: 0theghost0
  اين الخطا في هذا الكود rabeh.ram 18 454 16-05-17, 10:48 PM
آخر رد: rabeh.ram

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


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