السلام عليكم

عندي الكود التالي

Try
Dim a As New WinTestVB.TestWebServiceSMSOracle.Service
Dim user As New WinTestVB.TestWebServiceSMSOracle.SoapUser
user.CustomerID = 88
user.name = "Tarek"
user.Password = "password"
Dim x As String = a.SendSms(user, "KCFIRE", "Test", "[email protected]", "Latin", "12/12/2008", False, False, False)
MsgBox(x)
Catch ex As Exception
MsgBox(ex.Message)
End Try


أريد أن اناديه عن طريق ال SQL كيف ؟؟؟

الأخ الكريم ، عل ما أعتقد أنه ليس من الممكن إدراج كائنات داخل جمل الـ SQL مباشرتاً !!!

ولكن من داخل النموذج Form يمكنك الربط مع المكتبة كما تشاء وذلك بإستخدام المكتبة الجاهزة التي تدعي OLE2 !!!

علي العموم أنظر المثال المرفق ، يتكون من نموذج Oracle ومكتبتين DLL بالسورس كود !!!


بالتوفيق

Simble_DLLs.zip