خليل مبارك

ده sub بستخدمه في عرض الضورة المسجلة في قاعدة البيانات في حقل Image Sub ViewImage() Dim sQuery As New System.Text.StringBuilder() Dim oDataTable As New DataTable() Dim dtRow As DataRow Dim imagedata() As Byte Dim imageBytedata As IO.MemoryStream sQuery.Append(…

برامج جميلة جداُ

كريستال مع ا sql server لدى مشكله عند ربط الريبوت مع داتا بيس sql ولكن عند تغير الداتا بيس يحدث err ما هو الحل

أليك هذا الكود أنا مجربو وشغال بيه Dim CN As New ADODB.Connection Dim CN As New ADODB.Connection Dim db As New ADOX.Catalog Cn.open "DSN=grs;USER ID=sa;pwd=123;" db.ActiveConnection = Cn For c = 0 To db.Tables.Count - 1 If db.Tables( c ).Type = "TABLE" Then CN…