السلام علييكم
dim ado As New MSAdodcLib.Adodc
Dim sql As String
sql = "Insert_BARCODE(" & I_ID & " , " & barcode & ") "
sql = "{ call " & sql & "}"
ado.CommandType = MSAdodcLib.CommandTypeEnum.adCmdText
ado.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sales;Data Source=PC"
ado.RecordSource = sql
ado.Refresh()
[/code
الخطاء يحدث عند السطر ado.refresh
وهو
operation not allowed when the object is closed
مع العلم انه يتم إلاضافة إلى قاعدة البايانات رغم وجود الخطاء
لحثت كثير ولم اجد الحل وقرات في موقع ميكروسوفت انه بحدث هذا الخطاء مع جمل sql insert or update
وانه لعدم ارجاع اي قيمة
ارجو ان اجد لديكم الحل
وشكرا