السلام عليكم ورحمة الله وبركاته

الليوم يا اخوانى بعد ما دارسنا فى الفصول السابقة

سوف نلتقى بعمل جديد وهذه هى المفاجاءة

اولا قم بانشاء قاعدة بيانات وجدول

كـود PHP

create table tel (

Tname char(10),
Tno number(50),
Tdate date

) ;

وبعد ذلك قم بفتح الفيجوال بيسك 6

واحفظ مشروعك

وضع الاداة

adodc1
datagrid

والان قم بوضع هذا الكوج فى زرار الاتصال

كـود PHP

db.ConnectionString = "Provider=MSDAORA.1;User ID=" & Trim(txtusername.Text) & " / " & Trim(txtpassword.Text)
db.CursorLocation = adUseClient
db.Open

وهذا داخل قائمة التصاريح

كـود PHP

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

وهذا داخل فورم لود

كـود PHP

Set db = New ADODB.Connection
Set rs = New ADODB.Recordset

وهذا داخل التيمر

كـود PHP

Adodc1.Refresh

وهذا داخل زرار جديد

كـود PHP

rs.Open "tel", db, adOpenStatic, adLockOptimistic
rs.AddNew
With rs
If Trim(Text1.Text) <> "" Then !Tname = Val(Trim(Text1.Text))
If Trim(Text2.Text) <> "" Then !Tno = Trim(Text2.Text)
If Trim(Text3.Text) <> "" Then !Tdate = Trim(Text3.Text)
.Update
.Close
End With
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

وكان الله يحب المحسنين

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

والسلام عليكم ورحمة الله وبركاته

لو فى اى حاجة مش مفهومة انا تحت امركم

والسلام عليكم ورحمة الله وبركاته

اخوكم فى الله محمد الفايد


وهذا رابط المشروع

اضغط

هووووووووووووووناااااااااااااااااااااااااااااااا

لا تنسوا يا اخوانه الدعاء

هذا اهم شيىء عندى الله يرضى عنكم وعن والديكم

بارك الله فيك .. و ننتظر منك المزيد يا اخى