السلام عليكم ورحمة الله وبركاته
عملت برنامج بغرض عمل فورم لقاعدة بيانات اوراكل وظهر لي هذا الخطا
Run_time error '91'
Object variable or with block variable not set
وهذا هو الكود
Private Sub Command1_Click()
Dim ses As OraSession
Dim database As OraDatabase
Dim dyn As OraDynaset
Set ses = CreateObject("oracleinprocserver.xorasession")
SQL = "select * from driver_license_insurance"
Set dyn = database.CreateDynaset(SQL, 0&)
dyn.AddNew
dyn.Fields("d_ssn").Value = Text1.Text
dyn.Fields("d_fname").Value = Text2.Text
dyn.Fields("d_mname").Value = Text3.Text
dyn.Fields("d_lname").Value = Text4.Text
dyn.Fields("d_nationality").Value = Text5.Text
dyn.Fields("d_dbirth").Value = Text6.Text
dyn.Fields("l_renewp").Value = Text7.Text
dyn.Fields("l_renewd").Value = Text8.Text
dyn.Fields("ins_company").Value = Text9.Text
dyn.Fields("ins_cardnum").Value = Text10.Text
dyn.Fields("ins_expdate").Value = Text11.Text
dyn.Update
MsgBox "data insrted succefuly"
End Sub
وهذا كود الجدول في الاوراكل
create table driver_license_insurance
(
d_ssn char(13) primary key,
d_fname varchar2(15),
d_mname varchar2(15),
d_lname varchar2(15),
d_nationality varchar2(15),
d_dbirth date not null,
l_renewp varchar2(15) not null,
l_renewd date not null,
ins_company varchar2(15),
ins_cardnum char(13),
ins_expdate date
);
فما الخطأ..وكيف اصححه.؟
علما ان هذا اول برنامج اعمله بالفيجول بيسك
